Discussion :

[abdallahi]

bonjour
je viens de commencer le developpment d'une application qui utilise un serveur mysql. j'ai installé mysql-connector-odbc-3.51 .
et je me connecte correctement sur ma base de données si je travail sur le serveur avec le code suivant:

Code :

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

1
2
3
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};& SERVER=localhost; DATABASE=fondation;UID=bsa;PWD=bsa; OPTION=3"
 
conn.Open

que dois je changer dans ce code pour que je me connect sur un poste client.

[Delbeke]

J'y connais rien sur MySql, mais il me semble que la modification doit porter sur

Code :

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

SERVER=localhost

Je verrais bien quelque chose du genre

Code :

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

SERVER=192.168.0.1

Ou alors

Code :

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

SERVER="\\NomDuServeur"

[abdallahi]

bonjour
j'ai essayer avec "\\nomserveur" et 192.168.1.146 qui est ladresse ip de ma machine .mais j'ai le message suivant :
mysql odbc1.3.5.1 can't connect to mysql serveur on 192.16.1.146

[Met@lnono]

A-tu bien déclaré ta connexion :

Code :

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

Set conn = New ADODB.Connection

As-tu vérifié le paramétrage de ton FireWall ?

[abdallahi]

voici le code que j'ai écrit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim fld As ADODB.Field
Dim sql As String
'connect to MySQL server using MySQL ODBC 3.51 Driver
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
'rem # 'Connexion à la base mysql
Rem 'connexion.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=fondation;UID=root;PWD=""; OPTION=3"
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};& SERVER=192.168.1.164:3660; DATABASE=fondation;UID=bsa;PWD=bsa; OPTION=3"
 
conn.Open

[Met@lnono]

Personnellement j'utilise ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    'Paramétrage de la connexion à la base de données
    Set conn = New ADODB.Connection
    Set rs01 = New ADODB.Recordset
    'Mode d'utilisation
    conn.CursorLocation = adUseClient
    'Exécution de la requête de connexion au serveur MySQL
    conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
        & "SERVER=serveur;" _
        & "DATABASE=base;" _
        & "UID=user;" _
        & "PWD=password;" _
        & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
    'Ouverture de la connexion
    conn.Open

Peut être que ça vient des "OPTION"

[abdallahi]

ça marche seleument avec server = localhost .si je suis sur un client ne maeche pas avec serveyr = monserveur

[Delbeke]

Heu, avec "\\nomserveur" as tu une machine qui s'apelle vraiement comme çà ?
Puis essayes de voir ce lien
http://www.connectionstrings.com/?carrier=mysql

[abdallahi]

bonjour
j'ai tout essayer main rien ne marche, sur le poste client .

Code :

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

1
2
connex.CursorLocation = adUseServer
  connex.Open "DRIVER={MySql};SERVER=" & serv_db & ";DATABASE=" & datbase & ";USER=" & user_db & ";PASSWORD=" & pwd_user_db & ";OPTION=" & option_db & ""

avec user_db = "\\Pabdelahi" qui est le nom de la machinne sur laquelle se trouve mysql
et j'ai assyé aussi
user_db = "192.168.1.146" qui son adreesse IP .
ET AUSSI

[Phifi]

Bonjour,

- "user_db" doit être un utilisateur enregistré de la base MySQL, et en aucun cas l'adresse machine qui est "serv_db" dans ton cas.
- si "user_db" = "root", il y a une configuration du serveur à faire pour permettre l'accès à la base d'un poste distant avec le compte admin par défaut (dans le cas contraire, ça marchera seulement en local)
- tester en désactivant le pare-feu Windows XP qui bloque systématiquement les connexions entrantes sur le port MySQL sans rien dire...