Select Et champs automatique asp.net

darkstars Messages postés 5 Date d'inscription lundi 20 février 2006 Statut Membre Dernière intervention 22 février 2008 - 27 avril 2006 à 23:42
cs_drahcir Messages postés 745 Date d'inscription mardi 30 novembre 2004 Statut Membre Dernière intervention 15 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

monDataReader.Read()

NoMembre = monDataReader("NoMembre")

Me.lblDescription.Text = monDataReader("TexteArticle")

'Ferme la bd.monDataReader.Close()

maConnexion.Close()

'Variables locales

Dim maConnexion2
As OleDbConnection

Dim maCommande2
As OleDbCommand

Dim monDataReader2
As OleDbDataReader

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

 

monDataReader2.Read()

SpeudonymeMembre = monDataReader2("SpeudonymeMembre")

Me.lblCreateur.Text = SpeudonymeMembre

'Ferme la bd.monDataReader2.Close()

maConnexion2.Close()

 

End
Sub

Le programme plante :
monDataReader2 = maCommande2.ExecuteReader

Merci D'avance 

1 réponse

cs_drahcir Messages postés 745 Date d'inscription mardi 30 novembre 2004 Statut Membre Dernière intervention 15 septembre 2009 4
28 avril 2006 à 08:49
C'est juste que ta requête ne trouve aucun résultat....

Mais peut-être que je n'ai pas bien compris ta question!! Pourrais-tu reformuler la première phrase de ton post, parce que là...
0
Rejoignez-nous