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

在使用ADOQuery删除数据时的,希望在他的事件BeforeDelete进行一些判断,符合要求的进行删除,不符合要求的终止这个删除行为,请问应该用什么语句呢?还有个比较奇怪的现象也一起请教:DBGrid的Option里,dgConfirmDelete已经设置为False,为什么我每次删除数据时,都要出个对话框询问是否删除呢?Abort这个不得. BeforeDelete中写if A=B then abort;//这个方法在我这测试可行啊,无论是单选还是多选都可以 至于第二个问题,建议您自己查一

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

最近遇到了很多问题,现在做一下总结. 字符串处理: 字符串相加 var S1, S2: String; begin S1 := Concat('A', 'B'); // 连接两个字符串,S1变量等于AB. S2 := Concat('Borland', ' Delphi', ' 7.0'); // 连接三个字符,S2变量等于Borland Delphi 7.0. end; 去掉最后一个字符: var s : string; begin s := '; caption := copy(s, , L

用TDataSet及其派生类如TAdoQuery对数据库进行查找时, 如果TDataSet类 没有与数据感知控件相连,通过调用DisableControls可以极大地提高查询速度 特别是在数据比较多的情况下. 下面一段代码查询一个45000条记录的表, 不调用DisableControls时需要 执行30到40秒, 调用DisableControls后只需要1秒到2秒. procedure TForm1.Button2Click(Sender: TObject); var Time : DWOR

ADOQuery参数传递 dbgrid1.DataSource := datasource1; datasource1.DataSet := adoquery1; Value := 1221; SQL := 'SELECT * FROM customer WHERE CustNo>:Number'; adoquery1.SQL.Clear; adoquery1.Parameters.Clear; adoquery1.sql.Add(SQL);// adoquery1.ParamCheck :=

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

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

如何用adoquery对一个表中所有列进行模糊查询: procedure TForm3.Button4Click(Sender: TObject); var ASql,AKey: string; I: Integer; begin //获取关键词 AKey := Trim(Edit1.Text); //生成SQL语句 ASql := 'SELECT * FROM 需要做的事 WHERE '; do begin then begin ASql := ASql + frmDataPool.qry需要

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/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

TDataSet类由TBDEDataSet(BDE组件).TCustomADODataSet(ADO组件).TIBCustomDataSet(InterBase组件).TCustomSQLDataSet(dbExpress组件)和TCustomClientDataSet子类组成. 下面介绍DataSet类中比较重要的属性(可能会有取舍,等到真正做项目用到的时候在进行补充) 1.Active:判断数据库是否已打开: 2. Bof:判断数据集的第一条记录是否激活(且在以下状态下为true:1.打开一

ADOQry.Filtered:=false;       ADOQry.Filtered:=true;       ADOQry.FilterGroup:=fgPendingRecords ;FilterGroup参数解释如下:FgUnassigned 指定不使用任何的过滤器来过滤数据fgNone 移去任何的过滤器,让所有的数据都显示出来.这也可以通过设定ADO的Filtered属性值为False来达到fgPendingRecords 只显示被修改过但尚未更新回数据源的数据或被修改过但尚未被取

我用BDE时,用query与updatesql相结合进行缓存更新,但是在ADO中没有updatesql,只有用adoquery,在DBGRID中,用CANCELUPADTE,只能取消一条记录,烦恼不已,请大虾指导!!! 补充一下,缓存更新是指对多条记录的更改(增加)能取消或保存. 用adoconnection进行事物控制.将query的connection属性设为adoconnection,首先adoconnection.begintrans提交时先执行query,再adoconnection.

ADOquery属性中cursortype属性   ctOpenForwardOnly 向前移动    - — 除了只能在记录集中向前移动以外,其它的和动态游标类似.      ctKeyset 键集    – 不允许查看其他用户添加的记录和访问其他用户删除的记录. ctDynamic 动态    – 允许其他用户插入.更新和删除,支持在记录集中所有方向上的移动. ctStatic    静态    - 支持在记录集中所有方向上的移动.但是其他用户的插入.更新和删除操作不可见.      ctU

ADODataSet组件  此组件功能是非常强大的,通过ADODataset,可以直接与一个表进行联接,也可以执行SQL语句,还可以执行存储过程,可以说集ADOTable. ADOQuery.   ADOStoreProc三者的功能于一身.在使用时,首先设定其Connection属性为ADOConnection组件,没有 ADOConnection组件就直接设定ConnectionString属性.接下来有两个重要属性CommandType与 CommandText,这两个属性相互关联的.Com

Exception class EReadError with message 'Property Parameters does not exist'. Exception class EReadError with message 'Error reading Combobox.ADOQuery.Parameters: Property Parameters does not exist'. 新建空白工程是好的,现有的工程总是报错.,在执行构造函数时报错. 经查明是因为工程里allpacka

Delphi 7.0  控件:  adoquery1:Tadoquery               table1       :Ttable adoquery1 open  后  如何将数据复制到tabel1中 以前用BDE 的query1  时 使用 table1.BatchMove(query1,batAppend); 这样复制数据可是将query1 换成了 adoquery 如何在复制到table1表中呢 .. 如果直接修改成 table1.BatchMove(adoquery1,bat

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

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