Discussion :

[zidane22]

Bonjour,
Je vous serais tres reconnaissant si vous me dites pourquoi ce code me donne pas les résultats suivant mes critères.

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
23
Dim z
Dim i
Dim x As String
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
x = InputBox("Enter age")
Adodc1.Recordset.Find "age = " + x + ""
If Not Adodc1.Recordset.EOF Then
    I = 1
    Do While Not Adodc1.Recordset.EOF
 
        z = z & vbNewLine & I & "-" & " " & Adodc1.Recordset.Fields("name") & " " & Adodc1.Recordset.Fields("surname")
        Adodc1.Recordset.MoveNext
    I = I + 1
    Loop
MsgBox z
 
    Else
 
MsgBox " No data meets your research"
End If
Adodc1.Recordset.Close
End Sub

Le problème est que ce code me donne q'un seul résultats.
Par exemple si on entre dans l'inputbox un age "10", il me donne q'un seul record alors que si on regarde dans la table1 on trouve 3 records qui ont l'àge de 10.
merci

[callo]

Bonjour,
Le problème est que ce code me donne q'un seul résultats.
Par exemple si on entre dans l'inputbox un age "10", il me donne q'un seul record alors que si on regarde dans la table1 on trouve 3 records qui ont l'àge de 10.

Ne serait-ce pas parce que tu as mis

Adodc1.Recordset.MoveFirst

avant d'appliquer le critère de recherche. C'est après le .Find que tu dois te positionner sur le premier enregistrement avant d'effectuer d'autres actions. Un truc du genre:

Code vb6 :

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

1
2
3
4
5
6
 
tonRecordset.MoveFirst
   Do While Not rs.EOF
      'ton traitement 
      tonRecordset.MoveNext
   Loop

[zidane22]

Merci pour la réponse
J'ai supprimé la ligne mais le code ne donne pas encore des résultats exacts.
Mon problème avec le code ci-dessus est qu'il ne respecte pas mes critères. il affiche tous les 'noms' de la table1.
J'ai essayé avec ce code mais il n'affiche q'un seul 'nom' même s'il s'agit de plusieurs 'noms' qui ont par exemple l'age 10.

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
Private Sub search_Click()
Dim z
Dim x As String
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
x = InputBox("enter age")
Adodc1.Recordset.Find "age = " + x + ""
If Adodc1.Recordset.EOF Then
MsgBox ("data not found")
Else
z = z & Adodc1.Recordset!Name & " " & Adodc1.Recordset!surname
Do While Not Adodc1.Recordset.EOF
Adodc1.Recordset.MoveNext
Loop
End If
MsgBox z
Adodc1.Recordset.Close
End Sub

cordialement

[zidane22]

merci encore
Voici les rectification que j'ai introduits mais c’est toujours le même problème.

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
23
Private Sub Command13_Click()
Dim z
Dim x As String
Adodc1.Refresh
x = InputBox("enter age")
Adodc1.Recordset.Find "age = " + x + ""
If Adodc1.Recordset.EOF Then
MsgBox ("data not found")
Else
Adodc1.Recordset.MoveFirst
 
Do While Not Adodc1.Recordset.EOF
 
z = z & Adodc1.Recordset!name& " " & Adodc1.Recordset!surname
Adodc1.Recordset.MoveNext
 
Loop
MsgBox z
 
End If
Adodc1.Recordset.Close
 
End Sub

[callo]

Bah, normalement un truc du genre

Code vb6 :

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
23
24
25
26
 
Private Sub Search_Click()
On Error GoTo GestionErreur 
 
Dim saisieAge As String
inputAge = InputBox("Enter age", "Find Age")
 
If Len(Trim(inputAge)) > 0 Then 
	Dim ageCriteria As String
	ageCriteria = val(Trim(inputAge)) 
	Adodc1.Recordset.Find "age = '" & ageCriteria & "'", 1, adSearchForward
	If Adodc1.Recordset.EOF = True Then
	   MsgBox "No record Found", vbInformation + vbOKOnly, "No Match"
	Else 
		Adodc1.Recordset.MoveFirst 
		z = z & Adodc1.Recordset!Name & " " & Adodc1.Recordset!surname
		Do While Not Adodc1.Recordset.EOF
			Adodc1.Recordset.MoveNext
		Loop
	End If
    Exit Sub
 
    GestionErreur:
		MsgBox "Error while searching: " & Err.Description
End If
End Sub

devrait marcher (pas testé quand même). Pourrais-tu montrer la requête sql derrière ton adodc?

[zidane22]

Désolé pour le dérangement
Mais votre code n'affiche aucun résultat. le msgbox est vide.

Pourrais-tu montrer la requête sql derrière ton adodc?

excusez moi mais je ne sais pas de quelle requête il s'agit!
J'ai testé la connexion dans l'adodc properties et elle se fait bien.
Les commande 'next' 'previous' 'view' 'add' fonctionnent très bien.
merci