以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  上次我提到切换账套有个报错,现在出来了  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123229)

--  作者:blackzhu
--  发布时间: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编辑过]

--  作者:有点甜
--  发布时间: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
--  发布时间:2018/8/10 11:32:00
--  
上次我在家里换了新系统就报错,我还在论坛提出来过.这个系统是我昨日才下载安装的.



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


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

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

--  作者:blackzhu
--  发布时间:2018/8/10 11:33:00
--  
我上次提到的这个错误帖子在这边:


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

--  作者:有点甜
--  发布时间: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)