Foxtable(狐表)用户栏目专家坐堂 → [求助]莫名其妙的问题


  共有1876人关注过本帖平板打印复制链接

主题:[求助]莫名其妙的问题

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


加好友 发短信
等级:九尾狐 帖子:2927 积分:20167 威望:0 精华:0 注册:2012/2/3 17:45:00
[求助]莫名其妙的问题  发帖心情 Post By:2021/1/4 7:01:00 [只看该作者]

老师,
  出现系统锁死的情况,貌似就是系统问题异常中断运行;然后正在切换数据源,还用了SaveConfigValue GetConfigValue获取保存了的数据连接字符串,然后就好像断在那里,进不去。

Dim str1 As String=GetConfigValue("opencon_test","")

Dim str2 As String=GetConfigValue("opencon_user","")

 这块可以看到字符串没有问题,但是   str1 str2  都正常,但是却直接执行的是else 后面的错误提示了

If str1<>"" And str2<>"" Then

    If Connections.TryConnect(str1) = True And Connections.TryConnect(str2) = True Then

        If Connections.Contains("test") Then

            Connections.Delete("test")

            Connections.add("test",str1)

        Else

            Connections.add("test",str1)

        End If

       

        If Connections.Contains("suser") Then

            Connections.Delete("suser")

            Connections.add("suser",str2)

        Else

            Connections.add("suser",str2)

        End If

    

    Else

        MessageBox.Show("加载数据库有误,请联系开发者,进行优化不能连接!","错误",MessageBoxButtons.OK,MessageBoxIcon.Error)

        e.Cancel=True

        Syscmd.Project.Exit(False)

    End If


 回到顶部