Discussion :

[CLion]

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

[Invité]

Bonjour

Essaye déjà de changer le caractère joker, essaye le * à la place de %.

Starec

[bricoyeye]

Salut, essai ça:

Code :

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

strsql = "SELECT * FROM magazin WHERE nom Like '%" & MyFind & "'"

[CLion]

merci mais ça marche pas et pour expliquer mieu mon probleme voilà une petite exemple que j'ai fais pour vous, et merci d'avoir essai de corrige mon code.


http://membres.lycos.fr/clionn/recherche.rar

bouton droit, puis enregistre sous.

merci avance

[Phifi]

Salut, essai ça:

Code :

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

strsql = "SELECT * FROM magazin WHERE nom Like '%" & MyFind & "'"

Comme le disait Starec, le joker avec une base .mdb est le * et non le % !

Ensuite, on recherche à priori les nom commençant par, et non finissant par, ou alors les 2 :

Donc :

Code :

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

1
2
3
4
5
 
MyFind = Trim(Text1.Text)
 
'Commençant par 
strsql = "SELECT * FROM magazin WHERE nom Like '" & MyFind & "*'"

[bricoyeye]

Salut,

Essais çà

[CLion]

merci beaucoup et surtout a toi bricoyeye

[CLion]

Comme le disait Starec, le joker avec une base .mdb est le * et non le % !

Ensuite, on recherche à priori les nom commençant par, et non finissant par, ou alors les 2 :

Donc :

Code :

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

1
2
3
4
5
 
MyFind = Trim(Text1.Text)
 
'Commençant par 
strsql = "SELECT * FROM magazin WHERE nom Like '" & MyFind & "*'"

merci pour votre reponse.

je peux savoir ce que la fonction trim fait ?

[SfJ5Rpw8]

merci pour votre reponse.

je peux savoir ce que la fonction trim fait ?

un coup de où

http://drq.developpez.com/vb/tutoriels/String/#Trim