vb6 et mdb et sql

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:

---

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

Bonjour

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

Starec

Salut, essai ça:

Code:

---

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

---

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

Citation:

---

Envoyé par bricoyeye

Salut, essai ça:

Code:

---

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:

---

1 2 3 4 5

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

---

Salut,

Essais çà

merci beaucoup et surtout a toi bricoyeye :king:

Citation:

---

Envoyé par Phifi

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:

---

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 ?

Citation:

---

Envoyé par CLion

merci pour votre reponse.

je peux savoir ce que la fonction trim fait ?

---

un coup de :f1: où

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

;)

je n'est pas msdn :(

Citation:

---

Envoyé par CLion

je n'est pas msdn :(

---

http://vb.developpez.com/msdnvb6/

:lol: merci beaucoup