DAO vs ADO

ADO Code 66 Seconds


设置dcndb =新ADODB.Connection

dcndb.Provider =" Microsoft.Jet.OLEDB.4.0"

dcndb.ConnectionString =" Data Source =" + dtbs $

dcndb.Open

设置rsUsers =新ADODB.Recordset

rsUsers.Open Sql $，dcndb，adOpenForwardOnly，adLockReadOnly


DAO代码20秒


设置rDb = DBEngine.Workspaces（0）.OpenDatabase（dtbs $）

Set rsUsers = rDb.OpenRecordset（Sql $）


***通过Developersdex发送 http://www.developersdex.com ***

ADO Code 66 Seconds

Set dcndb = New ADODB.Connection
dcndb.Provider = "Microsoft.Jet.OLEDB.4.0"
dcndb.ConnectionString = "Data Source=" + dtbs$
dcndb.Open
Set rsUsers = New ADODB.Recordset
rsUsers.Open Sql$, dcndb, adOpenForwardOnly, adLockReadOnly

DAO Code 20 Seconds

Set rDb = DBEngine.Workspaces(0).OpenDatabase(dtbs$)
Set rsUsers = rDb.OpenRecordset(Sql$)

*** Sent via Developersdex http://www.developersdex.com ***