Discussion :

[lebienestrare]

Bonjour,je travaille sous ado,vb6,et je veux par exemple chercher par nom un certain enregistrement,si par exemple j'ai plusieurs enregistrements qui ont le meme nom,ma recherche s'arrête au premier qu'elle trouve identique à ce qu'on cherche,comment puis je faire pour passer aux autres enregistrements grâce à un msgbox vbokno,??
Merci d'avance et j'espere recevoir vos idées et suggestions

[sovo]

tout simple (methode ADO).

Apres avoir afficher le premier enregistrement pour passer au suivant tu fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rst.movenext

[jacma]

Bonjour

Ta requête de recherche te renvoit un recordset dans lequel tu peux naviguer tout à fait classiquement. Comme je présume que tu veux afficher chaque ligne trouvée dans des textboxes, il convient de lier les dites textboxes aux données. Plusieurs méthodes, selon la façon dont tu as obtenu ton recordset (DataEnvironment, Control Data ADO ou code).
Dans ce qui suit, la liaison aux données s'effectue par unle biais d'une collection Binding.
Section Déclarations

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim cn As ADODB.Connection
Private WithEvents rsPub As ADODB.Recordset
Dim BndPublishers As BindingCollection

Chargement du formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Form_Load()
  Dim SQL As String
  Set cn = New ADODB.Connection
  Set rsPub = New ADODB.Recordset
  Set BndPublishers = New BindingCollection
  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\DidactDB\Biblio2000.mdb"
  SQL = "SELECT Publishers.* From Publishers WHERE City ='New York'"
 
  rsPub.CursorLocation = adUseClient
  rsPub.Open SQL, cn, adOpenDynamic, adLockOptimistic, adCmdText
  rsPub.MoveFirst
  Set BndPublishers.DataSource = rsPub
  'Ajoute à la collection Bindings.
   With BndPublishers
      .Add txtPubID, "Text", "PubID", , "ID"
      .Add txtName, "Text", "Name", , "Nom"
      .Add txtCity, "Text", "City", , "Localité"
   End With
End Sub

La navigation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub cmdNav1_Click(Index As Integer)
  With rsPub
    Select Case Index
      Case 0
        .MoveFirst
      Case 1
        .MovePrevious     'Enregistrement précédent
        If .BOF Then
          MsgBox "Début du jeu d'enregistrement"
          .MoveFirst
        End If
      Case 2
        .MoveNext     'Enregistrement suivant
        If .EOF Then
          MsgBox "Fin du jeu d'enregistrement"
          .MoveLast
        End If
      Case 3
      .MoveLast
    End Select
  End With
End Sub

Mais peut-être qu'afficher tes données dans une DataGrid serait suffisant? Là, plus de problème de navigation, et une liaison aux données plus facile.

PS: la base de données est la base exemple d'Access. A toi d'adapter pour tes besoins.

[stef_445]

Tu peux aussi utiliser un filtre sur ton recordset et ensuite naviguer dans ce recordset filtré avec les méthode classiques (MoveNext, MovePrevious, MoveFirst et MoveLast)

soit rs ton recordset "complet"

tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rs.Filter= "[Champ de recherche]='" & critère & "'"

et après MoveNext, MovePrevious, MoveFirst et MoveLast, etc...