access开发平台企业版读取服务器时间

时　间:2010-11-24 09:21:11
作　者:一杯绿茶   ID：36  城市：遂宁
摘　要:Access开发平台企业版读取服务器时间.
正　文:

Function Servertime() As Date
    Dim con As New ADODB.Connection
    Dim connstr As String
    Dim rst As New ADODB.Recordset
    connstr = Forms!usysfrmlogin!LabConn.Caption    'Forms!usysfrmlogin!LabConn.Caption
    con.Open connstr
    rst.Open "select getdate() as sj", con, adOpenKeyset, adLockOptimistic
    Servertime = rst("sj")
End Function

上边代码放在模块中即可.

如果在窗体控件中调用,me. 控件名=servertime就可以了.