運行簡單的VBA腳本來測試連接

Question

我正在嘗試測試GoDaddy SQL Server數據庫的連接。 我收到了'無效的連接字符串屬性'。

這個腳本有什么問題？

Dim cnn As ADODB.Connection
Dim canConnect As Boolean

Public Sub TestConnection()

    Set cnn = New ADODB.Connection   
    cnn.Open "Provider=sqloledb;Data Source=GoDaddyServer.com;Initial Catalog=dBase1;UserID=userID; Password='password';"   
    If cnn.State = adStateOpen Then
        canConnect = True
        cnn.Close
    End If   
MsgBox canConnect

End Sub

Answer 1

IIRC，你必須在連接字符串之外指定Provider屬性，如下所示：

Dim conn
Set conn = New ADODB.Connection
conn.Provider = "sqloledb"
conn.Open "Data Source=GoDaddyServer.com; Initial Catalog=dbase1; User ID=userid; Password=pass;"

Answer 2

我從未見過像你一樣在SQL Server連接字符串中引用的密碼。 嘗試刪除引號：

"Provider=sqloledb;Data Source=GoDaddyServer.com;Initial Catalog=dBase1;User ID=userID; Password=password;"

您可能會發現connectionstrings.com將來很有用。

Answer 3

可以在連接字符串中直接指定提供者

Dim cnn as ADODB.Connection
Dim cnn_str as String
cnn_str = "Provider=SQLOLEDB;Data Source=SERVER;Initial Catalog=DB;User ID=sa;Password=PASSWORD"
Set cnn = New ADODB.Connection
cnn.Open cnn_str