Discussion :

[And_res]

bonjour à tous,

Je cherche à afficher dans un DBLookupComboBoxDateExa seulement les dates de l'année en cours dans ce cas que les dates de 2008, j'utilise ce code mais ça m'affiche une erreure.

Code :

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

1
2
3
4
5
with DataModuleGojuryu.ADOSESSIONEXAMEN do begin
    close;
    SQL.text := 'SELECT DAT_SESS_EXA FROM dbo.SESSION_EXAMEN WHERE EXTRACT(YEAR FROM DATE_SESS_EXA) = EXTRACT(YEAR FROM CURRENT_DATE) LIKE '+QuotedStr(FBouttonsEle.DBLookupComboBoxDateExa.text+'%');
    OuvertureQuery(DataModuleGojuryu.ADOSESSIONEXAMEN);
  end;

Merci pour votre aide

[Yurck]

mais ça m'affiche une erreure.

Erreur confidentielle ?

[Yurck]

Je vois, je vois, je vois, je vois , je vois

une alternative

Code :

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

1
2
3
4
5
6
  with DataModuleGojuryu.ADOSESSIONEXAMEN do begin
    close;
    SQL.text := 'SELECT DAT_SESS_EXA FROM dbo.SESSION_EXAMEN WHERE (EXTRACT(YEAR FROM DATE_SESS_EXA) = EXTRACT(YEAR FROM CURRENT_DATE)) AND LIKE '+QuotedStr(FBouttonsEle.DBLookupComboBoxDateExa.text+'%');
    OuvertureQuery(DataModuleGojuryu.ADOSESSIONEXAMEN);
  end;

ou une autre alternative

Code :

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

1
2
3
4
5
6
    with DataModuleGojuryu.ADOSESSIONEXAMEN do begin
    close;
    SQL.text := 'SELECT DAT_SESS_EXA FROM dbo.SESSION_EXAMEN WHERE (EXTRACT(YEAR FROM DATE_SESS_EXA) = EXTRACT(YEAR FROM CURRENT_DATE)) OR LIKE '+QuotedStr(FBouttonsEle.DBLookupComboBoxDateExa.text+'%');
    OuvertureQuery(DataModuleGojuryu.ADOSESSIONEXAMEN);
  end;

[Yurck]

Et enfin apparaît l'erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  with DataModuleGojuryu.ADOSESSIONEXAMEN do begin
    close;
    SQL.text := 'SELECT DAT_SESS_EXA FROM dbo.SESSION_EXAMEN WHERE (EXTRACT(YEAR FROM DATE_SESS_EXA) = EXTRACT(YEAR FROM CURRENT_DATE)) OR LIKE '+QuotedStr(FBouttonsEle.DBLookupComboBoxDateExa.text+'%');
    try
      OuvertureQuery(DataModuleGojuryu.ADOSESSIONEXAMEN);
    except
      on e:exception do
      begin
        ShowMessage('Regarde humain : le sql suivant ' + slinebreak +  SQL.text +  slinebreak +  'entraîne l''erreur suivante ' + slinebreak +  e.message);
      end;
    end;
  end;

[And_res]

j'ai cette erreure qui s'affiche 'Incorrect syntax near the keyword 'FROM'', je sais pas si c'est une erreure qui vient de la requête.???

[ShaiLeTroll]

Delphi ne génère pas de code interprété, donc si tu as une erreur de syntaxe au RunTime, c'est forcément, un code interprété, dans ton cas le SQL ...

As-tu testé la requête directement dans un outil SQL adpaté à ta base, d'ailleurs, en dehors de Delphi ? Cela devrait être un réflexe !
Es-tu sur que le ' est géré correctement ? un " serait peut-être plus pratique en Delphi

le type de base est aussi confidentiel ? Oracle ? Sql Server ? MySQL ? InterBase ? les composants ? on devine ADO ... ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
with DataModuleGojuryu.ADOSESSIONEXAMEN do 
begin 
    close;
    SQL.text := Format('SELECT DAT_SESS_EXA FROM dbo.SESSION_EXAMEN WHERE (EXTRACT(YEAR FROM DATE_SESS_EXA) = EXTRACT(YEAR FROM CURRENT_DATE)) OR LIKE "%s%%"', [FBouttonsEle.DBLookupComboBoxDateExa.text]);
    try
      OuvertureQuery(DataModuleGojuryu.ADOSESSIONEXAMEN);
    except
      on e:exception do
      begin
        ShowMessage('Regarde humain : le sql suivant ' + slinebreak +  SQL.text +  slinebreak +  'entraîne l''erreur suivante ' + slinebreak +  e.message);
      end;
    end;
  end;

ou mieux, les Paramètres !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
with DataModuleGojuryu.ADOSESSIONEXAMEN do 
begin 
    close;
    SQL.text := 'SELECT DAT_SESS_EXA FROM dbo.SESSION_EXAMEN WHERE (EXTRACT(YEAR FROM DATE_SESS_EXA) = EXTRACT(YEAR FROM CURRENT_DATE)) OR LIKE :param';
    DataModuleGojuryu.ADOSESSIONEXAMEN.Parameters.ParamByName('param').AsString := FBouttonsEle.DBLookupComboBoxDateExa.text + '%';
    try
      OuvertureQuery(DataModuleGojuryu.ADOSESSIONEXAMEN);
    except
      on e:exception do
      begin
        ShowMessage('Regarde humain : le sql suivant ' + slinebreak +  SQL.text +  slinebreak +  'entraîne l''erreur suivante ' + slinebreak +  e.message);
      end;
    end;
  end;