Foxtable(狐表) → 用户栏目 → 专家坐堂 → sql数据源设置问题


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

主题：sql数据源设置问题
帅哥哟，离线，有人找我吗？
bailing
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：241 积分：2121 威望：0 精华：0 注册：2020/5/4 17:14:00 		sql数据源设置问题  发帖心情 Post By：2022/5/11 17:46:00 [只看该作者]

前提:服务器有多个ip,设置ConnectionString里面的ip默认是192.168.0.150;

在打开项目的时候,
project有个ip的txt文件,如果文件有内容(我电脑上的时192.168.1.150),则用文件里面的ip替换掉192.168.0.150;
如果没有则换192.168.1.150以及192.168.111.150尝试连接

我这个项目在打开的时候能正常连接,加载数据,但是在开发界面>>外部数据表,管理外部数据表的时候提示无法连接,
查看设置的ConnectionString仍然是192.168.0.150,然后报错如下,我该怎么解决

ps:更新版本前好像没有遇到这样的问题


图片点击可在新窗口打开查看此主题相关图片如下：snipaste_2022-05-11_17-25-03.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/5/12 8:27:00 [只看该作者]

数据源设置的代码发上来看看

 回到顶部
帅哥哟，离线，有人找我吗？
bailing
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：241 积分：2121 威望：0 精华：0 注册：2020/5/4 17:14:00 		  发帖心情 Post By：2022/5/12 9:17:00 [只看该作者]

BeforeConnectOuterDataSource事件代码

Dim ipFile As String = e.ProjectPath & "ip.txt"
If e.Name = "foxtable人事数据库" OrElse e.name = "foxtable" OrElse e.name = "mirror" Then
    Dim ip As String = FileSys.ReadAllText(ipFile)
    If ip <> "" Then
        e.ConnectionString = e.ConnectionString.Replace("192.168.0.150",ip)
    Else 
        If Connections.TryConnect(e.ConnectionString) Then '如果第一个IP接通
            filesys.WriteAllText(e.projectpath & "ip.txt","192.168.0.150",False)
            
        Else If Connections.TryConnect(e.ConnectionString.Replace("192.168.0.156", "192.168.1.150")) Then '如果第一个IP接通
            filesys.WriteAllText(e.projectpath & "ip.txt","192.168.1.150",False)
            e.ConnectionString = e.ConnectionString.Replace("192.168.0.150","192.168.1.150")
            
        Else If Connections.TryConnect(e.ConnectionString.Replace("192.168.0.150", "192.168.111.150")) Then
            filesys.WriteAllText(e.projectpath & "ip.txt","192.168.111.150",False)
            e.ConnectionString = e.ConnectionString.Replace("192.168.0.150","192.168.111.150")
            
        End If
    End If

连接字符串：
Provider=SQLOLEDB.1;Password=********;Persist Security Info=True;User ID=fox_user;Initial Catalog=mirror;Data Source=192.168.0.150
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/5/12 9:50:00 [只看该作者]

试试。测试通过后自己去掉调试代码，如果不通，把调试结果发上来看看

Dim ipFile As String = e.ProjectPath & "ip.txt"
If e.Name = "foxtable人事数据库" OrElse e.name = "foxtable" OrElse e.name = "mirror" Then
    MsgBox("数据源=" & e.Name)
    Dim ip As String
    Dim lst As New List(Of String)
    lst.AddRange({"", "192.168.0.150", "192.168.1.150", "192.168.111.150"})
    If Filesys.FileExists(ipFile) Then
        ip = FileSys.ReadAllText(ipFile)
        lst(0) = ip
        MsgBox("文件记录的是" & ip)
    End If 
    Dim cs As String = e.ConnectionString
    For Each s As String In lst
        If s > "" Then
            Dim s1 As String = cs.Replace("192.168.0.150", s)
            MsgBox("测试连接：" & s)
            If Connections.TryConnect(s1) Then
                e.ConnectionString = s1
                filesys.WriteAllText(e.projectpath & "ip.txt", s, False)
                MsgBox("连接成功：" & s)
                Exit For
            End If
        End If
    Next 
End If
 回到顶部
帅哥哟，离线，有人找我吗？
bailing
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：241 积分：2121 威望：0 精华：0 注册：2020/5/4 17:14:00 		  发帖心情 Post By：2022/5/12 10:03:00 [只看该作者]

老师，您给的代码测试能通，能正常进入项目且加载数据，但是在开发界面>>外部数据表,管理外部数据表的时候报一样的错误

 回到顶部
帅哥哟，离线，有人找我吗？
bailing
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：241 积分：2121 威望：0 精华：0 注册：2020/5/4 17:14:00 		  发帖心情 Post By：2022/5/12 10:24:00 [只看该作者]

虽然管理外部数据表的时候报错，但是能正常执行sql

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/5/12 10:29:00 [只看该作者]

菜单里的数据源是不会变的，只会显示初始的设置，不会根据代码的设置变化的

 回到顶部
帅哥哟，离线，有人找我吗？
bailing
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：241 积分：2121 威望：0 精华：0 注册：2020/5/4 17:14:00 		  发帖心情 Post By：2022/5/12 10:31:00 [只看该作者]

刚才用正确的ip添加了一个新的数据源，管理外部表窗口的时候，选择其他数据源还是会报错，但是选择这个含正确ip的就不会

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/5/12 10:36:00 [只看该作者]

仔细理解一下7楼。

 回到顶部
帅哥哟，离线，有人找我吗？
bailing
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：241 积分：2121 威望：0 精华：0 注册：2020/5/4 17:14:00 		  发帖心情 Post By：2022/5/12 10:49:00 [只看该作者]

那我在使用外部数据源/管理外部表的时候，得把连接字符串改掉？

 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04980 秒, 4 次数据查询