Discussion :

[CharleLéo]

Bonjour,

J'utilise un composant KADAOTable (même fonction qu'un Query mais pouvant être utilisé avec des tables access). Sa propriété SQL contient :

Code :

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

1
2
 
Select MaDate from MaTable

Dans un formulaire lorsqu'une case à cocher est cochée, je modifie met la propriété SQL à :

Code :

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

1
2
3
DmSQL.SQLHistorique.Active:=False;
DmSQL.SQLHistorique.SQL.Add('WHERE MaDate between #'+DateEdit1.text+'# and #'+DateEdit2.text+'#');
DmSQL.SQLHistorique.Active:=True;

Mon problème est le suivant :
Je voudrais lorsque la case à cocher est décochée, que mon composant KADAOTable ait sa propriété SQL suivante :

Code :

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

1
2
 
Select MaDate from MaTable

J'ai pris un exemple pour la requete, mais en réalité elle contient environ une vingtaine de ligne.

Si quelqu'un a une idée...
Merci d'avance
A+

[abdelyes]

je ne connais pas le composant KADAOTable mais si j'ai bien compris ton pb tu devrais associer le code suivant à l'évenement decocher de la table à cocher :

Code :

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

1
2
3
4
DmSQL.SQLHistorique.Active:=False;
DmSQL.SQLHistorique.SQL.clear;
DmSQL.SQLHistorique.SQL.Add('Select MaDate from MaTable');
DmSQL.SQLHistorique.Active:=True;

[CharleLéo]

SAlut,

Non, en fait si j'ajoute une expression du style

DmSQLHistorique.Add('WHERE MaDate between #1/1/2001# and #1/1/2002')

lorsque une case à cocher est selectionnée, je voudrais pouvoir enlever l'expression 'WHERE MaDate between #1/1/2001# and #1/1/2002' de la requete.

Le seul moyen que j'ai trouvé, mais qui ne me parait pas séduisant c'est :

Code :

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

1
2
3
4
5
6
7
 
DMSQL.SQLHistorique.Active:=False;
If CaseACocher.Checked then
   DmSQL.SQLHistorique.SQL[20]:=('WHERE MaDate between #1/1/2001# and #1/1/2002') 
else
  DmSQLHistorique.SQL[20]:='';
DMSQL.SQLHistorique.Active:=True;

On voit bien là les limites de cette méthode, j'ai 4 cases à cocher qui doivent me faire un tri sur :

une date
un nombre
du texte
un boolean

A+

[macumba]

Je ne comprends pas ton problème, si tu as une requête basique il suffit que tu la sauvegardes dans une variable globale avant toute manipulation de la requête.
Tu concatènes ensuite la propriété sql.text avec la requête basique sauvée en début de programme et tes différents critères de sélection.

Le code que tu indiques comme marchant est totalement faux et non viable dans un projet en maintenance. SQL.Text[20] modifie le 20ème caractère du SQL, quand tu affectes une expression plus longue ca doit effectivement écrire sur les autres caractères mais par contre quand tu mets blanc ca ne doit changer que le 20è caractère....

Evite d'utiliser le Add c'est un chouille plus lent que d'affecter directement la propriété Sql.Text.

Pourquoi faire simple quand on peut faire compliqué...

[CharleLéo]

Salut,

Le code que tu indiques comme marchant est totalement faux et non viable dans un projet en maintenance. SQL.Text[20] modifie le 20ème caractère du SQL, quand tu affectes une expression plus longue ca doit effectivement écrire sur les autres caractères mais par contre quand tu mets blanc ca ne doit changer que le 20è caractère....

Evite d'utiliser le Add c'est un chouille plus lent que d'affecter directement la propriété Sql.Text.

Pourquoi faire simple quand on peut faire compliqué...

Tout d'abord, il ne s'agit pas de SQL.Text[20] mais bien de SQL[20]. Et là je t'affirme que ce code fonctionne trés bien.

Par contre je n'ai jamais penser à sauvegerder une requête dans une variable globale.
Je vais voir si je peux l'adapter à mon code

Merci
A+

[macumba]

oups en effet sql[20] ca peut marcher vu que sql est un tstringlist. Mais bon ca veut dire que si tu veux faire évoluer ta requête ca te force à revoir tout ton code. Désolé pour la confusion.