client mysql avec vb6

Version imprimable

13/07/2008, 17h30
abdallahi

client mysql avec vb6
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:

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.
13/07/2008, 18h32
Delbeke

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

Code:

SERVER=localhost

Je verrais bien quelque chose du genre

Code:

SERVER=192.168.0.1

Ou alors

Code:

SERVER="\\NomDuServeur"
14/07/2008, 14h02
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
15/07/2008, 07h21
Met@lnono

A-tu bien déclaré ta connexion :

Code:

Set conn = New ADODB.Connection

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

voici le code que j'ai écrit :

Code:

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

Personnellement j'utilise ceci :

Code:

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"

15/07/2008, 15h50
abdallahi

ça marche seleument avec server = localhost .si je suis sur un client ne maeche pas avec serveyr = monserveur
15/07/2008, 17h11
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
17/07/2008, 17h01
abdallahi
bonjour
j'ai tout essayer main rien ne marche, sur le poste client .
Code:

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
17/07/2008, 18h36
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... :roll: