今天终于把纠缠了几天的问题改完了,说到底只是一个很小的问题,就是ADOQuery的一个小属性. 把控件DBGridEh的一列的checkbox设为true,将其绑定DataSource和ADOQuery.用Button添加了一个事件,用来取消对checkbox的操作:ADOQuery.CancelBatch():可是只能取消最后一步的操作.检查了很长时间才发现在DBGridEh的DataSource的Dataset 下的LockType的属性设置问题,我设置成了:ItOptimistic   

delphi adoquery的post和UpdateBatch Post是确认当前的修改,而UpdateBatch是把已经确认但是没有存盘的数据写入数据库当ADOQuery的CursorType是ctKeySet或者ctStatic,并且LockType是ltBatchOptimistic的时候,数据DataSet是用批量更新的更新方式.这时,每条记录修改之后,用Post确认当前修改,但是确认后的数据却并没有立即写入数据库,而是保存于缓存之中.当调用UpdateBatch的时候,这些缓存中的修

Delphi ADOQuery procedure TForm1.Button1Click(Sender: TObject); var A: Array of String;//定义动态数组 Index: Integer;//定义数组下标变量 ADOQuery:TADOQuery; begin ADOQuery:=TADOQuery.create; ADOQuery.SQL.Clear; ADOQuery.SQL.Add('Select B from A'); ADOQuery.Open; Se

http://blog.csdn.net/chinazhd/article/details/45047777 //查询记录 procedure TForm1.Button1Click(Sender: TObject); begin ADOQuery.Close; ADOQuery.SQL.Clear; ADOQuery.SQL.Add('select * from YourTABLE where 查询条件'); ADOQuery.Open; //插入记录 procedure TForm1.But

今天看了多年前的一个帖子,发现回答不合理,有些还将其归为delphi的bug.其实主要是没有灵活应用参数. ADOQUERY查询时,这样不行,结果不正确. WITH ADOQUERY1 DO BEGIN   CLOSE;SQL.CLEAR;   SQL.ADD('SELECT * FROM TABLE1 WHERE TA001=:MONTH AND TA002=:MONTH');   PARAMETERS.ParamByName('MONTH').Value :=EDIT1.TEXT;   OP

使用delphi中的ADOQuery控件中自带的,insert ,edit,delete此操作时,有时会出现下面的错误提示,提示错误信息:"无法为更新定位行.一些值可能已在最后一次读取后已更改." 此解决方案: 出现的原因:   1.可能是修改的时候在其它地方已经重新修改过此数据集中的某些字段信息,例如我在上传文件时,修改了某表中的文件名称和文件路径,由于没有注意到,所以在修改数据,并再一次选择上传文件时,就会报出此错误;   2.数据库中的表没有主键; 3.在数据库设计时,为某些字段

  今天终于把纠缠了几天的问题改完了,说到底只是一个很小的问题,就是ADOQuery的一个小属性. 把控件DBGridEh的一列的checkbox设为true,将其绑定DataSourceA和DOQuery.用Button添加了一个事件,用来取消对checkbox的操作:ADOQuery.CancelBatch():可是只能取消最后一步的操作.检查了很长时间才发现在DBGridEh的DataSource的Dataset 下的LockType的属性设置问题,我设置成了:ItOptimistic  

DisableControls方法是在程序修改或后台有刷新记录的时候切断数据组件,如TTABLE.ADOQUERY等等与组件数据源的联系.如果没有切断,数据源中只要一有数据的改动,尤其是批量改动的话,每一笔的改动都会更新窗口中数据浏览组件的显示,这样会急剧减慢处理过程而且浪费时间. EnableControls的作用相反,用来恢复TTABLE等组件与DATASOURCE的联系,并促使数据浏览组件更新显示. 这两个函数主要作用:阻止组件感应显示,以加快语句执行速度. 比如,用大量的循环的时候,最好

以下数据,部分来自网络的收集,部分为自己测试后的原创整理,希望对你有帮助,更新会注明日期. 1.locktype  指定用户打开数据集时对数据集的锁定级别: ltUnspecified   未指定锁定级别 ltReadOnly Read-only    只读   ,会加快数据读取速度 ltPessimistic   记录级别(该记录被编辑时其它用户不能用) ltOptimistic   独立模式(与原来结果集对照,如果在此期间其它用户修改了结果,则你的结果不能保存) ltBatchOptimis

在开发 C/S 应该程序的时候,有时为了程序的运行提高效率. 需要使用 缓存功能: //ADO组件需要把 ADOQuery1.LockType:=ltBatchOptimistic; ADOQuery1.CacheSize:=1000; ADOQuery1.CursorLocation:=ctStatic; //开启缓存,这时内容存在内存中 // 如果想保存在硬盘文件需要用 ADOQuery1.LoadFromFile(); ADOQuery1.SaveToFile(); // 来处理文件 //

Delphi ADOQuery连接数据库的查询.插入.删除.修改 //查询记录 procedure TForm1.Button1Click(Sender: TObject); begin ADOQuery.Close; ADOQuery.SQL.Clear; ADOQuery.SQL.Add('select * from YourTABLE where 查询条件'); ADOQuery.Open;   //插入记录 procedure TForm1.Button2Click(Sender: TO

delphi中将一个ADOQuery查询的数据结果传递给一个动态生成的ADOQuery 2010-03-10 17:35 方法一: beginADOQuery:=TADOQuery.Create(Application);ADOQuery.Recordset:=ADOQuery1.Recordset.Clone(Integer(ltOptimistic)); DataSource1.DataSet:=ADOQuery;end; 方法二: beginADOQuery:=TADOQuery.Crea

Delphi在数据库操作是非常好用的,delphi把ADO一些方法属性都集成了,以下是我的一些总结:*******************************通过sql的存储过程来实现:添加With ADOQuery1 dobeginClose;SQL.Clear;SQL.Add(' Insert Into Table1(Field1,Field2)')SQL.Add(' Values(10,20)');ExecSQL;end; 修改With ADOQuery1 dobeginClose;S

delphi 中Adoquery ,在打开时能否让记录指针不移动?由于数据集Adoquery 时,它的针指称动会废时,能否在打开完成之前不让记录指针不移动.打开完毕之后再回复移动? 这样用:self.ADOQuery1.DisableControls;.........self.ADOQuery1.EnableControls; procedure refreshDataSet(daSet: TadoQuery); var tempBookmark: TBookmark; begin IF Da

var IsHave:Boolean; begin adoquery.first; while(not adoquery.eof) do begin if(adoquery.fieldbyname('列名').asstring="用户添加的值") then begin IsHave=True; break; end; adoquery.next; end; if(IsHave)then showmessage("存在重复数据!"); end;

在Delphi中动态地使用SQL查询语句 在一般的数据库管理系统中,通常都需要应用SQL查询语句来提高程序的动态特性.下面介绍如何在Delphi中实现这种功能.在Delphi中,使用SQL查询语句的途径是:在窗体中置入TQuery构件,设置其SQL属性的内容值,此内容为一个字符串数组,数组的每个值对应一行SQL查询语句.可以在程序设计过程中事先指定,也可以在程序运行中重新赋值,即可以实现动态地改变程序中的查询语句.假定程序的窗体中有一个名为Query1的TQuery构件,在程序运行过程中需要改变

鼠标忙这段代码大概是用来演示鼠标的用法的.具体解释如下: 使鼠标指针为沙漏状.(以表示程序正忙)screen.Cursor:=crhourglass; 把(打开的)数据库关闭.adoQuery.close;(个人以为改成这样更好:if adoQuery.Active then adoAuery.close;) 打开数据库. adoquery.Open; 把鼠标指针恢复成缺省状态. screen.Cursor:=crdefault; 如果在你程序中使用,建议用以下代码: screen.Cursor

http://blog.csdn.net/kandy_zheng/article/details/1639184 在sql server 的northwide 中建立主表 create table sell_h( sell_id char(10),cust_name char(10) Primary key(sell_id) ) Go create table sell_h( sell_id char(10),inv char(10) ,amt float,qty float Primary k

http://blog.csdn.net/kandy_zheng/article/details/1639184 在sql server 的northwide 中建立主表 create table sell_h( sell_id char(10),cust_name char(10) Primary key(sell_id) ) Go create table sell_h( sell_id char(10),inv char(10) ,amt float,qty float Primary k

procedure TForm2.ADOQuery1TestFieldValidate(Sender: TField);begin// Sender就是当前字段,可以在这里对Sender字段进行各种操作.// 例如:if Sender.Value = 'Hello' then Sender.Value := 'yeah~';//但如果想改变Sender字段的值,建议在OnSetText里面处理.end;