设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2170|回复: 3

[ADO/DAO] 获得SQL SERVER服务器时间

[复制链接]

点击这里给我发消息

发表于 2017-6-3 12:59:49 | 显示全部楼层 |阅读模式
这个取服务器时间是通用的,不需要平台。里面的连接服务器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

点击这里给我发消息

 楼主| 发表于 2017-6-3 12:59:50 | 显示全部楼层
test332343
发表于 2017-6-3 17:49:50 | 显示全部楼层
多谢站长!
回复

使用道具 举报

发表于 2021-9-8 09:49:51 | 显示全部楼层

多谢站长!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 15:35 , Processed in 0.095396 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表