Pbm de connexion à une base sql serveur en vb sous word

Question

Bonjour,
J'ai un souci de connexion à une base sql server, en vb sous word...

Voici le code :
Private Sub UserForm_Initialize()


    Dim Action As Recordset
    Set Action = New ADODB.Recordset
    Dim Chemin_SqlServer, StrConnectionDocuments As String
    Dim requete As String

    Set db = New Connection


    Chemin_SqlServer = "nomdupcserver"
    StrConnectionDocuments = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Documents" & ";Data Source=" & Chemin_SqlServer
            
    'Ouverture de la connexion a la base
    db.CursorLocation = adUseServer
    db.Open StrConnectionDocuments
    
    requete = "Select * From matable"
    Action.Open requete, db, adOpenStatic, adLockReadOnly
   Action.Close


End Sub

Il m'affiche le message suivant :
Impossible d'ouvrir la base de données demandée dans la connexion 'Document'. Echec de la connexion.

Est ce que quelqu'un pourrait m'aider?????
Merci

cs_Nicko11 · Answer

Salut, premier detail, je ne vois pas l'interer de Documents " & " dans :

  StrConnectionDocuments = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Documents" & ";Data Source=" & Chemin_SqlServer

Ne serait-ce pas non plus

Set db = New ADODB.Connection

et enfin Qu'est ce que Documents ?

Pbm de connexion à une base sql serveur en vb sous word

1 réponse

Votre réponse

Discussions similaires