cs_refaat
Messages postés30Date d'inscriptionjeudi 5 juillet 2007StatutMembreDernière intervention 7 septembre 2008
-
23 août 2008 à 13:34
cs_refaat
Messages postés30Date d'inscriptionjeudi 5 juillet 2007StatutMembreDernière intervention 7 septembre 2008
-
25 août 2008 à 18:18
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!!!!!!!!!!!!
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 201440 25 août 2008 à 17:19
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
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.
cs_refaat
Messages postés30Date d'inscriptionjeudi 5 juillet 2007StatutMembreDernière intervention 7 septembre 2008 25 août 2008 à 16:55
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_refaat
Messages postés30Date d'inscriptionjeudi 5 juillet 2007StatutMembreDernière intervention 7 septembre 2008 25 août 2008 à 18:18
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.