Foxtable(狐表)用户栏目专家坐堂 → SQL Command使用


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

主题:SQL Command使用

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


加好友 发短信
等级:九尾狐 帖子:2232 积分:15251 威望:0 精华:0 注册:2015/7/18 10:10:00
SQL Command使用  发帖心情 Post By:2020/7/4 7:26:00 [只看该作者]

Select Case e.DataCol.name
    Case "选择"
        If e.DataRow("选择") = True Then
            Dim cmd As New SQLCo   mmand
            cmd.Connecti
            cmd.Comma  ndText ="Sel ect Count(*) Fr om {Users} Wh ere 用户 = '" & _User Name & "'and 公司名称 = '" & uuuuuu & "'and 一级菜单 = '" & e.DataRow("一级菜单") & "'and 二级菜单 = '" & e.DataRow("二级菜单") & "'and 三级菜单 = '" & e.DataRow("三级菜单") & "'and 四级菜单 = '" & e.DataRow("四级菜单") & "'and 五级菜单 = '" & e.DataRow("五级菜单") & "'and 六级菜单 = '" & e.DataRow("六级菜单") & "'and 七级菜单 = '" & e.DataRow("七级菜单") & "'and 八级菜单 = '" & e.DataRow("八级菜单") & "' "
            If cmd.Execut  eScalar <= 0 Then
                'Ins ert Into 项目菜单 (一级菜单,二级菜单,三级菜单,四级菜单,五级菜单,六级菜单,七级菜单,八级菜单,用户,公司名称) Values(e.DataRow("一级菜单") ,e.DataRow("二级菜单"),e.DataRow("三级菜单"),e.DataRow("四级菜单"),e.DataRow("五级菜单"),e.DataRow("六级菜单"),e.DataRow("七级菜单"),e.DataRow("八级菜单"),_UserN ame,uuuuuu)
            End If
        Else
           
        End If
End Sel ect

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


加好友 发短信
等级:九尾狐 帖子:2232 积分:15251 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2020/7/4 7:26:00 [只看该作者]

上述黄色代码改怎么修改


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


加好友 发短信
等级:九尾狐 帖子:2232 积分:15251 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2020/7/4 7:29:00 [只看该作者]

Select Case e.DataCol.name
    Case "选择"
        If e.DataRow("选择") = True Then
            Dim cmd As New SQLCo   mmand
            cmd.Connec    ti
            cmd.Comma  ndText ="Sel ect Count(*) Fr om {Users} Wh ere 用户 = '" & _User Name & "'and 公司名称 = '" & uuuuuu & "'and 一级菜单 = '" & e.DataRow("一级菜单") & "'and 二级菜单 = '" & e.DataRow("二级菜单") & "'and 三级菜单 = '" & e.DataRow("三级菜单") & "'and 四级菜单 = '" & e.DataRow("四级菜单") & "'and 五级菜单 = '" & e.DataRow("五级菜单") & "'and 六级菜单 = '" & e.DataRow("六级菜单") & "'and 七级菜单 = '" & e.DataRow("七级菜单") & "'and 八级菜单 = '" & e.DataRow("八级菜单") & "' "
            If cmd.Execut  eScalar <= 0 Then
                'Ins ert Into 项目菜单 (一级菜单,二级菜单,三级菜单,四级菜单,五级菜单,六级菜单,七级菜单,八级菜单,用户,公司名称) Values(e.DataRow("一级菜单") ,e.DataRow("二级菜单"),e.DataRow("三级菜单"),e.DataRow("四级菜单"),e.DataRow("五级菜单"),e.DataRow("六级菜单"),e.DataRow("七级菜单"),e.DataRow("八级菜单"),_UserN ame,uuuuuu)
            End If
        Else
           
        End If
End Sel ect

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


加好友 发短信
等级:九尾狐 帖子:2232 积分:15251 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2020/7/4 8:05:00 [只看该作者]

找到了

 回到顶部