with DB do
begin
Connected := false;
DatabaseName := 'localhost:C:\Program Files (x86)\Borland\Delphi7\Projects\Project\DATABASE.fdb';
Params.Clear;
Params.Add('user_name=SYSDBA');
Params.Add('password=masterkey');
Params.Add('lc_ctype=WIN1251');
LoginPrompt := false;
SQLDialect := 3;
Connected := true;
end;
"Project Project.exe raised exception class EIBInterBaseError with message 'arithmetic exception, numeric overflow, or string truncation -sql_dialect set database dialect n'. Process stopped...