Office中国论坛/Access中国论坛

标题: 获得SQL SERVER服务器时间 [打印本页]

作者: tmtony 时间: 2017-6-3 12:59
标题: 获得SQL SERVER服务器时间
这个取服务器时间是通用的，不需要平台。里面的连接服务器sql server的参数改成你自己的相关内容即可

Public Function gf_GetServerTime() As Date  '获得SQL SERVER服务器时间
On Error GoTo Err_Hanlder
Dim rst As Object
Dim cn As Object
Dim strServer As String
Dim strDatabase As String
Dim strUser As String
Dim strPassword As String
Dim strMachine As String
'请修改这个内容为你的sql server服务器的相关数据

strServer = "localhost"  '服务器名称或IP
strDatabase = "Data"    '数据库名
strUser = "sa"          '数据库用户名
strPassword = "123"    '数据库密码

Set cn = CreateObject("ADODB.Connection")
   cn.Open "DRIVER={SQL Server};SERVER=" & strServer & ";UID=" & strUser & ";PWD=" & strPassword & ";DATABASE=" & strDatabase
Set rst = CreateObject("ADODB.Recordset")
rst.Open "Select GETDATE() AS FSqlCurrDate", cn, 1, 3
If Not rst.EOF Then gf_GetServerTime = rst(0)

Exit_Hanlder:
On Error Resume Next
rst.Close
cn.Close
Set rst = Nothing
Set cn = Nothing
Exit Function
Err_Hanlder:
MsgBox Err.Description
GoTo Exit_Hanlder
End Function

作者: tmtony 时间: 2017-6-3 12:59
test332343

作者: koutx 时间: 2017-6-3 17:49
多谢站长!

作者: GOODWIN 时间: 2021-9-8 09:49

多谢站长!

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