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"