Access avec le nouveau visual studio 2008 [Résolu]

Signaler
Messages postés
30
Date d'inscription
jeudi 5 juillet 2007
Statut
Membre
Dernière intervention
7 septembre 2008
-
Messages postés
30
Date d'inscription
jeudi 5 juillet 2007
Statut
Membre
Dernière intervention
7 septembre 2008
-
salut à tous,
j'ai récemment installé le visual studio 2008 mais mon ancien code pour me connecter à une bdd access ne marche plus.
savez vous quel modification dois-je faire?
PS:
exp:
Dim Cnx As New ADODB.Connection
Dim rsclient As New ADODB.Recordset
cela ne marche plus!!!!!!!!!!!
===========================
Cnx.Provider = "Microsoft.Jet.Oledb.4.0"
Cnx.ConnectionString = "construction.mdb"
Cnx.Open
rsclient.Open "commande", Cnx, adOpenDynamic, adLockOptimistic
ça non plus!!!!!!!!!!!!

==========================
Merci pour votre aide.

6 réponses

Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
37
A la place de ExecuteNonQuery, il te faut utiliser

- Soit un datareader avec ExecuteReader si tu dois traiter tes données une à une

- Soit un dataadpater connecté à ta commande, une datatable remplie par le dataadapter (methode fill), et ta datatable connectée comme datasource de la grille d'affichage les résultats

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
37
Microsoft.Jet.Oledb.4.0, il s'agit donc surrement d'une base de données Access

Dans ce cas utilise les classes de System.Data.OleDB --> http://msdn.microsoft.com/fr-fr/library/system.data.oledb.aspx

Un OleDBConnection, pour la connection. Au besoin, tu trouveras la chaine de connection sur ce site --> http://www.connectionstrings.com/default.aspx
Un OleDBCommand pour la commande, ensuite suivant le cas un DataReader, DataAdpater, ou autre.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php
Messages postés
30
Date d'inscription
jeudi 5 juillet 2007
Statut
Membre
Dernière intervention
7 septembre 2008

d'accord casy, je vais voir ça.
je te dirai si ça fonctionne ou pas.
merci pour ces informations.
Messages postés
30
Date d'inscription
jeudi 5 juillet 2007
Statut
Membre
Dernière intervention
7 septembre 2008

voila la solution: ( grâce à casy, merci)
Dim ObjetConnection As OleDbConnection
Dim ObjetCommand As OleDbCommand
Dim strConn As String

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= C:\Cours\construction.mdb"
        ObjetConnection = New OleDbConnection
        ObjetConnection.ConnectionString = strConn
        ObjetConnection.Open()
        ObjetCommand = New OleDbCommand
        ObjetCommand.Connection = ObjetConnection
        ObjetCommand.CommandType = CommandType.Text
        ObjetCommand.CommandText = "select numclient from client where client.nom='celine'"
        ObjetCommand.ExecuteNonQuery()
        ObjetConnection.Close()
mais juste un ptit problème c'est que je veux afficher le résultat de la requête.
j'ai pas trouvé la solution!
merci pour vos aides.
Messages postés
30
Date d'inscription
jeudi 5 juillet 2007
Statut
Membre
Dernière intervention
7 septembre 2008

ok casy. je vais voir.
merci beaucoup.
i'll keep you in touch.
Messages postés
30
Date d'inscription
jeudi 5 juillet 2007
Statut
Membre
Dernière intervention
7 septembre 2008

voila la solution (grâce à casy encore)
        Dim reader As OleDbDataReader = ObjetCommand.ExecuteReader()
        While reader.Read()
            MsgBox(reader(0).ToString())
        End While
        reader.Close()
merci beaucoup casy. c'est gentil.