以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]数据库链接错误提示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79075)
--  作者：智友软件工作室
--  发布时间：2015/12/23 18:59:00
--  [求助]数据库链接错误提示
数据库是sql2008R2，链接是发生错误，什么情况呢？


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20151223185348.png
图片点击可在新窗口打开查看
--  作者：大红袍
--  发布时间：2015/12/23 19:17:00
--  

执行什么sql语句的时候报的错。

 

提示的意思是你赋值的日期是不规则的日期，不能转换成正确的日期。
--  作者：智友软件工作室
--  发布时间：2015/12/23 19:54:00
--  
现在不是全部电脑出现的这个问题，只有部分电脑出现这个问题。

Dim now As Date = Functions.Execute("服务器时间")
Dim Filter As String
Filter = "订单日期 = \'" & Format(now,"d") & "\'"
If _usergroup = "销售" Then
    DataTables("订单").LoadFilter = Filter & "and 销售 = \'" & _username & "\'"
    DataTables("订单").Load()
End If
If _usergroup = "主管" Then
    DataTables("订单").LoadFilter = Filter & "and 主管 = \'" & _username & "\'"
    DataTables("订单").Load()
End If
If _usergroup = "经理" Then
    DataTables("订单").LoadFilter = Filter & "and 经理 = \'" & _username & "\'"
    DataTables("订单").Load()
End If


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

\'引用方法
Dim now As Date = Functions.Execute("服务器时间")
[此贴子已经被作者于2015/12/23 19:57:15编辑过]
--  作者：大红袍
--  发布时间：2015/12/23 20:02:00
--  

试试改成

 

Filter = "订单日期 = \'" & Format(now,"yyyy-MM-dd") & "\'"