Précédent   Forum du club des développeurs et IT Pro > Autres langages > Général Visual Basic 6 et VBScript > VB 6 et antérieur
VB 6 et antérieur Visual basic 6 et versions antérieures. Avant de poster -> La FAQ VB6, Les tutoriels VB
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse
 
Outils de la discussion
Publicité
'
Vieux 09/11/2012, 10h51   #1
Asdorve
Membre expérimenté
 
Avatar de Asdorve
 
Inscription : mars 2004
Messages : 1 119
Détails du profil
Informations personnelles :
Âge : 27

Informations forums :
Inscription : mars 2004
Messages : 1 119
Points : 500
Points : 500
Envoyer un message via MSN à Asdorve
Par défaut Connexion à une base MySql distante

Bonjour,

Mon hébergeur web me permet d'avoir une base mysql.
Puis-je en vb, depuis mon poste, établir une connexion avec cette base?

J'ai essayé d'utiliser
Code :
1
2
3
4
5
6
7
8
 
MaConnexion_cnx.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" _
                                & "DATABASE=NOMBASE;" _
                                & "SERVER=IP;" _
                                & "PORTNumDuPor=3306;" _
                                & "UID=USER;" _
                                & "PWD=PASS;" _
                                & "OPTION=3
Comment puis-je faire?

MErci d'avance,
__________________
Asdorve
http://www.nouspartageons.fr
Asdorve est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 13/12/2012, 22h53   #2
infosam76
Membre Expert
 
Homme Eric Metz
Développeur informatique
Inscription : avril 2006
Messages : 518
Détails du profil
Informations personnelles :
Nom : Homme Eric Metz
Âge : 36
Localisation : Belgique

Informations professionnelles :
Activité : Développeur informatique
Secteur : Santé

Informations forums :
Inscription : avril 2006
Messages : 518
Points : 1 608
Points : 1 608
Bonsoir ,

Petit bout de code qui pourrait vous airder :

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim connection_Driver As String
Dim connection As New ADODB.Connection
Dim recordsetname As New ADODB.Recordset
 
connection_Driver = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=YOURSERVER;DATABASE=YOURDATABASE;UID=YOURUSERNAME;PWD=YOURPASSWORD;OPTION=YOUROPTIONS"
 
connection.ConnectionString = connection_Driver
connection.open
Set recordsetname =  connection.Execute("SELECT * FROM TABLENAME")
 
connection.Close
Set connection = Nothing
Set recordsetname = Nothing
End Sub
J'espère avoir pu vous aider
infosam76 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse
Outils de la discussion

Navigation rapide


Fuseau horaire GMT +2. Il est actuellement 06h27.


 
 
 
 
Partenaires

Hébergement Web