ACCESS 怎样获取SQL SERVER 服务器时间

cxjhx 2013-01-21 02:31:06

前台是ACCESS窗体，通过链接表访问SQL SERVER2000 服务器，在ACCESS中怎样通过VBA语句获取SQL server 当前时间？

...全文

180 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

cxjhx 2013-01-21

打赏
举报

谢谢，已经解决。

cxjhx 2013-01-21

打赏
举报

Dim objConn As Object Dim strConn As String Dim strError As String, lngErr As Long Dim rs As ADODB.Recordset Const cstrSQLErr = "[Microsoft][ODBC SQL Server Driver][SQL Server]" Set objConn = CreateObject("ADODB.Connection") strConn = strConn & "DRIVER=SQL Server" strConn = strConn & ";SERVER=" & pstrServer strConn = strConn & ";APP=" & Application.Name strConn = strConn & ";WSID=AWorkstation" strConn = strConn & ";DATABASE=" & pstrDb objConn.Open strConn, pstrUser, pstrPassword rs.Open "SELECT GETDATE()", objConn ' MsgBox rs.Fields("dt").Value '显示服务器上当前时间以上代码为“模块”内代码，执行到rs.open 时出现如下错误提示： error #91 对象变量或WITH块变量未设置

wwwwb 2013-01-21

打赏
举报

VBA连接SQLSERVER：应该知道吧 Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset conn.ConnectionString = "Driver={SQL Server}; server=SDT-004;database=zaiku;" conn.Open rs.Open "SELECT GETDATE()", conn, adOpenKeyset, adLockOptimistic, adCmdText msgbox rs(0)

cxjhx 2013-01-21