ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/runtime/nongui/IBCustomDataSet.pas
(Generate patch)

Comparing ibx/trunk/runtime/nongui/IBCustomDataSet.pas (file contents):
Revision 272 by tony, Mon Feb 4 13:34:37 2019 UTC vs.
Revision 287 by tony, Thu Apr 11 08:51:23 2019 UTC

# Line 5256 | Line 5256 | end;
5256  
5257   procedure TIBGenerator.SetQuerySQL;
5258   begin
5259 <  FQuery.SQL.Text := Format('Select Gen_ID(%s,%d) From RDB$Database',[FGeneratorName,Increment]);
5259 >  if Database <> nil then
5260 >    FQuery.SQL.Text := Format('Select Gen_ID(%s,%d) From RDB$Database',
5261 >      [QuoteIdentifierIfNeeded(Database.SQLDialect,FGeneratorName),Increment]);
5262   end;
5263  
5264   function TIBGenerator.GetDatabase: TIBDatabase;
# Line 5272 | Line 5274 | end;
5274   procedure TIBGenerator.SetDatabase(AValue: TIBDatabase);
5275   begin
5276    FQuery.Database := AValue;
5277 +  SetQuerySQL;
5278   end;
5279  
5280   procedure TIBGenerator.SetGeneratorName(AValue: string);

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines