Question

delphi中怎么获取服务器的时间,从数据库中获取

我想获取服务器时间,然后赋给数据库字段,但现在不知道怎么获取服务器数据库时间,请高手帮忙给个实例.谢谢

Answer 1

下面是公司的代码，调整成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语句。

Answer 2

在客户端执行
SELECT { fn NOW() }

Answer 3

vQ1:=TADOQuery.Create(Self);
nowTime:TdateTime;

with vq1 do
begin
close
sql='select getdate() as vTime'
open
end;

nowTime:=vQ1.Fieldbyname('vTime').asstring;

Answer 4

SELECT GETDATE()

Answer 5

case
DBType
of
dtMSSQL:
Result
:=
'SELECT
GETDATE()';
dtACCESS:
Result
:=
'SELECT
Date()';
dtORACLE:
Result
:=
'SELECT
SYSDATE
FROM
dual';
dtDB2:
Result
:=
'SELECT
current
date
FROM
sysibm.sysdummy1';
end;