- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 提取服务器时间的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50390)
-- 发布时间：2014/5/6 10:22:00
-- 提取服务器时间的问题
狐爸:帮助中的提取服务器时间的代码,为什么我在使用中发现提取的还是自己电脑上的时间呢?
获取SQL Server服务器时间
由于用户可以修改计算机的系统时间，所以根据系统时间进行一些条件判断，不是很可靠，存在“作弊”的可能。
如果你采用SQL Server作为数据源，可以用下面的代码获得SQL Server服务器的时间：
Dim
cmd
As
New
SQLCommand
Dim
dt
As
Date
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()
我按照这个代码测试的时间还是自己电脑时间,请问是什么情况?
-- 发布时间：2014/5/6 10:29:00
--
Dim cmd As New SQLCommand
Dim dt As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()
Output.Show("服务器时间: " & dt & " 本机时间: " & Date.Now)
-- 发布时间：2014/5/6 10:29:00
--
测试结果，正确，钉是钉，铆是铆。
-- 发布时间：2014/5/6 10:52:00
--
ISY老师:我想问题出在再次引用服务器时间上
此主题相关图片如下：clip_image002.jpg
这是我测试结果,但如果我再引用一下服务器的时间的话,它就变成我的本机时间了,请问我怎么引用服务器时间,同时系统中很多地方用到服务器时间,我怎么解决,谢谢指教!
-- 发布时间：2014/5/6 10:58:00
--
你引用DT即可.你用DT.NOW做什么?
-- 发布时间：2014/5/6 11:02:00
--
呵呵,大佬:以前没发现这个问题,因为我引用的只要日期信息,现在我需要日期加时间信息了,一搞就发现出了问题,请问怎么办啊
-- 发布时间：2014/5/6 11:03:00
--
Dim cmd As New SQLCommand
Dim dt As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()
Output.Show("服务器时间: " & dt & " 本机时间: " & Date.Now)
Dim xxdt As Date = dt
Output.Show(xxdt)
-- 发布时间：2014/5/6 11:05:00
--
哪个地方需要系统时间，就在哪个地方重新获取。
-- 发布时间：2014/5/6 11:08:00
--
BIN老师:OK,是我这里出了问题,不该有dt.now,直接用dt 即可,但问题不是这个,如果我系统中有很多地方要用到服务器时间,那怎么办来引用服务器的时间呢,不用每次都要写一段代码吧
-- 发布时间：2014/5/6 11:10:00
--
要想只获取时间信息：
Dim cmd As New SQLCommand
Dim dt As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()
Output.Show("服务器时间: " & dt & " 本机时间: " & Date.Now)
Dim xdt As Date = TimeValue(dt)
Output.Show(xdt)