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

Je suis en train de tester la connexion de GoDaddy base de données SQL Server. Je suis un " invalide attribut de chaîne de connexion.'

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
le posteur d'Origine, si l'une des réponses ci-dessous résolu votre problème (et ça sonne comme il l'a fait), n'oubliez pas de vert-le vérifier pour le futur, les personnes qui tomber sur ce post avec le même problème.

OriginalL'auteur |

  1. 4

    IIRC, vous devez spécifier le Fournisseur des biens en dehors de la chaîne de connexion comme suit:

    Dim conn
Set conn = New ADODB.Connection
conn.Provider = "sqloledb"
conn.Open "Data Source=GoDaddyServer.com; Initial Catalog=dbase1; User ID=userid; Password=pass;"
    Merci. Je l'ai eu à travailler. La clé a été de placer la chaîne de connexion dans un objet séparé, et en passant d'une chaîne à l'objet de connexion. L'autre clé a été de changer l'ID de l'Utilisateur paramètre à 'Uid'. C'est nécessaire pour le " Provider=sqloledb;

    OriginalL'auteur

  2. 2

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

    "Provider=sqloledb;les Données Source=GoDaddyServer.com;Initial Catalog=dBase1;User ID=id d'utilisateur, Mot de passe=mot de passe;"

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

    vous avez raison. J'ai pris les graduations désactiver le mot de passe. Merci.

    OriginalL'auteur

  3. 1

    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

    OriginalL'auteur