[已找到方法]客户端如何获得服务器端的时间

qlm

数据库需记录操作员登录时间,但客户端程序只能取得客户端电脑设定的时间,这样如果客户端时间出错的话,记录的时间就不正确了.请问

1、ACCESS中有什么办法取得服务器端时间?

2、如果用ADP+SQL,又怎么实现?触发器可以吗? (我不懂ADP,只是考虑将来的需要.)


(换个说法：如何用ACCESS获得局域网内另一台电脑的当前时间)



[2006-3-14]我找到一个代码(未试过):shell ("net time \\服务器名 /set /yes"),vbHide

[此贴子已经被作者于2006-3-14 22:31:07编辑过]

msf

问：如何在ADP中读取SQL服务器当前时间？
答：使用 T-SQL 的 GETDATE 函数。

GETDATE
按 datetime 值的 Microsoft® SQL Server™ 标准内部格式返回当前系统日期和时间。

例子：

Public Function GetSQLSvrTime() As Datetime
　　Dim rst As ADODB.Recordset
　　
　　Set rst = New ADODB.Recordset
　　Set rst.ActiveConnection = CurrentProject.Connection
　　rst.Open "SELECT GETDATE() AS SvrTime"
　　
　　GetSQLSvrTime = rst.Fields("SvrTime")
End Function

函数 GetSQLSvrTime 返回 SQL Server 服务器上的当前日期和时间。

如果取时间：
Dim sTime AS String
sTime = Format(GetSQLSvrTime(), "Short Time")     ' 短时间

如果取日期：
Dim sDate AS String
sDate = Format(GetSQLSvrTime(), "Long Date")      ' 长日期

qlm

多谢，辛苦您了！ADP的暂时先收藏。

ACCESS是不是差不多？先试过再说。

msf

在操作记录表里面增加一个字段，设为默认时间，记录操作时读入该字段时间就可以了

qlm

To msf:不行啊，时间还是本地的时间。

我要说明一下：我只是在局域网内共享数据库（链接表），并不是正儿八经的客户端服务器。

我的问题换个说法吧：如何用ACCESS获得局域网内另一台电脑的当前时间？

andymark

以前在论坛下的，现转上来

fswxs

看看