声明: Private Const sqloledb = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=tkdb;Data Source=itide;" Dim objcnn As New ADODB.Connection Dim objcmd As New ADODB.Command Dim objrst As New ADODB.Recordset 具体程序: objcnn.Open sqloledb With objcmd3 .ActiveConnection = objcnn .CommandType = adCmdText .CommandText = "select * from 表名 " End With
Conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=" + strDataName + ";Data Source=server"
Conn.CursorLocation = adUseClient
Conn.Mode = adModeReadWrite
Conn.Open
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\Nwind.mdb;Persist Security Info=False
***
provider=提供者的名称
Data Source=数据库的路径
三者用分号分开
更详细的请看微软的MSDN帮助
Private Const sqloledb = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=tkdb;Data Source=itide;"
Dim objcnn As New ADODB.Connection
Dim objcmd As New ADODB.Command
Dim objrst As New ADODB.Recordset
具体程序:
objcnn.Open sqloledb
With objcmd3
.ActiveConnection = objcnn
.CommandType = adCmdText
.CommandText = "select * from 表名 "
End With