Exécution d'un script VBA simple pour tester une connexion

Question

J'essaie de tester la connexion d'une base de données GoDaddy SQL Server. J'obtiens un 'attribut de chaîne de connexion invalide'.

Quel est le problème avec ce script?

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, vous devez spécifier la propriété du fournisseur en dehors de la chaîne de connexion comme ceci:

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

Je ne l'ai jamais vu un mot de passe cité dans une chaîne de connexion SQL Server comme vous avez. Essayez de supprimer les citations:

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

Vous pourriez trouver connectionstrings.com utile à l'avenir.

Answer 3

On peut spécifier le fournisseur direct dans la chaîne de connexion

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