以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]外部数据源选取问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133228)
--  作者：martin723
--  发布时间：2019/4/10 9:26:00
--  [求助]外部数据源选取问题
在BeforeConnectOuterDataSource中录入下面代码：
If e.name = "ini" Then
    Dim ipFile As String = e.ProjectPath & e.name & ".txt"
    If Filesys.FileExists(ipFile) Then
        Dim strs As String = FileSys.ReadAllText(ipFile,Encoding.Default)
        strs = strs.Replace(vblf,"")
        Dim rs() As String = strs.Split(vbcr)
        Dim cs() As String = rs(Cint(rs(0))).Split("|")
        e.ConnectionString = DecryptText(cs(1), cs(0) ,"aaa")
        msgbox(e.ConnectionString )
    Else
        e.EditConnectionString()
    End If
End If
在项目文件夹里建立一个ini.txt文件，内容如下：
1
1.本地库|EZawaqGmpTRQ78zP5klgHRCExdT+OkRX
2.远程库|05UDj5kNP/JQOyNAhvrOMOqZBvshNW6TGE

通过修改第一行的数字，来选择下面列的数据库。项目中已经设置了ini数据源。现在项目启动后不是更改连接串连自己要连的数据源，而是提示：
创建外部连接失败，请联系管理员或开发者，重新设置数据连接字符串，然后进系统时提醒不存在ini数据源。

不要这段代码使用在项目中设置的外部数据源ini，系统运行正常，加上这段代码就提示创建失败。原因在哪里呢？
--  作者：有点甜
--  发布时间：2019/4/10 11:17:00
--  

弹出的值 msgbox(e.ConnectionString ) 是否正确？

 

拷贝弹出的信息，和你之前的字符串对比，看有什么差别。