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;

[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 :

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

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".

[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

[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 SQL :

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

SELECT * FROM SESSION_EXAMEN

Es-tu sur que SESSION_EXAMEN est bien une table de ta base ?

[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 SQL :

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

select table_name.colomn_name from database_name.table_name

j'espère avoir aidé