Discussion :

[zilfana]

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.

[Delbeke]

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

[zilfana]

ok merci pour tes explications

Mais lesquels dois-je enlever ?

[Delbeke]

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

Code :

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

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;"

[ProgElecT]

Salut delbeke
Salut zilfana, pour ce qui du Like

Code :

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

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

le * est faut il faut des %

Code :

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

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

[zilfana]

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

Code :

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

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