Discussion :

[patou41000]

Bonjour à tous,
essai connection à ma base Mysql non ok.
code erreur = 1043.
Message décrivant l'erreur = Mauvais 'Handshake'.

documentation utilisé : http://rp.developpez.com/vb/tutoriels/mysql/
Bien sur les 3 modules Mysql sont dans le projet, un si que la libmysql.dll

Voici mon code utilisé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Option Explicit
 
Dim pMySQL As Long
Dim zHostBD As String
Dim zUserBD As String
Dim zPassBD As String
Dim zBaseBD As String
 
Private Sub Form_Load()
zHostBD = "127.0.0.1" ' ou localhost
zUserBD = "mon user de connection"
zPassBD = "mon passe de connection"
zBaseBD = "livredor" ' nom de la base de donnée
 
' Initialiser la connexion à MySQL
pMySQL = mysql_init(0)
 
If mysql_real_connect(pMySQL, zHostBD, zUserBD, zPassBD, zBaseBD, 0, "", 0) = 0 Then
      ' la connexion a échoué
      ' Obtenir le code d'erreur
      ' mysql_errno() renvoie le n° de l'erreur survenue lors du dernier appel à l'API, pour la connexion donnée. Une valeur nulle indique qu'il n'y a pas eu d'erreur.
      Dim myErrorCode As Long
      myErrorCode = mysql_errno(pMySQL)
      '
      ' Obtenir un message décrivant l'erreur
      ' mysql_error() renvoie un message décrivant l'erreur survenue lors du dernier appel à l'API, pour la connexion donnée. Un message vide indique qu'il n'y a pas eu d'erreur.
      Dim pMyErrorMsg As Long, myErrorMsg As String
      pMyErrorMsg = mysql_error(pMySQL)
      myErrorMsg = CopieChaine(pMyErrorMsg)
      MsgBox "La connexion a échoué." & Chr$(10) & "Code erreur = " & myErrorCode & Chr$(10) & "Message décrivant l'erreur = " & myErrorMsg
Else
    ' la connexion a réussi
    MsgBox "La connexion a réussi."
End If
 
' Fermer la connexion
mysql_close (pMySQL)
 
End Sub

Si quelqu'un à la solution, Merci d'avance.
Je ne peux pas écrire plus de code tant que je ne peux-pas me connecté à ma base.

[OhMonBato]

Combien vaut pMySQL après

Code :

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

pMySQL = mysql_init(0)

?

[patou41000]

Bonjour,

essai avec accés sur plusieur base de donnée.
pMySQL = 54410232

Merci

[patou41000]

Bonjour,

J'ai fais l'essai avec l'exécutable du projet, pMySQL valeur différente à chaque essai mais jamais vaut 0.
Code erreur + Message décrivant l'erreur toujours identique.
je voie pas d'ou viens l'erreur.

si quelqu'un à une idée, je suis preneur.
MERCI

[ProgElecT]

Peut être pas de rapport mais

Code :

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

zBaseBD = "livredor" ' nom de la base de donnée

ne serait-ce pas

Code :

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

zBaseBD = "livredor.MDB" ' nom de la base de donnée

s'il s’agissait d'une base acces.
Cela m'étonne que tu ne doives les passer.

[patou41000]

Bonjour,

nom de l'une des bases Mysql = livredor
Les fichiers associé sont :
livredor.MYD
livredor.MYI
livredor.frm
db.opt

J'accéde trés bien à mes bases de données en programmation PHP.
D'apres la documentation sité plus haut

Code :

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

zBaseBD = "livredor" ' nom de la base de donnée

c'est bien un nom de base sans extension.

Merci d'avoir essayer