獲得SQL SERVER服務(wù)器時間

tmtony

這個取服務(wù)器時間是通用的，不需要平臺。里面的連接服務(wù)器sql server的參數(shù)改成你自己的相關(guān)內(nèi)容即可


Public Function gf_GetServerTime() As Date  '獲得SQL SERVER服務(wù)器時間
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
    '請修改這個內(nèi)容為你的sql server服務(wù)器的相關(guān)數(shù)據(jù)

    strServer = "localhost"  '服務(wù)器名稱或IP
    strDatabase = "Data"     '數(shù)據(jù)庫名
    strUser = "sa"           '數(shù)據(jù)庫用戶名
    strPassword = "123"      '數(shù)據(jù)庫密碼

    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

test332343

koutx

多謝站長!

GOODWIN

多謝站長!