Delphi中封装ADO之我重学习记录

ado实际上是是微软以com技术，封装底层的ole-db（也是com）方便开发人员使用的一另数据储蓄技术。

ado原生对象：

connection对象，使用方法：

adoc:=createoleobject('adodb.connection');

adoc.openn(连接串)

recordset对象,使用方法：

ador:=createoleobject('adodb.recordset');

ador.activeconnection:=adoc;

ador.open('select * from sysobjects',adoc,adopenstatic,adlockoptimistlc,adcmdtext);

command对象，略

2005-11-4 11:43:30

borland ado 通过封装原生ado，提供给用户的一套vcl组件。包括：

tadoconnection

connectionstring 链接字符串

connectoptions: coconnectunspecified 未指明，即同步连接；应用程序在连接执行完成后，才执行后续代码。

coasyncconnect 异步连接.立刻执行后续代码。

*cursorlocation 代表指针存储的地方。显著影响执行效率。

*Iphone 苹果 ios lationlevel:事务层次

*mode 连接充许的存取行为

provider代表ado驱动程序种类，即连接到什么数据源。

tadocommand

用于执行不返回数据集指定最佳选择，也可以通过adodataset返回数据集。

tadodataset

用于提取数据

tadotable

相当于tadodataset，只是相当于commandtype=cmdtable

tadoquery

tadostoredproc

trdsconnection

cmdunknown 未知的命令类型，它会造成ado执行变慢

cmdtext 文字类型的命令，通常是sql命令或存储过程的程序cmdtable 数据表的名称

cmdstoredproc 执行的存储过程名称

cmdfile 包含命令的文件名称

cmdtabledirect 指明数据表的名称，数据表所有的字段都会回传在结果数集中

1.cursortype为ctkeyset/ctstatic

ctstatic:当数据源处理了客户端的sql命令并回传结果数据集后，这些数据集就由ado的cursor引擎来处理。即相当于其他数据库 的副本，是一组静态的数据集（别的用户修改了其他数据库 ，这个数据集不反映（即不同步））。client-side cursor+static是不错的组合。

ctkeyset:不但提供类似static cursor的能力，充许浏览结果数据集中的数据，还能在客户端看到被其它用户修改的并储存在其他数据库 中的最新数据。在ado缓存中只保存键值字段信息，这样在客户端需要数据时，根据键值信息动态到数据源中查询最新数据，回传客户端。(不过只能看到修改的数据，看不到新增的数据，键值一经读出

此文来自: 马开东博客 转载请注明出处 网址：

2.locktype为ltbatchoptimistic

3.执行的sql命令是select.

batchupdate的参数

arcurrent 只更新当前记录

arfiltered 只把符合过滤条件的数据修改更新回数据源

arall 把所有数据修改更新回资源中

arallchapters 更新所有被影响的chapters，章？不懂。

cancelbatch 取消未更新数据

batch方式下可用的数据筛选filtergroup：

如：fitered:=true;filtergroup:=fgnone;

fgunassigned 不过滤数据

fgnone 相当于fitered:=false;

fgpendingrecords 显示修改过未更新的数据或未取消的数据

fgaffectedrecords 显示上次更新数据

fgfetchedrecords 显示缓存中的数据。

fgpredicate 显示删除数据

fgconflictingrecords 更新错误的数据

其它cursortype

ctopenforwardonly:只能向前读取数据；

ctdynamic:数据源处理客户端sql命令后，只会把结果数据集的键值传给ado引擎，并且把客户端recordset对象指定的cachesize笔数传回。当客户端需要浏览其他不在目前ado缓存中的数据时，ado重新建立一份其他数据库 取出的新的键值字段信息，再根据新键值取得下一个区块的数据。

ado在使用sql server 时，其如果采用client-side cursor方式，无论什么lock type都将使用static方式。

savetofile('c:\outdata\test.xml',pfxml)

loadfromfile('c:\outdata\test.xml')

procedure usefilterrecord(dataset: tdataset;var accept: boolean);

var

scompany:string;

begin

scompany:=dataset.fieldbyname('company').asstring;

if ((pos('银行',scompany<>0) and

((pos('信托',scompany<>0) then

accept:=true

else accept:=false;

end;

adoquery.filtered:=false;

adoquery.onfilterrecord:=usefilterrecord;

adoquery.filtered:=true;

说明：如果公司名称包括有银行或信托就通过筛选；在此可以更灵活的使用delphi或自定义方法处理更为复杂的本地筛选。

executeoptions

eoasyncexecute 异步执行

eoasyncfetch 异步提取

eoasyncfetchnonblocking 无阻塞方式异步提取

eoexecutenorecords 无返回记录执行

onfetchprogress ado执行过程中会调用此事件，直到结束为止，可用于进度条显示

onfetchcomplete ado执行完成后会调用此事件

ado delphi

originalvalue:原始值 oldvalue

newvalue：新值 newvalue

underlyingvalue:其它用户修改过的值 currentvalue

recordsset可以将数据表中所有的数据以页次的方式切割，程序员可指定页号获最相应数据。

可能通过属性设置相关值

absolutepage 改变当前页

pagecount 总页数，只读

pagesize 每页行数

cachesize：数据缓冲区大小，指ado从ole-db提取数据并缓冲数据的笔数。ole-db是如何向其他数据库 提取数据的呢？

http://www.delphibbs.com/keylife/iblog_show.asp?xid=4566