Bonjour,
Je souhaiterai afficher dans une listbox le résultat d'une requête.
Ma connexion à la base fonctionne mais c'est l'affichage où je pêche
Voici mon code :
Pouvez vous m'aider ?
Code : 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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42 Private Sub affiche_utilisateur_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim cnx As OleDb.OleDbConnection Dim cmd As OleDb.OleDbCommand Dim dta As OleDb.OleDbDataAdapter Dim dts As New DataSet Dim dtt As DataTable Dim conn As String Dim requete As String Dim nombre As Integer 'ouverture de la connection à partir du répertoire de l'application conn = "Provider=Microsoft.jet.OLEDB.4.0;Data Source =" & Application.StartupPath & "\connection.mdb" cnx = New OleDb.OleDbConnection cnx.ConnectionString = conn cnx.Open() requete = "select * from utilisateur " cmd = New OleDb.OleDbCommand(requete) dta = New OleDb.OleDbDataAdapter(cmd) cmd.Connection() = cnx 'chargement du DataSet à partir du DataAdapter dta.Fill(dts, "utilisateur") 'chargement de la DataTable à partir du Dataset dtt = dts.Tables("utilisateur") nombre = 0 While nombre <= dtt.Rows.Count Listeutilisateur.Items.Add('Resultat requete que je veuxaffiché) nombre = nombre + 1 End While cnx.Close() End Sub
Merci
Partager