专家坐堂-为何查不到数据Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  为何查不到数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=196076)

--  作者：lin98
--  发布时间：2025/3/27 13:40:00
--  为何查不到数据

Dim db = HySGqGl.DataBaseFactory.CreateDatabase("db") \'
MYSQGGL执行可以查询到数据
Dim SqGl2 = "SeleGGct a.*,b.关系ID From 表A as a " & _
"Inner Join 用户表 as b " & _
"On (a.用户ID = b.用户ID) " & _
"Where (b.[关系ID] = @关系ID OR b.[关系ID] IS NULL) " & _
"And (a.[审核] =\'未审核\') " & _
\'"b.关系ID = ? And (a.日期 BETWEEN DATE_SUB(NOW(), INTERVAL 2 MONTH) AND NOW() );" \'\'
\'Dim dt2 As System.Data.DataTable = db.ExecuteDataSet(SqGGl2, HySGqGl.ParameterPair.GetPair("b.关系ID", _用户ID)).Tables(0)\'
Dim t2 As Table = e.Form.Controls("Table1").Table

SQGGL2008，执行显示空白，后台有数据，查不到数据，如何解决？
Dim SqGGl2 = "SeleGGct a.*,b.关系ID From 表A as a " & _
"Inner Join 用户表 as b " & _
"On (a.用户ID = b.用户ID) " & _
"Where (b.[关系ID] = @关系ID OR b.[关系ID] IS NULL) " & _
"And (a.[审核] =\'未审核\') " & _
"b.关系ID =@关系ID And (a.日期 BETWEEN DATEADD(MONTH, -2, GETDATE()) AND GETDATE());" \'
Dim dt2 As System.Data.DataTable = db.ExecuteDataSet(SqGGl2, HySGGql.ParameterPair.GetPair("@关系ID ", _用户ID)).Tables(0) \'
Dim t2 As Table = e.Form.Controls("Table1").Table

--  作者：有点蓝
--  发布时间：2025/3/27 13:58:00
--
e.Form.Controls("Table1").Table.DataSource = dt2

--  作者：lin98
--  发布时间：2025/3/27 14:32:00
--

Dim SqGGl2 = "SeleGGct a.*,b.关系ID From 表A as a " & _
"Inner Join 用户表 as b " & _
"On (a.用户ID = b.用户ID) " & _
"Where (b.[关系ID] = @关系ID OR b.[关系ID] IS NULL) " & _
"And (a.[审核] =\'未审核\') " & _
"b.关系ID =@关系ID And (a.日期 BETWEEN DATEADD(MONTH, -2, GETDATE()) AND GETDATE());" \'
Dim dt2 As System.Data.DataTable = db.ExecuteDataSet(SqGGl2, HySGGql.ParameterPair.GetPair("@关系ID ", _用户ID)).Tables(0) \'

e.Form.Controls("Table1").Table.DataSource = dt2

还是查不到数据？

[此贴子已经被作者于2025/3/27 14:34:13编辑过]

--  作者：有点蓝
--  发布时间：2025/3/27 14:47:00
--
跟踪SqlServer看看后台执行了什么sql

--  作者：lin98
--  发布时间：2025/3/27 14:59:00
--

Dim SqGGl2 = "SeleGGct a.*,b.关系ID From 表A as a " & _
"Inner Join 用户表 as b " & _
"On (a.用户ID = b.用户ID) " & _
"Where (b.[关系ID] = " & _关系ID& "   OR b.[关系ID] IS NULL) " & _
Dim dt2 As system.data.DataTable = db.ExecuteDataSet(Sql2).Tables(0)
\'Dim t2 As Table = e.Form.Controls("Table1").Table

字符拼接，是可以查到，可带参数，就是不行，这如何解决？是狐表不能带参数？

" & _关系ID& "是全局变量

[此贴子已经被作者于2025/3/27 15:01:46编辑过]

--  作者：有点蓝
--  发布时间：2025/3/27 15:42:00
--
跟踪SqlServer看看后台执行了什么sql：https://www.cnblogs.com/luoxiaoxiao102/p/15169920.html

--  作者：lin98
--  发布时间：2025/3/27 17:52:00
--

窗口打开后事件
Dim DXID As Integer = _用户ID
Dim dr As DataRow
If dr("用户ID") = DUID Then
查询一

Else
查询二
End If
报错
未将对象引用设置到对象的实例。

--  作者：有点蓝
--  发布时间：2025/3/27 20:17:00
--
定义的dr变量没有赋值，就是空的，无法使用

--  作者：lin98
--  发布时间：2025/3/28 9:51:00
--
如何改？

--  作者：有点蓝
--  发布时间：2025/3/28 9:57:00
--
这一行来自哪里？