Liaison base de données

Attribute VB_Name = "access_bdd_mysql"
  Public connex As ADODB.Connection
  Public rs As ADODB.Recordset
  Public rs1 As ADODB.Recordset
  Public rs2 As ADODB.Recordset
  Public rs_sub 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"
  datbase = "nom_de_la_base"
  user_db = "root"
  pwd_user_db = ""
  option_db = 35


  Set connex = New ADODB.Connection
  Set rs = New ADODB.Recordset
  Set rs1 = New ADODB.Recordset
  Set rs2 = New ADODB.Recordset
  Set rs_sub = 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 Sub Deconnecter()
  connex.Close
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

Public Sub exec_requete(ByVal rs_sql As String)
'cette procedure va permettre de récupérer des informations concernant les tables
  If connex.State = 0 Then
    Connecter_BDD
  End If
  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)
  On Error GoTo erreur
'Debug.Print rs_sql
  connex.Execute rs_sql
  Exit Sub
erreur:
Debug.Print rs_sql
MsgBox "Une erreur c'est produite avec.... " & rs_sql
End Sub

Public Sub fin()
'ferme les différentes connections ouverte
  If connex.State = 1 Then Deconnecter
  If rs_sub.State = 1 Then rs_sub.Close
  If rs.State = 1 Then rs.Close
  If rs1.State = 1 Then rs1.Close
  If rs2.State = 1 Then rs2.Close
End Sub