Discussion :

[raph-68i]

bonjour,

donc voila je développe une application en vba et j'ai besoin d'un accès a une base de donnée.

j'ai réussi à le faire en créant une Sources de données (ODBC) et donc tout marchais bien dans mon code je rajoutais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim cnx As ADODB.Connection 'variable permettant de créer la connexion
    Set cnx = New ADODB.Connection
 
    'si le temps d'exécution dépasse 120 secondes, la requête est arrêtée
    cnx.CommandTimeout = 120
    cnx.Open "MABASE"

donc jusque la tout marchais bien mais sauf que "MABASE" était une copie de la base se trouvant sur mon ordinateur.

Maintenant je voudrais créer le lien vers une base se trouvant sur un autre ordinateur du réseau.

donc ça j'ai aussi réussis et j'ai donc dans les sources de données ODBC j'ai MABASE2 en SQL NATIVE CLIENT.

Mais en exécutant mon code en changeant MABASE avec MABASE2 j'ai une erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[Microsoft][SQL Native Client][SQL Server] Echec de l’ouverture de session de l’utilisateur ‘’. L’utilisateur n’est pas associé à une connexion SQL server approuvée

Si quelqu'un peut m'aider pour régler ce problème merci d'avance

Bonne journée

[casavba]

Si la base est stockée dans le (C:\ ou autre) de l'ordinateur en question, tu ne peux pas te connecter.
Par contre si elle est dans le réseau, oui.

La question qui se pose :

La base est stockée où ?

[raph-68i]

tout d'abord merci pour ta réponse

La base se trouve sur un autre ordinateur ds C:\etc.....
je me suis dit que mettre le dossier en partage pourrait résoudre ce problème ?

ou alors je dois déplacer la base pour la mettre sur le lecteur réseau ?

Si près du but pourtant

je tien à ajouter que j'ai suivi une manipulation décrite sur le site de MSDN permettant de créer la connexion en TCP en ouvrant les ports etc..

[raph-68i]

enfait sa marche j'ai changer en mettant ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
'Déclaration de la variable de connexion
Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection
...
 
'Définition de la chaîne de connexion
cnx.ConnectionString = "UID=" & NomUtilisateur &";PWD=" & MotDePasse & ";" & "DRIVER={SQL Server};Server=" & NomServeur & ";Database=" & NomBaseDeDonnées & ";"
 
'Ouverture de la base de données
cnx.Open

Source : http://drq.developpez.com/vb/tutoriels/ADO/Chapitre2/