darkstars
Messages postés5Date d'inscriptionlundi 20 février 2006StatutMembreDernière intervention22 février 2008
-
27 avril 2006 à 23:42
cs_drahcir
Messages postés745Date d'inscriptionmardi 30 novembre 2004StatutMembreDernière intervention15 septembre 2009
-
28 avril 2006 à 08:49
Bonjours à tous!
J'essais de chercher dans ma base de donner au champs automatique et sa marche pas toutes les champs non automatique marche mais les autres
Mon erreur est Aucune valeur donnée pour un ou plusieurs des paramètres requis.
voici mon code
'Variables locales
Dim maConnexion
As OleDbConnection
Dim maCommande
As OleDbCommand
Dim monDataReader
As OleDbDataReader
Dim nom
As
String
Dim NoMembre
As
Stringnom =
Me.lstBlogs.SelectedValue
'Ouvre la bd.maConnexion New OleDbConnectionmaConnexion.ConnectionString "provider=microsoft.jet.oledb.4.0; DATA source=C:\Inetpub\wwwroot\FrancoisBenoitTPFinal\BD_TP5.mdb"
maConnexion.Open()
'Va chercher dans la bd.
Dim chaineSQL "SELECT TexteArticle,DateArticle,CheminImage,CheminVideo,NoMembre From Article where TitreArticle '" + nom + "'"maCommande =
New OleDbCommand(chaineSQL, maConnexion)monDataReader = maCommande.ExecuteReader
Dim SpeudonymeMembre
As
String
'Ouvre la bd.maConnexion2 New OleDbConnectionmaConnexion2.ConnectionString "provider=microsoft.jet.oledb.4.0; DATA source=C:\Inetpub\wwwroot\FrancoisBenoitTPFinal\BD_TP5.mdb"
maConnexion2.Open()
'Va chercher dans la bd.
Dim chaineSQL2 "SELECT SpeudonymeMembre From Membre where NoMembre '" + NoMembre + "'"maCommande2 =
New OleDbCommand(chaineSQL2, maConnexion2)monDataReader2 = maCommande2.ExecuteReader