salut

sous VB 6 et avec une basse de donnes de type *.mdb :

j'ai double click sur editbox (text1) puis j'ai ecris ce code

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 Text1_Change()
 
Dim dbs As Database
Dim strsql As String
Dim MyFind As String
 
 
MyFind = Text1.Text & "%"
Set dbs = OpenDatabase("C:\mabase.mdb")
strsql = "SELECT * FROM magazin" & " WHERE nom Like '" & MyFind & "'"
Set rst = dbs.OpenRecordset(strsql)
 
        While Not rst.EOF
               MsgBox rst.Fields("nom").Value
               rst.MoveNext
         Wend
 
End Sub
ce que je veux faire c'est filtre les noms tout comme l'edit box de msn live messenger ,mais là rien ne ce passe

une petite note, si je declare
dim rst as recordset , un erreur va s'afficher
"erreur d'execution '13'
type incompatible"

bon je demande la correction de mon code ou bien un lien vers un exemple.

voilà et merci pour tout