+ Répondre à la discussion
Affichage des résultats 1 à 3 sur 3
  1. #1
    Membre du Club
    Inscrit en
    janvier 2010
    Messages
    165
    Détails du profil
    Informations forums :
    Inscription : janvier 2010
    Messages : 165
    Points : 40
    Points
    40

    Par défaut Remplir un combobox à partir d'une base de données

    Salut à tous
    Voilà je travaille sur vb 2008 et j'utilise la base de données MySql. Le problème c'est que je n'arrive pas à remplir mon combobox à partir de champs de table de ma base de données. J'ai tout essayé mais rien à faire
    Pouvez vous m'aider ?
    Merci d'avance

  2. #2
    Membre chevronné Avatar de nsanabi
    Homme Profil pro nabil nayd
    Inscrit en
    septembre 2003
    Messages
    570
    Détails du profil
    Informations personnelles :
    Nom : Homme nabil nayd

    Informations forums :
    Inscription : septembre 2003
    Messages : 570
    Points : 645
    Points
    645

    Par défaut

    j'ai tous essayé mais rien à faire
    montre nous ce que tu as essayé qu'on puisse t'aider à réparer l'erreur.

  3. #3
    Membre du Club
    Inscrit en
    janvier 2010
    Messages
    165
    Détails du profil
    Informations forums :
    Inscription : janvier 2010
    Messages : 165
    Points : 40
    Points
    40

    Par défaut

    Pas la peine le problème est résolu
    voici le code pour ceux qui cherche une solution

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    Public Class Form1
        Dim conn As MySqlConnection
        Dim exec As MySqlCommand
        Dim lire As MySqlDataReader
        Dim host As String
        Dim req As String
     
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            host = "server=localhost;user id=root; password=; database=messagerie"
            req = "select nom from profil"
            conn = New MySqlConnection
            conn.ConnectionString = host
            Try
                conn.Open()
                exec = New MySqlCommand(req, conn)
                lire = exec.ExecuteReader
                Do While lire.Read()
                    ComboBox1.Items.Add(lire("nom"))
                Loop
                lire.Close()
            Catch ex As Exception
                MessageBox.Show(ex.ToString(), "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
     
        End Sub
    End Class
    bonne continuation

+ Répondre à la discussion
Cette discussion est résolue.

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
  •