主题：想实现项目在启动之前先判断是否可以连接数据库 如果不能连接项目设定的数据库 就从ip.txt文件获取ip 如果还是不能连接 直接提示用户数据库无法连接 并退出项目

想实现项目在启动之前先判断是否可以连接数据库   如果不能连接项目设定的数据库  就从ip.txt文件获取ip   如果还是不能连接  直接提示用户数据库无法连接  并退出项目

只有当数据连接正常的时候 才能打开项目  打开登录窗体

想实现在任何情况下都不要弹出这个修改数据源    如果项目里面预设数据源连接不上 就直接去读取ip文件里面的内容  如果也连接不上  直接提示SQL数据库无法连接,无法打开此项目!请安装数据库或联系管理员处理!"  不要再打开登录窗体这个事件

当前代码按照如下运行之后   偶尔还是会弹出数据源连接失败  然后弹出修改数据源的那设置对话框了   如果点取消保存  还会进一步弹出项目  登录窗体   有没有办法修正这个错误呢【已经在项目属性将修改数据源设定为false  且如果在指定目录下没有ip这个文件的话  也不会出现这个修改数据源】？

Dim ipFile As String = e.ProjectPath & "ip.txt"
If e.Name = "信息推送" Then
    If Filesys.FileExists(ipFile) Then
        Dim ip As String = FileSys.ReadAllText(ipFile)
        e.ConnectionString = e.ConnectionString.Replace("192.168.3.239",ip)
    End If
End If

此主题相关图片如下：1.png

此主题相关图片如下：2.png

此主题相关图片如下：3.png

运行结果  在项目下有ip这个文件的话  会提示修改数据源

此主题相关图片如下：5.png

想实现在任何情况下都不要弹出这个修改数据源    如果项目里面预设数据源连接不上 就直接去读取ip文件里面的内容  如果也连接不上  直接提示SQL数据库无法连接,无法打开此项目!请安装数据库或联系管理员处理!"  不要再打开登录窗体这个事件