Foxtable(狐表)用户栏目专家坐堂 → 上次我提到切换账套有个报错,现在出来了


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

主题:上次我提到切换账套有个报错,现在出来了

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57590 威望:0 精华:15 注册:2008/9/1 9:45:00
上次我提到切换账套有个报错,现在出来了  发帖心情 Post By:2018/8/10 10:51:00 [只看该作者]

 上次我提到切换账套有个报错,现在出来了,我测试了一下客户端的切换没有什么问题.但是BS的HttpRequest事件加入了代码就出现了问题.

代码如下:
       Dim UserName As String = e.PostValues("username")
        Dim Password As String = e.PostValues("password")
        Dim orgName As String = e.PostValues("orgname")
        If orgName > "" Then
            Dim cmd As New SQLCommand
            cmd.Connec   ti
            Dim dt As DataTable
            cmd.CommandText = "Sel  ect * Fro  m 手机端IP Where 分院名称='" & orgName & "' And 链接 is not null"
            dt = cmd.ExecuteReader
            If dt.DataRows.Count > 0 Then
                If Connections.TryConnect(dt.DataRows(0)("链接")) = True Then
                    Dim nm As String = ""
                    For Each Foxdt As DataTable In DataTables
                        nm = nm & "|" & Foxdt.Name
                    Next
                    If nm > "" Then
                        nm = nm.TrimEnd("|").TrimStart("|")
                    End If
                    DataTables.Unload(nm)
                    Connections.Delete("服务器")
                    Connections.Add("服务器", dt.DataRows(0)("链接"))
                    DataTables.Load(nm)
                End If
            Else
                Return
            End If
        End If

昨日升级到最新的版本,在没有升级前是没有任何问题.

报错的截图如下:


图片点击可在新窗口打开查看此主题相关图片如下:tt截图未命名.jpg
图片点击可在新窗口打开查看


现在传个图片好像有点难.



[此贴子已经被作者于2018/8/10 10:52:22编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/10 11:23:00 [只看该作者]

1、你这个截图的报错,不是最新版的foxtable;

 

2、我在httprequest事件测试下面代码没问题

 

msgbox(2)
DataTables.unload("test")
Connections.Delete("test")
Connections.Add("test", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\test.mdb;Persist Security Info=False")
DataTables.load("test")
msgbox(1)


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


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57590 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2018/8/10 11:32:00 [只看该作者]

上次我在家里换了新系统就报错,我还在论坛提出来过.这个系统是我昨日才下载安装的.



图片点击可在新窗口打开查看此主题相关图片如下:tt截图未命名.jpg
图片点击可在新窗口打开查看


是这个报错,你的代码没有这个:

If Connections.TryConnect(dt.DataRows(0)("链接")) = True Then

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57590 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2018/8/10 11:33:00 [只看该作者]

我上次提到的这个错误帖子在这边:


http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=121935&skin=0

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/10 11:43:00 [只看该作者]

同样没问题,实例发上来测试

 

        If Connections.TryConnect("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\test.mdb;Persist Security Info=False") =True Then
            msgbox(1)
        End If
        If Connections.TryConnect(DataTables("表a").DataRows(0)("第一列")) = True Then
            msgbox(2)
        End If
        msgbox(3)


 回到顶部