//查询记录
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等。
分享到:
相关推荐
ADOQuery连接数据库的查询、插入、删除、修改 右下角还有Delphi资料
Delphi_ADOQuery连接数据库的查询、插入、删除、修改
Delphi批量插入数据库数据..rar
Delphi adoquery处理多条SQL语句
在Delphi环境下,将ADOQUERY的Parameters存储到流中可能不太实用,但在基于TCP/IP 套接字模式开发的类三层架构中,如虫虫的远程数据对象,若能采用此法,必将大幅度提高此类对象的使用范围及查询效率。 本演示...
DELPHI常用连接数据库方式 ADOConnection:数据库连接 ADOCommand:无返回数据集的sql命令。 ADODataSet:集合和表、查询、存储过程集合。 ADOTable:通过表查询 ADOQuery:通过sql命令查询或执行。 ADOStoredProc ...
Delphi中的ADOquery 用法Delphi中的ADOquery 用法Delphi中的ADOquery 用法
Delphi 将ADOQUERY的Parameters存储到流中,再从流中载入保存到数据表,本模块改编于 New Midas VCL Library(1.00)的JxStream.pas,procedure Write7BitEncodedInt(value: LongInt);写入shortstring. 适用于写入...
delphi ADOQuery的用发和操作
delphi Adoquery Oracle Blob格式的文档上传与下载,个人写的一段代码
Delphi7下开发WebService如何使用数据库人操作介绍.
用delphi 7编写的还原备份SQL Server 2005 数据库的程序。-Written with delphi 7 to restore the backup of SQL Server 2005 database program.
delphi连接sqlite,该方式是使用odbc连接,安装后用adoquery可以选择sqliteodbc连接方式即可。
在Delphi中使用ADO连接Excel
下载后运行这个exe文件,解决ADO连数据库提示“没有注册类别”这个问题。这个文件在装VC的时候如果安装包没有问题应该就有了,如果没有装编译环境的话,那么微软就会有一个类似“通行证”的问题。
在Delphi中使用日期选择器用于数据库查询,用户搜索满足选定日期条件中的数据,使用日期选择器可很好的提高日期格式的准确性,避免数据库出错和查询不到数据的情况,本例的运行效果请参见测试截图。相关代码如下: ...
ADOQuery添加了lookup字段后使用Append,再为字段赋值时会报错“EOleException 未知错误”,很困扰啊,终于能解决了。
Delphi中ADOQuery使用了lookup字段后出现未知错误 解决办法
Delphi 结合SQLServer使用聚集函数MAX查询数据最多项内容,具体来说,本例是利用聚集函数MAX求7月份工作完成最多的员工,仍是一个数据库查询的范畴,这里使用了聚集函数,测试数据库在源代码的database目录下,本例...
delphi数据库字段数量方法 方法1:sql2000查询语句 ---------------------------------- declare @objid int,@objname char(40) set @objname = 'a'--表名称 select @objid = id from sysobjects where id = object_...