Problème de syntaxe sous Delphi

Version imprimable

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:

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

09/10/2008, 16h51
Yurck

Citation:

Envoyé par And_res

mais ça m'affiche une erreure.

Erreur confidentielle ?

Je vois, je vois, je vois, je vois , je vois:D

une alternative

Code:

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:

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;

Et enfin apparaît l'erreur :(

Code:

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;

09/10/2008, 17h16
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.???

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:

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:

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;

10/10/2008, 05h43
Andnotor

Retir le dbo. qui est un alias de table à utiliser sur les champs en cas de requête multi-table.

Pourquoi utilises-tu le DBLookupComboBoxDateExa dans ta requête? C'est lui qui sera rempli avec les dates trouvées! Il sera plutôt à prendre en compte dans une deuxième requête Maître-détail pour afficher les examens du jour sélectionné.

Code:

SQL.text := 'SELECT DAT_SESS_EXA FROM SESSION_EXAMEN WHERE EXTRACT(YEAR FROM DATE_SESS_EXA) = EXTRACT(YEAR FROM CURRENT_DATE)';

Il ne faut en tout cas pas utilisé de ". Le double guillemet interprète la valeur comme le nom d'un champ. Il est principalement utilisé lorsque le nom du champ correspond à un mot réservé. ex. un champ Description appelé "DESC".
10/10/2008, 10h10
And_res

Merci pour vos réponses,

Mais je suis toujours confronté à cette erreur, je me demande si sql server 2005 connais le FROM , ma date_sess_exa est en type CHAR.

'Incorrect syntax near the keyword 'FROM
10/10/2008, 10h53
Yurck

Sans être un spécialiste de SQL serveur 2005 je peux te dire que oui l'instruction FROM est connu.

Commence par faire ta requête avec outil SQL adpaté à ta base
une requête simple

Code:

SELECT * FROM SESSION_EXAMEN

Es-tu sur que SESSION_EXAMEN est bien une table de ta base ?
12/10/2008, 20h30
kanzarih

Salut And_res
j'ai eu à traité un problème similaire mais sous "JAVA". et je vous rappel que le SQL Server 2005 utilise ce type de syntaxe :

Code:

select table_name.colomn_name from database_name.table_name

j'espère avoir aidé ;)