{MySQL} Visual Basic 6.0 et MySQL

  Public connex As ADODB.Connection
  Public rs As ADODB.Recordset

  Public serv_db As String
  Public datbase As String
  Public user_db As String
  Public pwd_user_db As String
  Public option_db As Integer

Public Sub config()
'attention il faut mettre vos option de connection
  serv_db = "127.0.0.1"  --l'adresse ip du serveur (ici c'est le meme ordi)
  datbase = "mabase"  --le nom de la base de données
  user_db = "root"
  pwd_user_db = ""
  option_db = 35

  Set connex = New ADODB.Connection
  Set rs = New ADODB.Recordset

End Sub

Public Sub Connecter_BDD()
  On Error GoTo erreur
  connex.CursorLocation = adUseServer
    connex.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & serv_db & ";DATABASE=" & datbase & ";USER=" & user_db & ";PASSWORD=" & pwd_user_db & ";OPTION=" & option_db & ""
    Exit Sub
erreur:
MsgBox "Impossible d'établir la connection à la base de données MySQL."
End Sub

Public Function requete(ByVal rs_sql As String, ByRef rs_sub As ADODB.Recordset) As Boolean
'cette procedure va permettre de récupérer des informations concernant les tables
'retourne true dans le cas ou la requete et bien executer et que des enregistrement sont présents
  If connex.State = 0 Then
    Connecter_BDD
  End If
  If connex.State = 1 Then
    Set rs_sub = New ADODB.Recordset
    rs_sub.ActiveConnection = connex
'    rs_sql = Replace(rs_sql, "'", "[%]", 1, -1)
    rs_sql = Replace(rs_sql, "|", "'", 1, -1)
    rs_sql = Replace(rs_sql, "''", "' '", 1, -1)
    rs_sql = Replace(rs_sql, "[%]", "''", 1, -1)
Debug.Print rs_sql
    On Error GoTo erreur
    rs_sub.Open rs_sql, connex, adOpenDynamic, adLockOptimistic
    If rs_sub.EOF Then
      requete = False
    Else
      requete = True
    End If
  Else
    requete = False
  End If
  Exit Function
erreur:
'MsgBox "Une erreur c'est produite avec.... " & rs_sql
requete = False
End Function