Connexion VB6-MySQL

Signaler
Messages postés
37
Date d'inscription
dimanche 20 mai 2007
Statut
Membre
Dernière intervention
11 juin 2010
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Salut,

J'ai une base de données à faire à l'aide de mysql et je veux bien récupérer les données de cette base à partir du VB6 .

Don je veux savoir comment faire la connexion VB6-MySQL

7 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
67
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
36
salut,



<hr />
'    CONNEXION À UNE BASE DE DONNÉES MYSQL
'    http://www.codyx.org/snippet_connexion-base-donnees-mysql_108.aspx#1899
'    Posté par [ PCPT ] le 23/06/2008
<hr />




'  
COPIEZ LE CODE CI-DESSOUS DANS UN MODULE DE CLASS, VOUS AVEZ ACCES AUX OBJETS DB
ET RS


Option Explicit


' msado25.tlb (Microsoft ActiveX Data Objects 2.5
Library)


' msadox.dll (Microsoft ADO Ext. 2.7 for
DLL and Security)


Public 
DB 
As 
New ADODB.Connection


Public 
RS 
As 
New Recordset

    
'  
CONNEXION
Public Function DBConnect(ByVal sDBName As String, Optional ByVal sHost As String = "127.0.0.1", Optional ByVal sUser As String = "root", Optional ByVal sPassword As String = vbNullString) As
Boolean
    Me.DBClose
    With DB
        .ConnectionString = "DRIVER={MySQL ODBC
3.51 Driver};SERVER=" & sHost & ";DATABASE=" & sDBName & ";UID=" & sUser & ";PWD=" & sPassword & ";OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384 & ";"
        .CursorLocation = adUseClient
        .ConnectionTimeout = 1
        .CommandTimeout = 1
        On Error GoTo Err_Handler
        .Open
        DBConnect = True
        Exit Function
    End With
Err_Handler:
    Debug.Print "[DBConnect] " & Err.Number & " :
" & Err.Description
End Function
'   FERMETURE
DB
Public Sub DBClose()
    Me.DB.Cancel
    If Me.DBConnected Then Me.DB.Close
End Sub
'   BASE CONNECTéE ?
Public Function DBConnected() As Boolean
    DBConnected = Not (Me.DB.State = adStateClosed)
End Function
'  
REQUÊTE
Public Function RSExecute(ByVal sSql As String) As Boolean
    If Me.DBConnected Then
        Call RSClose
        Me.RS.CursorLocation = adUseClient
        On Local Error GoTo Err_Handler
        Me.RS.Open sSql, Me.DB, adOpenDynamic, adLockOptimistic,
-1
        RSExecute = True
    End If
    Exit Function
Err_Handler:
    Debug.Print "[RSExecute] " & Err.Number & " :
" & Err.Description
End Function
'   FERMETURE
RS
Private Sub RSClose()
    Me.RS.Cancel
    If Not (Me.RS.State = adStateClosed) Then
Me.RS.Close
End Sub
'   DESTRUCTION
CLASS
Private Sub Class_Terminate()
    Call RSClose:   Set Me.RS = Nothing
    Me.DBClose:     Set Me.DB = Nothing
End Sub







<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp 
Messages postés
37
Date d'inscription
dimanche 20 mai 2007
Statut
Membre
Dernière intervention
11 juin 2010

salut PCPT,
j'ai exécuté le code que vous m'avez donné et il me donne l'erreur suivante:
[DBConnect] -2147467259 :  [Microsoft][Gestionnaire de pilotes ODBC] Source de données introuvable et nom de pilote non spécifié.
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
36
comment as-tu utilisé (déclarations etc) le code?
quelle version d'ADO et MDAC as-tu?
Messages postés
37
Date d'inscription
dimanche 20 mai 2007
Statut
Membre
Dernière intervention
11 juin 2010

j'ai instalé ODBC 5.0
et concernant le code j'ai utilisé juste la fonction:
Private Sub Form_Load()

'Déclaration de la variable de connexion
Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection

cnx.ConnectionString = "UID=root ; Pwd=sima ;DRIVER={MySQL ODBC 5.0 Driver};Server=localhost ;Database=test"

'Ouverture de la base de données
 On Error GoTo Err_Handler
cnx.Open
 MsgBox "true"
Err_Handler:
    Debug.Print "[DBConnect] " & Err.Number & " :  " & Err.Description

End Sub

et de plus j'ai ajouté les références :
microsoft ADO Ext.6.0 for DLL and Security, ODBC Driver & Data source name function, microsoft ActiveX Data object 6.0
Messages postés
37
Date d'inscription
dimanche 20 mai 2007
Statut
Membre
Dernière intervention
11 juin 2010

Salut,
j'ai instaler ODBC 5.1 et maintenant il me donne une autre erreur :(((
[DBConnect] -2147467259 :  [MySQL][ODBC 5.1 Driver]Access denied for user 'root '@'localhost' (using password: YES)
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
36
... donc tu n'utilises pas mon code