Accès Bases de Données ACCESS VB.Net !!!!!!!!

barth707 Messages postés 73 Date d'inscription lundi 30 juin 2003 Statut Membre Dernière intervention 8 juin 2005 - 4 déc. 2003 à 18:46
cs_labout Messages postés 1356 Date d'inscription samedi 8 décembre 2001 Statut Membre Dernière intervention 23 octobre 2006 - 2 déc. 2005 à 19:00
Bjr,
J'ai migré sur vb.net et mon ancien projet vb6 utilisais des connection adodb mais la sous vb;net je ne sais pas omment faire.

Voila si quelqu'un a un petit exemple pour ce connecter à une base de donnée access par du code ce serait sympat.

Merci d'avance.

A+
barth707

3 réponses

cs_labout Messages postés 1356 Date d'inscription samedi 8 décembre 2001 Statut Membre Dernière intervention 23 octobre 2006 8
4 déc. 2003 à 22:52
labout
Je viens de mettre ce soir une source sur les code vb.net tout ce qu'il faut.

Objets d'une base ACCESS DLL Via OLEDB etc..

Tu as dedans les connections ADODB et OLEDB
L'adodb marche toujours très bien
0
Asrix Messages postés 8 Date d'inscription dimanche 23 novembre 2003 Statut Membre Derniè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.
0
cs_labout Messages postés 1356 Date d'inscription samedi 8 décembre 2001 Statut Membre Dernière intervention 23 octobre 2006 8
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



labout
0
Rejoignez-nous