Delphi ADOQuery连接数据库的查询、插入、删除、修改
2015-11-12 18:29
351 查看
//查询记录 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等。
原文:http://www.cnblogs.com/lilongjiang/archive/2012/12/15/2819222.html
相关文章推荐
- Delphi 设置WebBrowser 代理服务器 与 UserAgent
- 用Delphi开发视频聊天软件
- delphi 三层架构简单例
- Delphi的三层开发初学经验
- Delphi操作excel说明
- Delphi基本之pascal语法(第五章.函数与过程程序设计)
- Delphi基本之pascal语法(第四章.循环结构程序设计)
- Delphi基本之pascal语法(第三章.选择结构程序设计)
- Delphi基本之pascal语法(第二章.顺序结构程序设计)
- Delphi基本之pascal语法(第一章.pascal介绍)
- 苹果开发证书相关BLOG与Delphi IOS环境安装(超详细)
- delphi2010 域名转换IP
- How do I use SOCKS proxy in delphi?
- Delphi.NET
- Delphi:InputQuery和InputBox的区别
- Delphi怎么判断一个文件存在与否,文件还是文件夹?
- 用Delphi制作BPL包
- 为Delphi程序增加UAC功能
- Delphi PDF
- Delphi文件操作函数