Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 2 sur 2
  1. #1
    Membre chevronné
    Avatar de Asdorve
    Homme Profil pro Xavier
    Inscrit en
    mars 2004
    Messages
    1 157
    Détails du profil
    Informations personnelles :
    Nom : Homme Xavier
    Âge : 28
    Localisation : France

    Informations forums :
    Inscription : mars 2004
    Messages : 1 157
    Points : 605
    Points
    605

    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,

  2. #2
    Expert Confirmé

    Homme Profil pro Eric Metz
    Développeur informatique
    Inscrit en
    avril 2006
    Messages
    920
    Détails du profil
    Informations personnelles :
    Nom : Homme Eric Metz
    Âge : 38
    Localisation : Belgique

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

    Informations forums :
    Inscription : avril 2006
    Messages : 920
    Points : 3 246
    Points
    3 246

    Par défaut

    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

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •