Je n'ai aps de code sous la main, mais il me semble que j'avais trouvé ca sur vbfrance.com

il te faut utiliser le drivers ODBC mysql (téléchargeable sur le site de mysql)

Je sui pa sur
mé je pense ke tu peu créer ta base de données avec mysql (avec le consol) tu n'aura aucun probléme puis tu doi chercher comment faire la connexion entre mysql et visual basic


tu peu si tu ve acceder au help du visual basic , tu trouvera tous ce que tu cherche...

En effet, pour sa base de données, il peut la créer avec la console, ou meme avec phpmyadmin (si il a installé eaasyphp ou wamp)

le driver odbc necessaire est ici: http://dev.mysql.com/downloads/connector/odbc/5.1.html

ensuite, pour l'utiliser, il s'utilise comme n'importe quel autre odbc. Donc presque toutes les sources que tu trouvera en vb utilisant une bdd seront utilisable avec mysql


fatma: je vois que tu post un peu... je te conseilles de te créer un compte, c'est plus facile pour suivre les messages

Tiens, alors des déclarations générales que j'avais dans mon code:

  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