Asrix
Messages postés8Date d'inscriptiondimanche 23 novembre 2003StatutMembreDernière intervention 4 janvier 2009 1 déc. 2005 à 23:59
Salut! j'ai un problème, j'arrive à accéder à la base de donnée et à la table, mais j'arrive pas à accéder à l'enregistrement de la table, je demmmade un exemple si possible.
voilà mon e-mail (a.asrix@caramail.com).
merci.
cs_labout
Messages postés1356Date d'inscriptionsamedi 8 décembre 2001StatutMembreDernière intervention23 octobre 20068 2 déc. 2005 à 19:00
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