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
| Option Explicit
Dim cn As ADODB.Connection
Dim bndNums As BindingCollection
Private WithEvents rsNum As ADODB.Recordset
Private Sub form_load()
Dim SQL As String
Dim strConnex As String
Dim i As Integer
Set cn = New ADODB.Connection
Set rsNum = New ADODB.Recordset
strConnex = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Data\Time2005.mdb"
SQL = "select * From Repertoire"
cn.Open strConnex
rsNum.CursorLocation = adUseClient
rsNum.Open SQL, cn, adOpenDynamic, adLockOptimistic, adCmdText
Set DataList1.RowSource = rsNum
DataList1.ListField = rsNum.Fields(1).Name
Set bndNums.DataSource = rsNum
With bndNums
.Add TxtNumeros(0), "Text", "N°", , "Numero"
.Add TxtNumeros(1), "Text", "Nom", , "Le Nom"
.Add TxtNumeros(2), "Text", "Departement", , "Département"
End With
End Sub |
Partager