咋sql server速度不如Access
cqcpl 2009-10-26 01:41:38 这是sql server的
Dim lngA As Long
lngA = GetTickCount
Dim Cnn
Dim LsRst
Set Cnn = CreateObject("ADODB.Connection")
Set LsRst = CreateObject("ADODB.Recordset")
str1 = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;"
str1 = str1 & "User ID=sa;Initial Catalog=电话号码;Data Source=DB4Y3Z1X"
Cnn.CursorLocation = 3
Cnn.Open str1
LsRst.CursorType = 1 'adOpenKeyset
LsRst.LockType = 3 'adLockOptimistic
LsRst.Open strSQL, Cnn
Set GetRst = LsRst
Debug.Print GetTickCount - lngA
这是access的
Dim lngA As Long
lngA = GetTickCount
Dim Cnn
Dim LsRst
Set Cnn = CreateObject("ADODB.Connection")
Set LsRst = CreateObject("ADODB.Recordset")
Cnn.Provider = "Microsoft.JET.OLEDB.4.0"
Cnn.Open "Data Source=" + "\\DB4Y3Z1X\数据中心\数据库系统\数据库.mdb"
LsRst.ActiveConnection = Cnn
LsRst.LockType = 3
LsRst.CursorType = 1
LsRst.Open strSQL
Set GetRstAccess = LsRst
Debug.Print GetTickCount - lngA
两个数据库内容一样,都是6万数据,因为是全部读取,应该与索引什么的没关系,花费的时间竟为
sql server 1281ms
access 15ms
不活人了!谁来告诉我