Xe2 Commande Sql qui remplace filter

Bonjour

Je suis rendu a l'étape 2 de mon évolution en MsSql

J'utilisais la commande filter

Code:

---

1 2 3

TBILLET.FILTER:= 'D_DATE >'+ ''''+ DATEDEPART + ''''+ ' AND ' + 'D_DATE <'+ ''''+ datetostr(DATETIMEPICKER2.DATE+1) + ''''+ ' and ' + 'D_MATERIEL ='+ ''''+ combobox1.text + '''' + ' and ' + 'D_CODE1 ='+ ''''+ 'ville' + '''' + ' AND '+ 'D_NOCONT ='+ ''''+ combobox1.text + '''' ;

---

Je veux remplace la commande filter par une commande MsSql qui marche tres bien

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

MSQuery1.Active:=False; MsQuery1.SQl.Clear; MsQuery1.SQL.Add('Select * from BILLET.dbo.BILLET'); MsQuery1.SQL.Add('where D_DATE BETWEEN :FROMDATE AND :TODATE'); MsQuery1.SQL.Add('and d_code = :ville'); // remplaçable par MsQuery1.SQL.Add('and d_code ='+QuotedStr('VILLE')); MsQuery1.SQL.Add('and D_nocont = :contrat'); msQuery1.ParamByName('FROMDATE').asDateTime:=DateTimePicker1.Date-1; msQuery1.ParamByName('TODATE').asDateTime:=DateTimePicker1.Date+7; msQuery1.ParamByName('ville').asstring:='VILLE'; // inutile en cas de l'utilisation du remplacement proposé msQuery1.ParamByName('contrat').asstring:=combobox1.text; MsQuery1.Active:=True;

---

Un grand merci a M.SergioMaster pour cette solution

Je suis rendu a utiliser :
comment utiliser le resultat de ce Query
je peux associé le Query a un datasource ca va bien pour un DBdrid
mais si je veux copier le resultat dans une autre table pour travailler sur le champs
ou travailler directememt sur le resultat du Query

Merci de m'aider

Mario

Bonjour,

Citation:

---

comment utiliser le resultat de ce Query

---

comme vous utiliseriez une table

Citation:

---

je peux associé le Query a un datasource ca va bien pour un DBdrid

---

"ça va" aussi pour tout composant lié a un datasource ;)

Citation:

---

mais si je veux copier le résultat dans une autre table

---

là , c'est moins clair .
il y a plusieurs solutions allant du SQL (si c'est un copie dans la BDD dans une table existante) au code (copie vers un autre SGBD, une table mémoire , etc ....)
solution SQL

Code:

---

1 2	INSERT INTO TABLE2(CHAMP1,CHAMP2) SELECT CHAMPA,CHAMPB FROM TABLE1 WHERE <condition sur table1>

---

solution code générique

Code:

---

1 2 3 4 5 6

Query1.First; while not Query1.EOF do begin ..... Next; end;

---

Citation:

---

mais si je veux copier le résultat dans une autre table pour travailler sur le champs

---

là , c'est moins clair . l'intérêt ?

Citation:

---

travailler directement sur le résultat du Query

---

un exemple (qui peut largement être travailler par SQL)
supposons que vous vouliez une somme

Code:

---

1 2 3 4 5 6 7 8 9 10

// Query SELECT MONTANT FROM UNETABLE WHERE UNCHAMP=UNECONDITION; Somme:=0.00; Query1.Active:=True; while not Query1.EOF do begin Somme:=Somme+Query1.FieldByname('Montant').asCurrency; Next; end; Query1.Active:=false

---

Equivalent SQL

Code:

---

1 2 3 4 5 6

// Query SELECT SUM(MONTANT) AS S FROM UNETABLE WHERE UNCHAMP=UNECONDITION; Somme:=0.00; Query1.Active:=True; Somme:=Query1.FieldByname('S').asCurrency; Query1.Active:=false

---

Pour des modifications le principe reste le même .
Maintenant vous n'indiquez pas quelle famille de composants vous utilisez pour vous connecter :calim2: et votre question me semble trop générale.
Affinez votre demande

Un gros merci


Je vais faire des modifications dans mon programme pour intégrer vos informations.


Merci encore pour votre support.

Mario

Rebonjour

J'ai oublié de vous précisez les composants que j'utilise

Sdac de la cie devart.

Devart SDAC pour RAD Studio Xe2

Merci


Mario