Discussion :

[fpascal]

Salut,

J'ai fait un ans sans programer, et j'ai l'impresion que j'ai perdu sertain automatisme.

J'ai un conposent ADOTable, et mon programe en modifie la propiétés Filter, en fonction de CheckBox coché et du contenu d'un Edit.

Une de mes ligne (contenue dans un if pour verivier le CheckBox) ne marche pas, la voisi (F_CHIMIE est le nom de mon ADOTable):

Code :

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

F_CHIMIE->Filter="QUANTITE > 0 AND (INDEX_ LIKE '%"+ Edit1->Text + "%' OR SYN1 LIKE '%"+ Edit1->Text + "%' OR SYN2 LIKE '%"+ Edit1->Text + "%')" ;

La ligne marche sans les ( ) mais ne me donne pas le résulta voulu.
Avec les ( ) le programe plante à l'execution lorsqu'il execute cette ligne. avec comme message : "Le projet a provoqué une classe d'exception EOLeException avec le message 'les arguments sont de type incorrecte, en dehors des limites autorisées ou en conflit les uns avec les autre'....

Ou se trouve mon erreur???

[fpascal]

J'ai l'inpression que personne ne trouve de solution à mon probléme... Il n'y aurait t'il pas moyen de le controurné facilement allor???

Pour étre claire, je voudrai que mon programme affiche dans un DBGrip tous les produis non vide (QUANTITE > 0) dons le nom (INDEX_), ou un des synonime (SYN1,2) contiéne au moins l'expresion contenu dans mon Edit.

???

Merci

[pottiez]

Pour moi ce serai plus une erreur de syntaxe SQL, car les parenthèse concerne la requête SQL

[kmaniche]

[quote=fpascal;2641279]

Code :

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

F_CHIMIE->Filter="QUANTITE > 0 AND (INDEX_ LIKE '%"+ Edit1->Text + "%' OR SYN1 LIKE '%"+ Edit1->Text + "%' OR SYN2 LIKE '%"+ Edit1->Text + "%')" ;

[quote]

Ajoute :

Code :

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

1
2
 
F_CHIMIE->Filtred = true ;

ça devrais marché.

[fpascal]

Le filtered et bien dejat mi à true, vu que mes autre filtre marche bien.
Je vous remet le code dans son contexte pour vous mieu comprendre se que je fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
void __fastcall TRechercheNom::Edit1Change(TObject *Sender)
{
if((CheckBox1->Checked==true)&&(Edit1->Text!="")) 
appel->F_CHIMIE->Filter="QUANTITE > 0 AND (INDEX_ LIKE '%"+ Edit1->Text + "%' OR SYN1 LIKE '%"+ Edit1->Text + "%' OR SYN2 LIKE '%"+ Edit1->Text + "%')" ;
if((CheckBox1->Checked==false)&&(Edit1->Text!=""))
appel->F_CHIMIE->Filter="INDEX_ LIKE '%"+ Edit1->Text + "%' OR SYN1 LIKE '%"+ Edit1->Text + "%' OR SYN2 LIKE '%"+ Edit1->Text + "%'" ;
if((CheckBox1->Checked==true)&&(Edit1->Text==""))
appel->F_CHIMIE->Filter="QUANTITE > 0" ;
if((CheckBox1->Checked==false)&&(Edit1->Text==""))
appel->F_CHIMIE->Filter="" ;
}

Seul l'execution de la ligne du premier if pause probléme, les autre marche parfaitement.

[pottiez]

Essaye de voir ce que vaut exactement Filter lorsque ce produit l'erreur, il se peut qu'un morceaux de tes chaines de caractère ne soit pas passé dedans, si tu veut être sur que tout passe bien, tu enregistre tes chaine dans un AnsiString intermédiaire que tu envoie ensuite a Filter, comme ça tu pourra voir plus facilement ce que vaut l'AnsiString en mode debug.

[fpascal]

J'ai déjat penser à sa, et fait quelque test. Mais aucun probléme la.

Je vien par contre d'eseyer de métre une requéte similaire directement dans l'ADOTable avec des parenthése dedans. Elle est directement refusée.

Comme tu le diser, pottiez, l'erreur doit venir de la requéte SQL qui et considerait comme invalide.
Pourquoid????

[pottiez]

Essaye de poster ta requête dans le forum SQL en exposant ton problème, il pourront t'aider a trouver ton erreur de syntaxe

[kmaniche]

Bonjour,
Essaye d'utiliser plus de parenthèses :

Code :

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

1
2
 
"(QUANTITE > 0) AND ((INDEX_ LIKE '%"+ Edit1->Text + "%') OR (SYN1 LIKE '%"+ Edit1->Text + "%') OR (SYN2 LIKE '%"+ Edit1->Text + "%'))"

[kmaniche]

Ah, sinon affiche le message d'erreur pour voir un peut plus.

[fpascal]

Marche pas kmaniche.

Pour le message d'erreur je l'ai dejat mis :
"Le projet a provoqué une classe d'exception EOLeException avec le message 'les arguments sont de type incorrecte, en dehors des limites autorisées ou en conflit les uns avec les autre"

[kmaniche]

Re,

Peux-tu nous montrer les type de chaque champ de la table F_CHIMIE.

[Sunchaser]

Re,

Peux-tu nous montrer les type de chaque champ de la table F_CHIMIE.

Tu soupconnes des plants transgéniques ?

[fpascal]

INDEX_ , SYN1, SYN2 sont de type Texte
QUANTITE de type Numérique.

Je ne pense pas que sa viéne du type des champs, vue que la ligne marche sans les ( ).

[fpascal]

Je devrait peut étre presicer que :
La BD est sous Ms Access.
La connexion entre le programme et la BD se fait via "Microsoft Jet OLEDB 4.0".

[fpascal]

comme proposait j'ai poser la question dans le forum SQL : http://www.developpez.net/forums/sho...d.php?t=441042

Pour eu, la syntax sql de la ligne à l'aire bonne.

Je ne sais plus quoid faire. Une idée svp????

[devlopassion]

bonjour,
-je sui pas un grand expert mais je pense que la syntaxe SQL est juste pas d'erreur dans l'expression.
-mais je pense que tu ne peut pas fair ce genre de filtre avec les composant ADO.
-je te propose donc d'utilisé les table BDE ça marche tres bien avec le filtre
bonne chance

[Sunchaser]

Bonjour,

Bon je reviens, mais pas pour une blague foireuse cette fois ci ...
Juste une question qui pourrait nous orienter vers une solution:
N'as tu pas par hasard un composant 'orienté donnée' qui afficherait les données de cette table ? Car dans ce cas, avec de la chance (et en toute bonne logique pour moi), tu as un TDataSource entre les deux et la - dans ce cas - passes ton filtre au travers de cet objet.
Qqchose comme:

Code :

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

1
2
3
4
 
TDataSource->Dataset->filtered = false;
TDataSource->Dataset->filter = "ton_filtre_compliqué_mais_sans_erreurs";
TDataSource->Dataset->filtered = true;

D'ailleurs, si j'avais du utiliser des composants ADO et avoir eu besoin de filtre, j'aurais très certainement cherché a utiliser TAdoDataset, qui regroupe pas mal de capacités/possibilités.
Ceci n'étant pas forcement une reflexion très scientifique, mais qui aurait peut être le mérite de devoir être envisagé.

En espérant t'aider,
@+

[blondelle]

Je ne suis pas un specialiste de la base de donnees mais j'ai trouve ceci dans la FAQ Delphi qui peut te donner une autre oriantation

http://delphi.developpez.com/faq/?pa...filtrerrequete

[kmaniche]

Code :

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

1
2
3
4
 
TDataSource->Dataset->filtered = false;
TDataSource->Dataset->filter = "ton_filtre_compliqué_mais_sans_erreurs";
TDataSource->Dataset->filtered = true;

Ce que Sunchaser a dis, est juste, j'utilise le même procédé pour le filtrage des données.