Foxtable(狐表)用户栏目专家坐堂 → 4个条件查询代码


  共有3449人关注过本帖树形打印复制链接

主题:4个条件查询代码

帅哥哟,离线,有人找我吗?
long086
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:298 积分:2605 威望:0 精华:0 注册:2013/5/22 7:16:00
4个条件查询代码  发帖心情 Post By:2020/9/22 22:25:00 [只看该作者]

 

老师我想设计一个查询窗口,

查询有效会员,(条件1)

会员类型为 普通会员,(条件2)

会员等级是三级的,(条件3)

最后一次交费时间和交费金额,(条件4)

包含4个条件的,这个查询按钮怎么写代码

 

附件已上传请老师指点

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:4个条件查询代码.foxdb

[此贴子已经被作者于2020/9/22 22:33:39编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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 等级='三级'

 回到顶部
帅哥,在线噢!
wei0769
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1824 积分:19564 威望:0 精华:0 注册:2013/4/10 14:38:00
  发帖心情 Post By:2020/9/23 14:00:00 [只看该作者]

sql还可以这样用

 回到顶部
帅哥哟,离线,有人找我吗?
long086
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:298 积分:2605 威望:0 精华:0 注册:2013/5/22 7:16:00
  发帖心情 Post By: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就不行,什么原因。


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/24 10:16:00 [只看该作者]

提示什么错误?

 回到顶部
帅哥哟,离线,有人找我吗?
long086
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:298 积分:2605 威望:0 精华:0 注册:2013/5/22 7:16:00
  发帖心情 Post By:2020/9/24 10:49:00 [只看该作者]


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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/24 10:50:00 [只看该作者]

Fill(SelectString, ConnectionName, IsQuery)

SelectString:  Select语句
ConnectionName:可选参数,指定数据源名称
IsQuery:       逻辑型,设为True,将生成SQLQuery型Table,否则生成SQLTable型Table。


 回到顶部