以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  sel ect组合条件统计Count报错 语法错误?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=160410)

--  作者:cnsjroom
--  发布时间:2021/2/1 17:29:00
--  sel ect组合条件统计Count报错 语法错误?
sel ect组合条件统计Count报错  语法错误?


图片点击可在新窗口打开查看此主题相关图片如下:111.png
图片点击可在新窗口打开查看

红色部分报错  得到的数据为零

图片点击可在新窗口打开查看此主题相关图片如下:222.png
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:求助代码.txt


[此贴子已经被作者于2021/2/1 17:32:27编辑过]

--  作者:有点蓝
--  发布时间:2021/2/1 17:36:00
--  
cmd.CommAndText = "Select Count(*) From {user} where " & flt 
msgbox(cmd.CommAndText) 查看弹出的sql是否正确

--  作者:cnsjroom
--  发布时间:2021/2/1 18:06:00
--  回复:(有点蓝)cmd.CommAndText = "Select Count(*)...
改成如下就可以弹出正确的语句,也会弹出语句,但是会提示  错误:
cmd.CommandText = "Sele ct Count(*) From {user} where " & flt
错误所在事件:
详细错误信息:
关键字 \'Where\' 附近有语法错误。
同样还会导致没有上一页下一页  麻烦老师看看是不是我的使用方法不对?
[此贴子已经被作者于2021/2/1 18:12:50编辑过]

--  作者:有点蓝
--  发布时间:2021/2/1 20:01:00
--  
msgbox(cmd.CommAndText) 弹出什么sql


--  作者:cnsjroom
--  发布时间:2021/2/1 20:43:00
--  回复:(有点蓝)msgbox(cmd.CommAndText) 弹出什么sq...
图片点击可在新窗口打开查看会弹出这个图示内容
但是错误如楼上 提示报错

cmd.CommandText = "Sele ct Count(*) From {user} where " & flt""""
如果加上后面四个引号
上面的弹出提示 末尾会多一个”

[此贴子已经被作者于2021/2/1 20:46:33编辑过]

--  作者:有点蓝
--  发布时间:2021/2/1 21:09:00
--  
弹出这个图示内容肯定没有问题,检查其他sql。不需要加四个引号,多此一举
--  作者:cnsjroom
--  发布时间:2021/2/1 21:42:00
--  回复:(有点蓝)弹出这个图示内容肯定没有问题,检查...
其它SQL语句都测试了 没有问题


.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2020.5.29.8
错误所在事件:
详细错误信息:
关键字 \'Where\' 附近有语法错误。

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2020.5.29.8
错误所在事件:自定义函数,getdangyuanlist
详细错误信息:
调用的目标发生了异常。
未将对象引用设置到对象的实例。

[此贴子已经被作者于2021/2/1 22:41:29编辑过]

--  作者:有点蓝
--  发布时间:2021/2/1 22:11:00
--  
不需要加四个引号,多此一举
--  作者:cnsjroom
--  发布时间:2021/2/1 22:41:00
--  回复:(有点蓝)不需要加四个引号,多此一举
不会意思  发错误了   
这个是没有四个引号的
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档.txt

每个sql语句单独弹出都是正确的
但是错入如楼上一样 

--  作者:有点蓝
--  发布时间:2021/2/1 23:02:00
--  
If flt > "" Then
    cmd.CommandText = "Select * From (Select Row_Number() Over(Order by _Identify) As [NO.],[_Identify],姓名,部门,联系电话  From user where " & flt & ") As a "
去掉这句cmd.Comm And Text = "Sele ct Count(*) From {user} where " & flt 
Dim Count As Integer = cmd.Exec uteScalar() \'获取总的行数
MessageBox.Show(count)
    msgbox(cmd.CommAndText)
Else
    cmd.CommandText = "Select * From (Select Row_Number() Over(Order by _Identify) As [NO.],[_Identify],姓名,部门,联系电话  From user) As a "
End If
[此贴子已经被作者于2021/2/1 23:02:06编辑过]