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

 

通过使用 SQL Server 的内部函数 GETDATE 来返回 SQL Server 所在的机器的系统日期和时间.
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") ' 长日期