Discussion :

[Lung]

Je cherche à faire un simple select :

Code :

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

1
2
3
4
5
6
7
8
      _SQLQuery.Close;
      _SQLQuery.SQL.Clear;
      _SQLQuery.SQL.Add('select ID_APPLICATION from APPLICATIONS');
      _SQLQuery.SQL.Add('where lower(NOM) = ''' + LowerCase(szNomApplication) + '''');
      try
         _SQLQuery.Open;
       except
...

Et j'obtiens l'erreur :

Le projet Project1.exe a déclenché la classe d'exception TDBXError avec le message 'Token unknown - line 1, column 32
.'.

Voici la création du SQLConnexion et de la query :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
         _SQLConnectionFireBird := TSQLConnection.Create(nil);
         SetParamConnectionFireBird(_SQLConnectionFireBird);
 
         //.Connexion.
         try
            _SQLConnectionFireBird.Open;
         except
            on E: Exception do
            begin
               AffMsgDialogue('Erreur :  échec de la connexion locale (' + szCheminTables + ') !' + #13#10 + E.Message, mtError);
               _SQLConnectionFireBird.Free;      _SQLConnectionFireBird := nil;
               Exit;
            end;
         end;
 
         _SQLQuery := TSQLQuery.Create(nil);
         _SQLQuery.SQLConnection := _SQLConnectionFireBird;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure SetParamConnectionFireBird(SQLConnection: TSQLConnection);
begin
   if Assigned(SQLConnection) then
   begin
      SQLConnection.Params.Clear;
      SQLConnection.DriverName := 'Firebird';
      SQLConnection.Params.Add('Drivername=FIREBIRD');
      SQLConnection.Params.Add('Database=C:\répertoire\MaBase.FDB');
      SQLConnection.Params.Add('Password=MonMDP');
      SQLConnection.Params.Add('User_Name=MonLogin');
      SQLConnection.LoginPrompt := False;
   end;
end;

Que veut dire cette erreur ?

[seabs]

Bonjour,

Je pense que ton erreur provient de l'absence d'un espace dans ta ligne

Code :

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

1
2
 _SQLQuery.SQL.Add('select ID_APPLICATION from APPLICATIONS');
      _SQLQuery.SQL.Add('where lower(NOM) = ''' + LowerCase(szNomApplication) + '''');

qui doit devenir

Code :

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

1
2
 _SQLQuery.SQL.Add('select ID_APPLICATION from APPLICATIONS ');
      _SQLQuery.SQL.Add('where lower(NOM) = ''' + LowerCase(szNomApplication) + '''');

Ta requête avec ta présentation est

Code :

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

select ID_APPLICATION from APPLICATIONSwhere lower(NOM) = LowerCase(szNomApplication)

Or, il faut obtenir

Code :

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

select ID_APPLICATION from APPLICATIONS where lower(NOM) = LowerCase(szNomApplication)

Il serait bien avant d'écrire votre requête dans Delphi de la tester avec un éditeur SQL. Ainsi, vous pourriez détecter rapidement les raisons de l'anomalie

Bon courage