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

yangwejie　发表于：2008-02-22 11:45:23 　

看了如何在ADP中读取SQL服务器当前时间的例子但还是不会,请大家帮帮忙.

例子：

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") ' 长日期

access的代码怎么写?

Top

韩志发表于：2008-03-30 12:43:44

Function gottime() As Date
Dim con As New ADODB.Connection
Dim connstr As String
Dim rst As New ADODB.Recordset
connstr = "Driver={SQL Server};Server=IP;Database=数据库名;Uid=用户名;Pwd=口令;"
con.Open connstr
rst.Open "select getdate() as sj", con, adOpenKeyset, adLockOptimistic
gottime = rst("sj")
End Function

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

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