在MDB中获取sqlserver服务器时间
时 间:2010-01-11 10:27:05
作 者:竹笛 ID:8 城市:上海 QQ:2851379730
摘 要:用access作前台,sql server为网络后台,在保存数据时采用后台sql系统时间,防止时间的不统一。
正 文:
一、函数:
'将此函数放在ACCESS的标准模块中
Public Function GetSQLSvrTime()
Dim rst As ADODB.Recordset
Dim strConn As String
Dim strSQL As String
Dim strServer As String
Dim strServerUser As String
Dim strPWS As String
Dim strDB As String
Set rst = New ADODB.Recordset
strServer = "192.168.1.12" '服务器IP地址
strServerUser = "sa" '服务器用户名
strPWS = "123456" '服务器密码
strDB = "AccDev_be" '数据库名称
strConn = "Provider=MSDataShape.1;Persist Security Info=True;Data Source=" & strServer & ";" _
& "User ID=" & strServerUser & ";Password=" & strPWS & ";" _
& "Initial Catalog=" & strDB & ";Data Provider=SQLOLEDB.1"
strSQL = "Select GETDATE() AS SvrTime"
rst.Open strSQL, strConn, adOpenDynamic, adLockOptimistic
GetSQLSvrTime = rst.Fields("SvrTime")
End Function
二、调用代码:
Private Sub TestCode()
Dim sTime As String
'取时间
sTime = Format(GetSQLSvrTime(), "Short Time") ' 短时间
Debug.Print sTime
'取日期:
Dim sDate As String
sDate = Format(GetSQLSvrTime(), "Long Date") ' 长日期
Debug.Print sDate
End Sub
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
- 用DLOOKUP函数将需求表中...(10.31)
- Access日期区间段查询数据...(10.25)
学习心得
最新文章
- Access快速开发平台--在WI...(03.08)
- 使用SQL语句删除xscj表中学号...(03.08)
- Access快速开发平台进销存教程...(03.07)
- Access快速开发平台--frm...(03.06)
- 【Access删除查询】删除数字最...(03.06)
- Access快速开发平台进销存教程...(03.05)
- Access快速开发平台进销存教程...(03.04)
- Access快速开发平台--IsL...(03.02)
- Access两种方式实现即时更新月...(03.01)
- Access开发的资金管理系统;基...(02.29)