Recherche de texte dans une base de donnée

Bonjour
J'ai un petit problème, je m'explique:
Sur une base de donnée Access, je voudrais faire une recherche de texte dans les enregistrements d' une table "matable", champs "description"
Petit exemple très simple pour mieux me comprendre:

Dans "matable" champs "description" j'ai les enregistrements suivants:
le beau petit chien rouge
la belle colombe blanche
le radis rouge
....

Sur ma feuille, j'ai 3 boutons du même groupe de contrôle :
Précédent (CommandButton0) - Recherche (CommandButton1) - Suivant CommandButton(2), 
un textBoxSaisie ou je saisie ma demande
et un textBoxResultat pour afficher le résultat

Ce que je voudrais faire:
Je cherche la chaine de caractères " rouge" dans "ma table" en la saisissant dans mon textBoxSaisie puis en cliquant sur Recherche, l'enregistrement "le petit chien rouge" s'affiche  dans mon textBoxResultat,
puis si je clique sur Suivant l'enregistrement "le radis rouge" s'affiche à son tour
Puis si je clique sur Précédent l'enregistrement "le petit chien rouge" revient s'afficher dans le TextBoxResultat.

Ben.... Je débute dans la gestion de base de données et la je bloque.
Si quelqu'un pouvait me donner un petit coup de main, (pour le code) ce serait supper sympa...
En vous remerciant par avance
Bob06

salut , j'avais en faite effectuer le meme recherche que toi , mais sur ma forme j'ai pas mis de précédent et suivant je m'explique :
j'ai fais les 2 textBox avec un bouton de recherche comme toi et si ma requette me retourne par exemple 3 resultat la automatiquement mon programme me creer des controles( textbox, labels ......) ce depend de ton besoin ou j'affiche tes les resultat.

par exemple de ton cas le prog va creer 2 textBoxResultat sur le 1ere j'aurai "le petit chien rouge" et sur le 2eme "le radis rouge", voila le code

dim str as string
srt="tarequette"

Dim cmd As New SqlCommand(str, Connection)

Dim reader As SqlDataReader

Dim top As Integer = 200

Dim height As Integer = 100

Dim width As Integer = 380

Try

Me.Connection.Open()

reader = cmd.ExecuteReader()

While (reader.Read())

bolie = True

Label5.Visible = True

Label6.Visible = True

'l'instanciation des textBox et leur emplacement sur la forme

Dim txtbox As New RichTextBox

Dim mestitre As New TextBox

txtbox.Text = reader(1).ToString   'on leur affecte les données qui nous retourne notre requette

mestitre.Text = reader(0).ToString

txtbox.Top = top

mestitre.Top = top

txtbox.Left = 300

mestitre.Left = 150

txtbox.Height = height

txtbox.Width = width

txtbox.Visible = True

mestitre.Visible = True

txtbox.ReadOnly = True

mestitre.ReadOnly = True

top = top + (height + 20)

Me.Controls.Add(txtbox) ' apres la creation et l'emplacement et l'affectation il faut ajouter le controle à la forme

Me.Controls.Add(mestitre)

Me.Controls.Remove(txtbox) ' si on fait une nouvelle recherche il faut supprimer ces comtroles

Me.Controls.Remove(mestitre)

End While

If bolie = False Then

MsgBox("aucun resultat avce ces caractéristiques")

End If

Catch ex As Exception

MsgBox(ex.Message)

Finally

'Une fermeture de connexion toujours dans un Finally, avec un test si la connection n'est aps égale à nothing, TOUJOURS !!

If (Not Me.Connection Is Nothing) Then

If (Me.Connection.State = ConnectionState.Open) Then

Me.Connection.Close()

End If

Me.Connection.Dispose()

Me.Connection = Nothing

End If

If (Not reader Is Nothing) Then

'FERMETURE du reader obligatoire, après test qu'il n'est pas égal à nothing !!

If (Not reader.IsClosed) Then

reader.Close()

End If

reader = Nothing

End If

If (Not cmd Is Nothing) Then

cmd.Dispose()

cmd = Nothing

End If

End Try

j'espere que sa va te servir
bonne prog

Merci amylee1984

Je vais essayer d'adapter ce code à mes besoins, mais je ne garantis rien ...
car j'ai besoin des mes trois boutons et je ne peux pas utiliser plusieurs contrôles textbox, sur ma feuille, mais je vais essayer de trouver.

Encore merci pour votre aide

Bob06

salut , de rien bob06 , nous sommes ici pour l'echange de l'information
sinon je vais essayer de faire ton truc et si tu reussi à le faire fait moi signe stp
merci

Ok on se tiens au courant, et apparament cela devrait pouvoir servir à d'autres collègues.
A +
Bob06

Bonjour

Finalement, j'ai trouvé. C'était tellement simple que je n'y avait pas pensé !!!
Il ne faut pas 3 boutons du même groupe de contrôle, mais 3 boutons différents.

Bon, je reprend mon petit exemple, c'est plus simple à comprendre.
Dans "matable" champs "description" j'ai les enregistrements suivants:
le beau petit chien rouge
la belle colombe blanche
le radis rouge
....

Ce que je voudrais faire:
Je cherche la chaine de caractères ou le mot  " rouge" dans "ma table" en la saisissant dans mon textBoxSaisie puis en cliquant sur Recherche, l'enregistrement "le petit chien rouge" s'affiche  dans mon TextBoxResultat,
puis si je clique sur Suivant l'enregistrement "le radis rouge" s'affiche à son tour
Puis si je clique sur Précédent l'enregistrement "le petit chien rouge" revient s'afficher dans le TextBoxResultat.

En simplifiant, le code, ça donne a peu prés ceci :

Private Sub CdBoutonRecherche_Click()
Dim CritereRecherche as string
.....
Compt = 1
La requete :
sql = "SELECT * FROM MaTable" Where "Description LIKE'*" & textBoxSaisie & "*'"
Set Rs = BaseDonnee.OpenRecordset(sql, dbOpenDynaset)
NombreEnregistrement = Rs.RecordCount   (c'est le nombre d'enregistrements correspondant à la recherche, ici 2)
Rs.MoveFirst 'on se place sur le premier enregistrement
TextBoxResultat = Rs!Description
....
End Sub
----------------
Private Sub CdBoutonPrecedent_Click()
....(la il faut mettre un test pour verifier que la variable 'compt' ne prenne pas une valeur inférieur à 1 , dans ce cas on sort de la procédure en affichant un MsgBox par exemple) .....
Compt = Compt - 1
Rs.MovePrevious  (on se place sur l'enregistrement précédent)
TextBoxResultat = Rs!Description .....
End sub
---------------
Private Sub CdBoutonSuivant_Click()
....(La, il faut mettre un test pour vérifier que la variable 'Compt' ne prenne pas une valeur supérieure à NombreEnregistrement dans ce cas on sort de la procédure en affichant un MsgBox par exemple) .....
Compt = Compt +1
Rs.MoveNext  (on se place sur l'enregistrement suivant)
TextBoxResultat = Rs!Description
.....
End sub


Il ne faut pas fermer le jeu d'enregistrement (Rs) tant que la recherche est active.

Voilà, j'ai simplifier le code, il faut penser à bien mettre des tests pourle bon déroulement des procédure,mais en réalité c'est assez simple.

Voilà si cela peux servir à quelqu'un....
Bob06