Discussion :

[TWINOTTER]

comment effacer un post sur le forum ?

[charouel]

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

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
27
 
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

[TWINOTTER]

Donc tout cela me pemet de me connecter a la base de données?? une base de données locale bien sur?

pour user: je laisse user ?
que veut dire id=root? est ce le chemin ou se trouve la BDD?

j'ai effacé le message, car mon pbm etait plus d'afficher des combobox(indice) avec une boucle for indice = 1 to 8 .......next
car j'ai 8 combobox qui se remplissent des memes données. je voulais donc creer des objets indicés pour ne pas faire 8 fois les memes lignes de code
j'ai réussi a le faire....... il me manquait un dimensionnement qui declarait un tableau

effectivement, maintenant, il faut que je remplisse leur contenu , toujours avec des boucles for next

si je crée une list(of combobox(indice)) puis je utilisé la chose suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
for each combobox(indice) as combobox in comboboxS
combobox(indice).item.add(lire("nom")
next

merci pour ta reponse