下面是公司的代码,调整成ADO控件,给你参考一下:
function GetNetDate: TDateTime; begin with TADOQuery.Create(nil) do begin try Connection := ADOConnection1; // 绑定数据库连接对象 if Self.DBEService.DBType = dtMSSQL then // 这里你自己处理一下,公司代码的意思是,如果当前数据库是MSSQL Server SQL.Add('SELECT GETDATE() AS CURDATE ') else Self.DBEService.DBType = dtOracle then // 如果当前数据库是Oracle SQL.Add('SELECT SysDate AS CURDATE FROM DUAL '); Open; Result := FieldByName('CURDATE').AsDateTime; finally Free; end; end; end;
简单的说,MSSQL数据库,使用“Select GetDate() ”这样的SQL语句获取数据库服务器时间,而Oracle则使用“Select SysDate”这样的SQL语句。