ADOQuery 连接数据库的查询、插入、删除、修改
//查询记录
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery.Close;//关闭原来的查询
ADOQuery.SQL.Clear;//清空原来的 SQL 命令
ADOQuery.SQL.Add('select * from YourTABLE where 查询条件');//添加命令
ADOQuery.Open;//执行 SQL 语句
//插入记录
procedure TForm1.Button2Click(Sender: TObject);
begin
ADOQuery.Close;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Text:='insert into YourTABLE(字段 1,字段 2) values(:字段 1,:字
段 2)'; //= ADOQuery.SQL.Add('insert into YourTABLE values(:字段 1)');
ADOQuery.Parameters.ParamByName('字段 1').Value:=trim(Edit1.Text);
ADOQuery.Parameters.ParamByName('字段 2').Value:=trim(Edit2.Text);
ADOQuery.ExecSQL;
end;
//删除记录
procedure TForm1.Button3Click(Sender: TObject);
begin
ADOQuery.Close;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Text:='Delete from YourTABLE where 字段 3=:字段 3';
//这里没有添加 where 的条件判断,实际使用时,注意添加判断
// ADOQuery.SQL.Add('Delete from NEW_TABLE where 字段 3=:字段 3');
ADOQuery.Parameters.ParamByName('字段 3').Value:=trim(Edit3.Text);
ADOQuery.ExecSQL;
//删除记录也可用 DeleteRecords()函数
procedure DeleteRecords(AffectRecords: TAffectRecords = arAll);
这个函数有一个参数:AffectRecords 可以取如下的值:
1、arCurrent :删除当前记录
2、arFiltered :删除符合 Filter 过滤后的所有记录(如果你使用 Filter 过滤的
话)
3、arAll :删除所有记录
4、arAllChapters :Delete affects all chapters(ADO chapters)