- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 4个条件查询代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=154675)
-- 发布时间：2020/9/22 22:25:00
-- 4个条件查询代码
老师我想设计一个查询窗口，
查询有效会员，（条件1）
会员类型为 普通会员，（条件2）
会员等级是三级的，（条件3）
最后一次交费时间和交费金额，（条件4)
包含4个条件的，这个查询按钮怎么写代码
附件已上传请老师指点
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:4个条件查询代码.foxdb |
[此贴子已经被作者于2020/9/22 22:33:39编辑过]
-- 发布时间：2020/9/22 22:59:00
--
Select a.编号,a.姓名, d.充值时间,d.充值金额 From {会员资料} a INNER JOIN (Select c.* from {会员交费记录} c INNER JOIN (Select 编号, Max(充值时间) As 充值时间 From {会员交费记录} Group By 编号) As b on b.编号 = c.编号 where b.充值时间= c.充值时间 ) As d on a.编号 = d.编号 where 是否有效 = true And 会员类型=\'普通会员\' and 等级=\'三级\'
-- 发布时间：2020/9/23 14:00:00
--
sql还可以这样用
-- 发布时间：2020/9/23 23:35:00
--
Dim s As String = "Sel ect a.编号,a.姓名, d.充值时间,d.充值金额 From {会员资料} a INNER JOIN (Se lect c.* from {会员交费记录} c INNER JOIN (Sel ect 编号, Max(充值时间) As 充值时间 From {会员交费记录} Gr oup By 编号) As b on b.编号 = c.编号 where b.充值时间= c.充值时间 ) As d on a.编号 = d.编号 where 是否有效 = false And 会员类型 = \'普通会员\'"
Tables("窗口1_Table1").Fill(s,True)
请问老师上面的代码内部数据源没有问题，把数据源改成access就不行，什么原因。
-- 发布时间：2020/9/24 10:16:00
--
提示什么错误？
-- 发布时间：2020/9/24 10:49:00
--
此主题相关图片如下：捕获.png
-- 发布时间：2020/9/24 10:50:00
--
Fill(SelectString, ConnectionName, IsQuery)
SelectString： Select语句
ConnectionName：可选参数，指定数据源名称
IsQuery： 逻辑型，设为True，将生成SQLQuery型Table，否则生成SQLTable型Table。