Connexion vb/mysql
Résolu
nada2008
Messages postés
27
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
8 avril 2009
-
26 oct. 2008 à 20:57
nada2008 Messages postés 27 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 8 avril 2009 - 26 oct. 2008 à 22:01
nada2008 Messages postés 27 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 8 avril 2009 - 26 oct. 2008 à 22:01
A voir également:
- Connexion vb/mysql
- Connexion mysql php - Conseils pratiques -PHP
- Connexion base de données mysql java netbeans - Forum Java
- MySQL et NetBeans : probleme de connexion - Forum Java
- Créer un utilisateur mysql - Conseils pratiques -PHP
- Connection d'une application JAVA a la base de donnees avec netbeans - Forum Java
2 réponses
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
26 oct. 2008 à 21:16
26 oct. 2008 à 21:16
salut,
CODYX ???
' 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 <
CODYX ???
' 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 <
nada2008
Messages postés
27
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
8 avril 2009
26 oct. 2008 à 22:01
26 oct. 2008 à 22:01
merciiiiiiiiiiiiiiiiiiiiii bcq c gentil :)
