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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.