Voici un exemple avec ADODB
Dans un module
Public gOcnx As New ADODB.Connection
Function init
Dim sConnectString As String
sConnectString=Provider="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\vb.net\Immo\Immo\Database\immo.mdb;Persist Security Info=False"
gOcnx.ConnectionString = sConnectString
If gOcnx.State = 0 Then
gOcnx.Open()
End If
end function
Exemple de création d'un recordset sur la table cession de la base immo
dim req as string
dim rscession as new adodb.recordset
sReq = "select * from cession order by noinv desc"
rscession.CursorType = ADODB.CursorTypeEnum.adOpenStatic
rscession.CursorLocation = ADODB.CursorLocationEnum.adUseClient
rscession.Open(sReq, gOcnx, , , ADODB.CommandTypeEnum.adCmdText)
' parcours du recordset
do while not rs.eof
' faire ce que l'on veut
rscession.movenext
loop
rscession.close
Il faut pour cela ajouter la référence ADODB au projet
labout