begin process at 2012 02 14 00:16:47
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > Forum > 

Visual Basic 6

 > 

Base de données

 > 

ADO & DAO

 > 

connexion vb/mysql

Derniers messages déposésPoser une question dans le forum ou lancer une discussion

connexion vb/mysql

dimanche 26 octobre 2008 à 20:57:48 | connexion vb/mysql

nada2008
salut tout l monde,

j'ai besoin de faire une connexion abodb en vb6 avec une base mysql


merciiiiiiii d'avance
dimanche 26 octobre 2008 à 21:16:16 | Re : connexion vb/mysql

PCPT

Administrateur CodeS-SourceS
Réponse acceptée !
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
'   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


Prenez un instant pour répondre à ce sondage svp <
dimanche 26 octobre 2008 à 22:01:44 | Re : connexion vb/mysql

nada2008
merciiiiiiiiiiiiiiiiiiiiii bcq c gentil :)


Cette discussion est classée dans : vb, mysql, connexion

Répondre à ce message

Sujets en rapport avec ce message

erreur de connexion vb 6.0 to mysql [ par grandarry ] salut tout le monde jarrive a connecté ma base mysql avec vb .jai installé le mysql odbc drivers 5.1 jai l' erreur suivante :------------------------- connexion vb mysql en réseau(plus d'une machine) [ par babylone5 ] Slt à tous!J'ai un problème de configuration réseau avec MySQLEn effet j'utilise VB6 , easyphp 1.7 et VB MySQL . Lorsque je suis en local (sur le serv connexion VB Net avec MYSQL [ par IrisTun ] Bonsoir,please j'arrive pas à me connecté a ma base MySQl à traver une application en Vb Net, si vous pouvez aider moi.Merci connexion vb.net 2008 avec MySql de php [ par progdebut1 ] Bonjour, j'aimerai bien connecter vb.net 2008 a une base de données Mysql de php. Je ne sais pas comment y procéder. S'il vous plait, j'ai besoin de v pblme connexion vb.net/mysql avec connector odbc [ par jooosaaa ] svp comment ce fait la connexion entre vb.net/mysql en utilisant connector odbc. Connexion VB MySQL [ par jcharles ] J'ai télécharger sur www.Mysql.com le pilote ODBC et je l'ai installé.J'ai effectué la connexion a ma base MySQL et la connexion s'effectue bien.Maint connexion a une base de données MYSQL en VB [ par craab ] Bonjour à tous!Je souhaite faire une connexion à une base MYSQL en VB. J'ai l'impression qu'il fallait un driver ODBC donc j'ai installé MyODBC-3.51.0 connexion a une bd mysql avec vb [ par far ] Je cherche un script en vb pour me connecter a une base de donnee mysql se trouvant dans un serveur distant.Merci de votre generosite et de votre cola Pb de connexion ente vb et mysql [ par Elipsis1er ] bonjour, j'utilise le tutoriel de http://rp.developpez.com/vb/tutoriels/mysql/J'ai rencontré une erreur dans la fonction mysql_real_connect. Le messag VB.net connexion mysql [ par jesusig2 ] Bonjour je suis étudiant en bts informatique de gestion et je dévelloppe actuellement un programme sous vb.net. Je souhaite utilisé une base de donnée


Nos sponsors


Sondage...

Comparez les prix


iPod touch 3rd Generation (64 Go)
Entre 374€ et 379€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Happy Bright Landscape WIth ButterfliesPhoto Monument Valley Utah known as The Mittens
Photo Water in the Beginning of the Grand Canyon 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,499 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)