Запуск простого 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