码迷,mamicode.com
首页 > 数据库 > 详细

Delphi ADOQuery连接数据库的查询、插入、删除、修改

时间:2019-01-20 14:01:16      阅读:228      评论:0      收藏:0      [点我收藏+]

标签:ecs   date   proc   tab   filter   x11   rcu   chapter   new   

//查询记录
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery.Close;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add(‘select * from YourTABLE where 查询条件‘);
ADOQuery.Open;
 
//插入记录
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)
//修改记录
procedure TForm1.Button4Click(Sender: TObject);
begin
ADOQuery.Close;
ADOQuery.SQL.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必须为true

2、如果有输入参数的时候,容易出错,通常的错法是这样:
比如:“WHERE abc = : abc”
改正如下:“WHERE abc=:abc”就是说=:前后都不能留空格。
3、ADOQuery.Open与ADOQuery.ExecSQL 有不同之处。
ADOQuery.Open一般用在查询,select时候;而ADOQuery.ExecSQL用在insert,delete,update等。

 

Delphi ADOQuery连接数据库的查询、插入、删除、修改

标签:ecs   date   proc   tab   filter   x11   rcu   chapter   new   

原文地址:https://www.cnblogs.com/jijm123/p/10294200.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!