Discussion :

[tleboukaka]

Slt à Tous

Ma bdd est faite en Paradox, et sous Delphi ma requete affiche une erreur lors de la compilation : un message du genre ... ne peut pas dépasser 255 caractères
Comment puis je faire pour que cette requête affiche dans son instruction Select tous les champs ? car pour moi tous les champs sont indispensables, je ne dois pas enlever un seul

ci-dessous le genre de requete

qryBulletin.SQL.Add (' SELECT ......................... ....................... ............... .......... ........... .... ..... .......');

Merci

[slimjoe]

Facile, coupe-la sur plusieurs lignes :

Code :

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

1
2
3
4
5
6
qryBulletin.SQL.Add('SELECT'); 
qryBulletin.SQL.Add('CHAMP1,'); 
qryBulletin.SQL.Add('CHAMP2,'); 
qryBulletin.SQL.Add('CHAMP3,'); 
qryBulletin.SQL.Add('CHAMP4'); 
qryBulletin.SQL.Add('FROM TABLE');

[Sunchaser]

Comment puis je faire pour que cette requête affiche dans son instruction Select tous les champs ? car pour moi tous les champs sont indispensables

Bonsoir,

Désolé si je comprends de travers, mais a ce que je lis, j'aurais tendance a dire qu'il faut écrire :

Code :

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

1
2
 
qryBulletin.SQL.Add('SELECT *');

@+

[tleboukaka]

Regarde : elle est coupée en 3 lignes commençant chacune par qryBulletin...
Elle contient des formules...

Mais à l'exécution, elle signale un message d'erreur du genre :
'Invalid use of Keyword. Token : 1/2
Line number : 3

Voici les 3 lignes de ma requete

Code :

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

1
2
3
  qryBulletin.SQL.Add('SELECT Tbldevoirs.ElvNum, Tbletudiant.ElvNom, Tbletudiant.ElvPrenoms, Tbl_inscription.ClaNum, Tblclasse.ClaSerie, COUNT( Tbldevoirs.DevNum ) Nb, Tbldevoirs.DevNom');
  qryBulletin.SQL.Add('Tblmatiere.MatNom, Tblmatiere.MatCoeff, AVG( Tbldevoirs.DevNotes ) MoyC, AVG( Tblcompos.ComNotes ) Compo, Tblcompos.ComNom,   (AVG( Tbldevoirs.DevNotes ) + AVG( Tblcompos.ComNotes ))  / 2  Moy');
  qryBulletin.SQL.Add(' 1/2 * AVG(Tbldevoirs.DevNotes + Tblcompos.ComNotes)  * Tblmatiere.MatCoeff  MoyGle, Tblcycle.CycNom, Tblscolarite.ScoPeriode');

// la 3e ligne peut être remplacée par celle ci - mais le msg d'erreur demeure
// qryBulletin.SQL.Add('( (AVG( Tbldevoirs.DevNotes ) + AVG( Tblcompos.ComNotes )) / 2) * Tblmatiere.MatCoeff MoyGle, Tblcycle.CycNom, Tblscolarite.ScoPeriode');

[SergioMaster]

Manquerais pas des virgules par hazard ?

Code :

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

1
2
3
4
qryBulletin.SQL.Add('SELECT Tbldevoirs.ElvNum, Tbletudiant.ElvNom, Tbletudiant.ElvPrenoms, Tbl_inscription.ClaNum, Tblclasse.ClaSerie, COUNT( Tbldevoirs.DevNum ) Nb, Tbldevoirs.DevNom');
qryBulletin.SQL.Add(',Tblmatiere.MatNom, Tblmatiere.MatCoeff, AVG( Tbldevoirs.DevNotes ) MoyC, AVG( Tblcompos.ComNotes ) Compo, Tblcompos.ComNom, (AVG( Tbldevoirs.DevNotes ) + AVG( Tblcompos.ComNotes )) / 2 Moy');
qryBulletin.SQL.Add(', 1/2 * AVG(Tbldevoirs.DevNotes + Tblcompos.ComNotes) * Tblmatiere.MatCoeff MoyGle, Tblcycle.CycNom, Tblscolarite.ScoPeriode');

de plus les noms de tables peuvent être raccourcies

Code SQL :

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

FROM TBLDevoirs D,TB_lInscriptions I  etc ...

[tleboukaka]

c'est ok

une belle astuces m'a été donné hier soir par un pote
J'ai concaténé mes trois lignes par les signes + pour les faire tenir en une seule.

Code :

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

1
2
 
qryBulletin.SQL.Add('SELECT Tbldevoirs.ElvNum, Tbletudiant.ElvNom, Tbletudiant.ElvPrenoms, Tbl_inscription.ClaNum, Tblclasse.ClaSerie, COUNT( Tbldevoirs.DevNum ) Nb, Tbldevoirs.DevNom, '+' Tblmatiere.MatNom, Tblmatiere.MatCoeff, AVG( Tbldevoirs.DevNotes ) MoyC, AVG( Tblcompos.ComNotes ) Compo, Tblcompos.ComNom,   (AVG( Tbldevoirs.DevNotes ) + AVG( Tblcompos.ComNotes ))  / 2  Moy, '+'  1/2 * AVG(Tbldevoirs.DevNotes + Tblcompos.ComNotes)  * Tblmatiere.MatCoeff  MoyGle, Tblcycle.CycNom, Tblscolarite.ScoPeriode');

c'est génial, ça marche. je garde ça

Merci à tous !