我正在尝试连接到 Excel 中的 SQL ce 数据库。它不断给我:
Method Open of object _connection failed
每次到达时都会出现错误消息Conn.Open
。
我以前从未使用过 ADO,所以我不确定出了什么问题。
下面是我的连接脚本。
Sub SQLCeConnect()
Dim Conn As New ADODB.Connection
Dim Query As New ADODB.Command
Dim ConnStr As String
Dim RecordSet As New ADODB.RecordSet
Dim i As Integer
'the connection string
ConnStr = "Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source=X:\ADOTEST\MYDB.sdf;"
'Open ADO Connection
Conn.ConnectionString = ConnStr
Conn.Open
Query.ActiveConnection = Conn
Query.CommandText = "SELECT * From DoorLayers"
Set RecordSet = Query.Execute
RecordSet.Close
Conn.Close
Conn.ConnectionString = ""
Do While Not RecordSet.EOF
For i = 0 To RecordSet.Fields.Count - 1
Debug.Print RecordSet.Fields(i).Name, RecordSet.Fields(i).Value
Next
RecordSet.MoveNext
Loop
RecordSet.Close
End Sub