会员登录 - 用户注册 - 网站地图 Office中国(office-cn.net),专业Office论坛
当前位置:主页 > 技巧 > Access技巧 > DAO/ADO/ADP > 正文

如何在ADP中读取SQL服务器当前时间

时间:2005-02-05 14:28 来源:accessfaq 作者:朱亦文 阅读:

通过使用 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") ' 长日期

(责任编辑:admin)

顶一下
(0)
0%
踩一下
(0)
0%
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价: