《delphi-adoquery使用方法》由会员分享，可在线阅读，更多相关《delphi-adoquery使用方法（2页珍藏版）》请在金锄头文库上搜索。
1、Delphi-ADOQuery查询、插入、删除、修改（转）procedure TForm1.Button1Click(Sender: TObject);beginADOQuery.Close;ADOQuery.SQL.Clear;ADOQuery.SQL.Add(select * from YourTABLE where 查询条件);ADOQuery.Open;/插入记录procedure TForm1.Button2Click(Sender: TObject);beginADOQuery.Close;ADOQuery.SQL.Clear;ADOQuery.SQL.Text:=insert i
2、nto 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);beginADOQu
3、ery.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(A
4、ffectRecords: TAffectRecords = arAll); 这个函数有一个参数：AffectRecords可以取如下的值： 1、arCurrent ：删除当前记录 2、arFiltered ：删除符合Filter过滤后的所有记录（如果你使用Filter过滤的话） 3、arAll ：删除所有记录 4、arAllChapters ：Delete affects all chapters（ADO chapters）/修改记录procedure TForm1.Button4Click(Sender: TObject);beginADOQuery.Close;ADOQuery.SQL.
5、Clear;ADOQuery.SQL.Text:=Update YourTABLE SET 字段4=:字段4;/这里没有添加where的条件判断，实际使用时，注意添加判断/ ADOQuery.SQL.Add(Update YourTABLE SET 字段4=:字段4);ADOQuery.Parameters.ParamByName(字段4).Value:=trim(Edit4.Text);ADOQuery.ExecSQL;/即时更新插入、删除、修改后的记录在上面插入、删除、修改的语句后添加如下代码即可：ADOQuery.Close;ADOQuery.SQL.Add(select * from YourTABLE where 查询条件);ADOQuery.Open;/使用ADOQuery时注意：1、如果你需要更改数据，query.requestlive必须为true2、如果有输入参数的时候，容易出错，通常的错法是这样：比如：“WHERE abc = : abc”改正如下：“WHERE abc=:abc”就是说=:前后都不能留空格。3、ADOQuery.Open与ADOQuery.ExecSQL 有不同之处。ADOQuery.Open一般用在查询，select时候；而ADOQuery.ExecSQL用在insert，delete，update等。
