Ado打开数据库

SQL

ConnectString = "Provider=SQLOLEDB.1;User ID=sa;Password=;Initial Catalog=Insect_DB;Data Source=127.0.0.1"

cnn.open ConnectString
If InStr("INSERT,DELETE,UPDATE,CREATE,ALTER,DROP,EXEC", UCase$(sTokens(0))) Then
cnn.Execute sql
MsgString = sTokens(0) & " query successful"
Else
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
rst.open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic

Access

strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AccessFile

Set connConnection = New ADODB.Connection
connConnection.CursorLocation = adUseClient
connConnection.open strConnect
Set mrc = New ADODB.Recordset
mrc.CursorType = adOpenKeyset
mrc.CursorLocation = adUseClient
mrc.LockType = adLockOptimistic
mrc.Source = "Select * From " & cmbTables.Text
mrc.ActiveConnection = connConnection
mrc.open