Office中国论坛/Access中国论坛

标题: 在ADP中读取SQL服务器当前时间 [打印本页]

作者: zhuyiwen 时间: 2002-6-19 06:27
标题: 在ADP中读取SQL服务器当前时间

问：如何在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") ' 长日期
[fly][em26][/fly]

作者: xinbao 时间: 2002-6-20 03:51
请教，SvrTime是不是系统表来的

作者: tmtony 时间: 2002-6-20 07:40
不是系统表啦，是一个字段的别名，把GETDATE()取出来作为别名SvrTime

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)