EFFECTUER UNE RECHERCHE DANS UNE TABLE

Signaler
Messages postés
20
Date d'inscription
mercredi 7 mai 2008
Statut
Membre
Dernière intervention
12 septembre 2013
-
Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
-
bonsoir les copains
j'ai une table "employe" contenant des matricule et des noms et je desire que mon code parcours les enregistrements les uns à la suite des autres pour rechercher le matricule saisi par l'utilisateur dans textbox1.text
si le matricule est trouvé il retourne le nom de l'employé dans le textnom.text sinon il affiche employé inexistant.

voici un bout de mon code mais je ne sais comment bien le ficeler
help me

Dim dbcnn As New OleDbConnection
Dim dbresult As OleDbDataReader
Dim dbcmd As New OleDbCommand
Dim ad As OleDbDataAdapter

'connection à la base de donnée ACCESS
Dim critere As Boolean
Dim q As String
q = "SELECT auteur.matricule, auteur.nom_auteur from auteur;"
Dim ct As OleDbConnection = New OleDbConnection("provider=microsoft.jet.oledb.4.0;" & "data source=" & _
"c:\GESTION.mdb")

'objet Command permettant de recûperer la chaine sql
Dim mycommand As OleDbCommand = ct.CreateCommand()
mycommand.CommandText = q
'permet de signaler les erreurs de connection
Try
ct.Open()
Catch ex As OleDbException
MsgBox(ex.Message)
End Try
'objet permettant de lire les enregistrements les uns a la suite des autres
Dim myreader As OleDbDataReader = mycommand.ExecuteReader(CommandBehavior.CloseConnection)


q q & " where matricule (" & _
",'" & TextBox1.Text & "'," & " )"



Do While myreader.Read()
If TextBox1.Text = myreader("matricule").ToString Then
critere = True
TextBox2.Text = dbresult("nom_auteur").ToString

End If
Loop

Exit Sub

' myreader.Close()
ct = Nothing
myreader = Nothing
mycommand = Nothing

End Sub

1 réponse

Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
3
Il faut que tu dises où tu as l'erreur.

A froid je peut déjà te conseiller de changer "SELECT auteur.matricule, auteur.nom_auteur from auteur;" par

"SELECT auteur.matricule, auteur.nom_auteur from WHERE auteur.matricule = '" & textbox1.text &"';"