Foxtable(狐表)用户栏目专家坐堂 → select语句动态添加列名


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

主题:select语句动态添加列名

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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/5/10 13:40:00 [显示全部帖子]

没有必要吧,就那么2个列,都加载出来又有什么问题呢

dim s as string
for each c as col in tables("a").cols
s = s & "," & c.name
next

cmd.CommandText = "Se lect " & s.trim(",") & " from {员工} Wh ere 姓名 = '王伟'"

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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/5/10 14:07:00 [显示全部帖子]

If Filter > "" Then
    cmd.CommandText = "Se lect " & s.trim(",") & " From {} Where " & Filter 
Else
    cmd.CommandText = "Se lect " & s.trim(",") & "       From {“ & maintable.NAME & ”} "
End If

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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/5/10 14:34:00 [显示全部帖子]

Dim nms() As String = s.trim(", ").split(",")

If Filter > "" Then
    cmd.CommandText = "Se lect " & s.trim(",") & " From {“ & maintable.NAME & ”} Where " & Filter 
Else
    cmd.CommandText = "Se lect " & s.trim(",") & "       From {“ & maintable.NAME & ”} "
End If

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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/5/10 14:45:00 [显示全部帖子]

弹出完整sql看看

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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/5/10 14:55:00 [显示全部帖子]

看拼接好的完整sql语句

 回到顶部