Problème avec requête SQL

Bonjour,

Je développe une petite application sous VB6

J'ai un petit souci avec Une requête

Je ne sais pas comment faire une requête LIKE :oops:

Code:

---

1 2 3 4 5 6

param = Val(txtClient.Text) requete = "SELECT DISTINCT NoCli, NomCli, PnomCli, AdrCli, CPCli, VilleCli, TélCli, Tél_portCli " requete1 = " From CLIENT1 Where (((NomCli) Like " * "' & param & '" * ")) GROUP BY NoCli, NomCli, PnomCli, AdrCli, CPCli, VilleCli, TélCli, Tél_portCli ORDER BY NoCli, NomCli, PnomCli;" adoListe.CommandType = adCmdText adoListe.RecordSource = requete + requete1 adoListe.Refresh

---

Une erreur de type incompatible est signalée.

Il y a un problème avec les guillemets. Vb les utilise comme caractéres de délimitation de chaine. Ce qui fait que ton caractère etoile est compris par vb comme un opérateur de mutiplication, ce que vb ne sait pas faire, la partie droite et gauche de la multiplication étant une chaine de caractéres

ok merci pour tes explications

Mais lesquels dois-je enlever ?

Si tu n'es pas capable d'ecrire une simple ligne !

Code:

---

1 2 3

requete1 = " From CLIENT1 Where NomCli Like '*" & _ param & _ "*' GROUP BY NoCli, NomCli, PnomCli, AdrCli, CPCli, VilleCli, TélCli, Tél_portCli ORDER BY NoCli, NomCli, PnomCli;"

---

Salut delbeke
Salut zilfana, pour ce qui du Like

Code:

---

" From CLIENT1 Where (((NomCli) Like " * '" & param & '" * ")) GROUP BY"

---

le * est faut il faut des %

Code:

---

" From CLIENT1 Where (((NomCli) Like '%" & param & "%' ")) GROUP BY ..... "

---

Merci voici ce que j'ai trouvé qui marche parfaitement :

Code:

---

1 2	Me.adoCli.Recordset.Filter = " [NomCli] LIKE '" & Me.txtNomCli.Text & "*' " Me.adoCli.Recordset.Requery

---