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 ?