function GetcdsAccountsData: OleVariant; var ASQLQuery: TSQLQuery; Adsp: TProvider; begin ASQLQuery:=CreateSQLQuery; Adsp:=TProvider.Create(nil); with ASQLQuery do try SQL.Add('Select AccID, pAccID, AccName, AccFullName, Explan, Grade, Property, Deta
delphi 中Adoquery ,在打开时能否让记录指针不移动?由于数据集Adoquery 时,它的针指称动会废时,能否在打开完成之前不让记录指针不移动.打开完毕之后再回复移动? 这样用:self.ADOQuery1.DisableControls;.........self.ADOQuery1.EnableControls; procedure refreshDataSet(daSet: TadoQuery); var tempBookmark: TBookmark; begin IF Da
http://www.cnblogs.com/azhqiang/p/4050331.html 在进行数据库操作时, 我们经常会遇到批量向数据库中写入记录的情况. 在这里我提供3种操作方式: 1. 单条语句循环插入, 这是最笨的方法: for i := 0 to 100 do ADOCommand1.Execute('IINSERT INTO .....') //伪码, 只是说明意思 2. 多条语句批量插入, 将多条Insert语句拼成一条语句, 一次执行: for i :=
前言 前些日子用 Delphi 写了一个 Windows 外壳扩展程序,大家知道 Windows 外壳扩展实际上就是 COM 的一种应用 -- Shell COM,虽然整个程序写得还算比较顺利,但写完后还是感觉对 Delphi 中 COM 的实现有点雾里看花的感觉,因此我认为有必要花一点时间对 COM 在 Delphi 中的实现做一些研究.另外我也买了李维的新书 --<深入核心 -- VCL架构剖析>,里面有两章涉及了与 COM 相关内容,看完后我知道了COM 在 Delphi 中的实现是基于