異步加載是ADO的一種數(shù)據(jù)加載方式，主要由記錄集的options參數(shù)來控制!

　　ADO210.CHM中的格式：

　　recordset.OpenSource,ActiveConnection,CursorType,LockType,Options

　　Options

　　可選。Long值，指示提供者計(jì)算Source參數(shù)的方式(如果該參數(shù)表示除Command對(duì)象之外的某些內(nèi)容)，或者指示Recordset應(yīng)該從以前保存過的文件中恢復(fù)。可以是一個(gè)或多[被屏蔽廣告]

　　個(gè)CommandTypeEnum或ExecuteOptionEnum值，這些值可以用位AND操作符組合。

　　ExecuteOptionEnum

　　指定提供者執(zhí)行命令的方式。

　　常量值說明

　　adAsyncExecute0x10指示命令將異步執(zhí)行。

　　該值不能與CommandType

　　adAsyncFetch0x20指示在CacheSize屬性中指定的初始數(shù)量以后的剩余行將被異步檢索。

　　adAsyncFetchNonBlocking0x40指示檢索時(shí)主線程從不會(huì)阻塞。如果未檢索到所請(qǐng)求的行，當(dāng)前行將自行移動(dòng)到文件結(jié)尾。

　　如果從包含持久存儲(chǔ)Recordset的Stream中打開Recordset，那么adAsyncFetchNonBlocking將不起作用;該操作將同步進(jìn)行并發(fā)生阻塞。

　　當(dāng)adCmdTableDirect選項(xiàng)被用于打開Recordset時(shí)，adAsynchFetchNonBlocking不起作用。

　　adExecuteNoRecords0x80指示命令文本是不返回行的命令或存儲(chǔ)過程(例如，僅插入數(shù)據(jù)的命令)。如果檢索到任何行，它們將被放棄且不返回。

　　adExecuteNoRecords只能作為可選參數(shù)傳遞給Command或Connection的Execute方法。

　　adExecuteStream0x400指示命令執(zhí)行的結(jié)果應(yīng)當(dāng)作為流返回。

　　adExecuteStream只能作為可選參數(shù)傳遞給Command的Execute方法。

　　adExecuteRecord指示CommandText是一個(gè)命令或存儲(chǔ)過程，它返回應(yīng)當(dāng)被作為Record對(duì)象返回的單一行。

　　adOptionUnspecified-1指示未指定命令。

　　CommandTypeEnum

　　指定解釋命令參數(shù)的方法。

　　常量值說明

　　adCmdUnspecified-1不指定命令類型的參數(shù)。

　　adCmdText1按命令或存儲(chǔ)過程調(diào)用的文本定義計(jì)算CommandText。

　　adCmdTable2按表名計(jì)算CommandText，該表的列全部是由內(nèi)部生成的SQL查詢返回的。

　　adCmdStoredProc4按存儲(chǔ)過程名計(jì)算CommandText。

　　adCmdUnknown8默認(rèn)值。指示CommandText屬性中命令的類型未知。

　　adCmdFile256按持久存儲(chǔ)的Recordset的文件名計(jì)算CommandText。只與Recordset.Open或Requery一起使用。

　　adCmdTableDirect512按表名計(jì)算CommandText，該表的列被全部返回。只與Recordset.Open或Requery一起使用。若要使用Seek方法，必須通過adCmdTableDirect打開Recordset。

　　該值不能與ExecuteOptionEnum的值adAsyncExecute組合。

　　一般用這個(gè)參數(shù)adAsyncFetch來控制,另外需要

　　.Properties("InitalFetchSize")=50

　　另外可以參考《MSCE的VB分布式應(yīng)用的開發(fā)》

　　舉例,Vb6.0的代碼：

　　DimAdoRsasADODB.Recordset

　　setAdoRs=newADODB.Recordset

　　WithAdoRs

　　.CursorLocation=adUseClient

　　.Properties("InitialFetchSize")=50

　　.OpenmstrSQL,AdoCn,adOpenStatic,adLockOptimistic,adAsyncFetch

　　If.BOF=FalseOr.EOF=FalseThen

　　'--------------

　　else

　　Endif