Bonjour,
Je suis un débutant et je souhaite avoir un peu d'aide pour un projet de base de données access.
J'ai une Form1
Listbox1
Textbox1
Je voudrais afficher les informations liées et restante sur la même table quand je clique sur le nom dans la listbox.
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
43
44
45
46
47 Imports System.Data Imports System.Data.OleDb Public Class Form1 Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data source= C:\Users\Milardi\Documents\Contacts.accdb") Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand() Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try Mycommand.CommandText = "SELECT NOM FROM CONTACTS" MyConnexion.Open() Catch ex As OleDbException MsgBox(ex.Message) End Try Dim myReader As OleDbDataReader = Mycommand.ExecuteReader() Do While myReader.Read() ListBox1.Items.Add(myReader.GetString(0)) Loop myReader.Close() MyConnexion.Close() End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged End Sub End Class
J'espère de j'ai été clair dans mes propos.
Merci d'avance.
--
Partager