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
| Dim oADORemplirList As ADODB.Connection
Dim oRSRemplirList As ADODB.Recordset
Dim strSQLRemplirList As String
Set oADORemplirList = New ADODB.Connection
With oADORemplirList
.Provider = "Microsoft.jet.oledb.4.0"
.Mode = adModeShareDenyNone
.ConnectionString = "E:\Qualification 2007\Fraipont\VB Fraipont Qualif Pc Mag\MagPc.mdb"
.Open
End With
Set oRSRemplirList = New ADODB.Recordset
strSQLRemplirList = "SELECT fldNom FROM tblCarteMere ORDER BY fldNom"
With oRSRemplirList
.CursorLocation = adUseClient
.Open strSQLRemplirList, oADORemplirList, adOpenForwardOnly, adLockOptimistic
.Properties.Refresh
.MoveLast
.MoveFirst
Do While Not .EOF
ListCarteMere.AddItem .Fields("fldNom").Value
.MoveNext
Loop
.Close
End With
oADORemplirList.Close
Set oRSRemplirList = Nothing
Set oADORemplirList = Nothing |
Partager