Get ServerVersionUntouched for Firebird.

For Interbase is still empty, because I don't know, how to select with sql.
This commit is contained in:
Jan Kohlmeyer
2022-03-07 22:25:27 +01:00
committed by Ansgar Becker
parent e8050f858a
commit 76e176ae2e

View File

@ -2884,7 +2884,11 @@ begin
//! Query('PRAGMA busy_timeout='+(Parameters.QueryTimeout*1000).ToString);
FServerDateTimeOnStartup := GetVar('SELECT ' + GetSQLSpecifity(spFuncNow));
//! FServerVersionUntouched := GetVar('SELECT sqlite_version()');
if Self.Parameters.LibraryOrProvider.Equals('IB') then
FServerVersionUntouched := ''
else
FServerVersionUntouched := GetVar('SELECT rdb$get_context(''SYSTEM'', ''ENGINE_VERSION'') as version from rdb$database');
FConnectionStarted := GetTickCount div 1000;
FServerUptime := -1;