Discussion :

[zidane2]

Bonjour à tous,
C'est ma première participation ici , j'éspère trouver l'aide pour mon problème.
Je viens de développer une petite application et tout va bien sauf que je reçois ce méssage d'érreur à chaque fois que je clique sur mon bouton 'rechercher".

Run time error "3256"
Impossible de trouver l'objet sur la collection correspondant au nom ou à la réference ordinale demandé.

Pourtant je suis certain que les nom se correspondent.

Voici le code sur le bouton 'rechercher'.

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 rechercher_Click()
If Text1.Text <> "" Then
If IsNumeric(Text1) = False Then
    Set DB = New ADODB.Connection
Set RS = New ADODB.Recordset
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database password=123; Data Source=" & App.Path & "\database.mdb"
 
RS.Open "select * from table1 where nom like '%" & Text1.Text & "%' And prenom like '%" & Text2.Text & "%'", DB, adOpenStatic, adLockOptimistic
       If RS.RecordCount > 0 Then
 
 
            Text1.Text = RS!Nom
 Text2.Text = RS!Prenom
 Text3.Text = RS!age
 
 Text5.Text = RS!tel
 Text6.Text = RS!credit
  End If
    Text1.SetFocus
End If
End If
End Sub

Private Sub Form_Load()
With Me.Adodc1
.ConnectionString = "F:\logicièl\Nouveau dossier (2)\database.mdb"

End With
On Error Resume Next

Set DB = New ADODB.Connection
Set RS = New ADODB.Recordset
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDBatabase password=123; Data Source=" & App.Path & "\database.mdb"

End Sub

merci de votre aide

[ProgElecT]

Bienvenue sur DVP

Code :

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

1
2
3
4
5
6
RS.Open "select * from table1 where nom like '%" & Text1.Text & "%' And prenom like '%" & Text2.Text & "%'", DB, adOpenStatic, adLockOptimistic
       If RS.RecordCount > 0 Then
 
 
            Text1.Text = RS!Nom'<========= première lettre en MAJUSCULE
            Text2.Text = RS!Prenom '<====== première lettre en MAJUSCULE

RS.Open "select * from table1 where nom like '%" & Text1.Text & "%' And prenom like '%" & Text2.Text & "%'", DB, adOpenStatic, adLockOptimistic
Text1.Text = RS.Nom
Text2.Text = RS!Prenom

Pourtant je suis certain que les nom se correspondent.

Il y a moyen de vérifier les champs de ta table et d'en savoir l'orthographe exact.

Code :

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

1
2
3
4
5
6
7
8
RS.Open "table1", DB, adOpenStatic, adLockOptimistic
       If Not RS.EOF Then
        Dim T As Integer
        For T = 0 To RS.Fields.Count - 1
         Debug.Print RS.Fields(T).Name
        Next T
        TableTemporaire.Close
       End If

Dans la fenêtre Exécution de l'éditeur, tu peux regarder si les noms de champs sont bien les mêmes que ceux de ta requête, et/ou ceux de ton attribution aux TextBoxs.

[zidane2]

Merci beaucoup
Le problème est résolu