1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Imports System.IO
Imports System.Data
Imports System.Data.OleDb
...
Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & "C:\Users\aiglevb\Documents\Visual Studio 2010\Projects\client.accdb")
Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
Mycommand.CommandText = "SELECT NOM FROM Table1"
MyConnexion.Open()
Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
Do While myReader.Read()
ListBox1.Items.Add(myReader.GetString(0))
Loop
myReader.Close()
MyConnexion.Close() |
