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

运行简单的VBA脚本来测试连接

3 个答案: