Foxtable(狐表)用户栏目专家坐堂 → 数据源连接的问题


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

主题:数据源连接的问题

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


加好友 发短信
等级:八尾狐 帖子:1938 积分:17793 威望:0 精华:0 注册:2014/7/29 19:09:00
数据源连接的问题  发帖心情 Post By:2015/1/8 15:43:00 [显示全部帖子]

BeforeConnectOuterDataSource写了判断网络是否能连接上的代码:

If TryConnectHost(db_IP) Then
    If Network.Ping(db_IP) = False Then
        MessageBox.Show("网络不通,请联系管理员!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
        Syscmd.Project.Exit(False) '退出系统
    End If
End If

 

经常都要打开系统3次才能登陆,网络是正常的,是否是默认的连接判断时间太短了,tryconnectHost和

network.ping的默认的时间是多少秒连接不上就会往下执行?

如果用If Network.Ping(db_IP,5000) = False Then的话,如果网络比较顺畅也要等5秒,有点浪费时间,怎么样判断地能实现如果网络立刻连通就直接执行后面的代码,不要等5秒,如果5秒后还连接不上才提示?

 

谢谢!


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


加好友 发短信
等级:八尾狐 帖子:1938 积分:17793 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2015/1/8 16:02:00 [显示全部帖子]

我现在这样写 If Network.Ping(db_IP) = False Then  系统是按多少时间来判断的叱?如果按BIN老师那样才0.5秒会不会和我现在一样,当网络可以连接只是可能连接的要慢点时就会提示并退出了。


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


加好友 发短信
等级:八尾狐 帖子:1938 积分:17793 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2015/1/8 16:32:00 [显示全部帖子]

谢谢!那这个有没有时间限制叱?还是0.5秒吗?

If TryConnectHost(db_IP) Then

。。。

End If

 


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


加好友 发短信
等级:八尾狐 帖子:1938 积分:17793 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2015/1/8 16:43:00 [显示全部帖子]

那就这样写了,是不是?

If TryConnectHost(db_IP) Then
    For i As Integer = 0 To 2
        If Network.Ping(db_IP) = False Then
            If i > 2 Then
                MessageBox.Show("网络不通,请联系管理员!")

                Syscmd.Project.Exit(False) '退出系统

                return 
            End If
        Else
            Exit For
        End If
    Next
End If

 

还有个问题为什么如果没连接上退出时桌面上还会显示“正在打开文件”的文字也要几秒才消失。退出时要怎么才能禁止运行后面的代码,上面return好象不起作用

 



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


加好友 发短信
等级:八尾狐 帖子:1938 积分:17793 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2015/1/8 17:10:00 [显示全部帖子]

如果写在beforeOpenProject中,因为很多获取IP文本文件及解密替换数据源连接字符串的代码,包换自动切换内外网连接的都是写在BeforeConnectOuterDataSource中的,不知道要怎么移过去,先试试,谢谢了!


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


加好友 发短信
等级:八尾狐 帖子:1938 积分:17793 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2015/1/8 18:32:00 [显示全部帖子]

谢谢,那样最好。

还有最后一个问题,我的是永久开发版,那个进程那里是要用我自己改的进程名,还是foxtable?


 回到顶部