获取服务器日期时间 ( 积分: 100 )

如下语句是获得本地日期时间：
FormatDateTime('yyyymmddHH24nnss',now)
因为要根据日期时间产生一个编号，加上客户PC太多，而生成的编号必须唯一，
所以想求怎样获取服务器日期和时间，不知怎样获取，
请各位帮忙？

什么数据库

如果你是sql server 数据库，很容易的。使用sql语句，“select getdate()
”可以得到你需要的。

function GetServerDateTime(const ServerADOConection: TADOConnection): TDateTime;
var
aDs: TADODataSet;
begin
aDs := TADODataSet.Create(nil);
try
aDs.Connection := ServerADOConection; //将数据集与Connection连接
aDs.CommandText := 'SELECT GetDate() AS CurrentDateTime';
aDs.Open;
Result := aDs.fieldByName('CurrentDateTime').Value;
aDs.Connection := nil; //断开数据集与Connection的连接
finally
FreeAndNil(aDs);
end;
end;

数据库是Oracle 9i
还有一个问题请教,我已经在Oracle导出了整个数据库的框架(结构)
现在想导入,请问怎么做,
数据文件是MCS.dmp,存放在E:/MCS目录下
是否使用import命令

各位帮忙顶,谢谢

ORACLE数据库只要把kequan的代码改一下就行了
function GetServerDateTime(const ServerADOConection: TADOConnection): TDateTime;
var
aDs: TADODataSet;
begin
aDs := TADODataSet.Create(nil);
try
aDs.Connection := ServerADOConection; //将数据集与Connection连接
aDs.CommandText := 'SELECT to_date(sysdate,'yyyy-mm-dd hh24:mi:ss') AS CurrentDateTime';
aDs.Open;
Result := aDs.fieldByName('CurrentDateTime').Value;
aDs.Connection := nil; //断开数据集与Connection的连接
finally
FreeAndNil(aDs);
end;
end;

多人接受答案了。