请各位老师指点获取SQL服务器时间的实例

亲峰　发表于：2010-04-29 15:37:39 　

大家好看了竹笛老师的这个方法建立了模块不知道调用怎么调用。请各位老师指点。

http://www.accessoft.com/article-show.asp?id=4161

二、调用代码：
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

不知道这个调用代码是放在窗体的什么位置进行调用。下面的这个是我制作的一个实例，没有成功希望各位于老师能多多指点。

点击下载此附件

Top

lt 发表于：2010-04-29 17:52:43

最简单的调用，放一个命令按扭，2个文本框，在命令按扭单击事件中这样写。另外先要确定MSSQL数据库连接正确。

Private Sub Command0_Click()

'取时间
Text0.Text = Format(GetSQLSvrTime(), "Short Time") ' 短时间

'取日期:

Text1.Text = Format(GetSQLSvrTime(), "Long Date") ' 长日期

End Sub

Top

亲峰发表于：2010-04-29 20:00:51

如果想打开窗体就自动进行同步 SQL服务器时间需要在打开事件中加入什么样的代码？或是在加载的这个事件中加载什么样的代码吗？

Top

lt 发表于：2010-04-29 20:29:42

可以在窗体打开事件中这样写,然后,在工具-启动-显示窗体选中这个窗体就就可以了.

Private Sub Form_Open(Cancel As Integer)
Text0.SetFocus
'取时间
Text0.Text = Format(GetSQLSvrTime(), "Short Time") ' 短时间
Text1.SetFocus
'取日期:
Text1.Text = Format(GetSQLSvrTime(), "Long Date") ' 长日期
End Sub

Top

lt 发表于：2010-04-29 20:57:44

其实同步SQL服务器时间，是为了防止数据操作机器与服务器时间不符，多用在保存用户各种操作的时间点，如用户输入/更新数据库的日期时间等。上面的例子，使用SQL服务器时间数据意义不大。仅是说明事件怎么使用。

Top

亲峰发表于：2010-05-16 14:34:48

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

请各位老师指点获取SQL服务器时间的实例