以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助 获取服务器系统时间  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=53305)

--  作者:wumingrong1
--  发布时间:2014/7/4 15:07:00
--  [求助 获取服务器系统时间
我有这样一个命令;获取到的日期为当前电脑的日期;如果我希望获取到的是存放数据库的服务器日期,该命令该怎么改?

If e.DataTable.DataCols.Contains("操作记录_增加日期")  Then
    e.DataRow("操作记录_增加日期") = Date.now
End If

--  作者:Bin
--  发布时间:2014/7/4 15:11:00
--  
http://www.foxtable.com/help/topics/2318.htm
--  作者:wumingrong1
--  发布时间:2014/7/4 17:19:00
--  
是这么写吗?只要改  “数据源名称”就可以啦?

If e.DataTable.DataCols.Contains("操作记录_增加日期")  Then 
Dim
 cmd As New SQLCommand 
Dim
 dt As Date
cmd.ConnectionName = 
"数据源名称"
cmd.CommandText = 
"Select GetDate()"
dt = cmd.ExecuteScalar()
dt = dt.
Date

  e.DataRow("操作记录_增加日期") = dt
End If

--  作者:Bin
--  发布时间:2014/7/4 17:22:00
--  
对的
--  作者:wumingrong1
--  发布时间:2014/7/5 11:07:00
--  
能告诉我 数据源名称 是指什么吗?我在服务器的哪能找到或者设置?
--  作者:Bin
--  发布时间:2014/7/5 11:10:00
--  
http://www.foxtable.com/help/topics/1420.htm


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140705110935.jpg
图片点击可在新窗口打开查看


--  作者:wumingrong1
--  发布时间:2014/7/5 13:01:00
--  
如下命令,发生错误提示; 操作记录_修改日期  列为 日期和时间 类型的 Date:

If e.DataTable.DataCols.Contains("操作记录_修改日期")  Then \'如果当前表中存在"*****"列

Dim cmd As New SQLCommand 
Dim dt As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()
dt = dt.Date


    If dt <> "操作记录_修改日期" Then \'如果"*****"日期列的日期不等于当前电脑日期
        e.DataRow("操作记录_修改日期") = dt \'在"*****"列纪录下当前电脑日期


    End If  \'结束
End If  \'结束

图片点击可在新窗口打开查看此主题相关图片如下:360截图20140725125913125.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2014-7-5 13:01:27编辑过]

--  作者:Bin
--  发布时间:2014/7/5 14:27:00
--  
 If dt <> "操作记录_修改日期" Then  你这个判断是想做什么? 肯定会报错啊. 用日期来和字符串对比
--  作者:Bin
--  发布时间:2014/7/5 14:28:00
--  
If dt <> date.today Then \'如果"*****"日期列的日期不等于当前电脑日期