想实现项目在启动之前先判断是否可以连接数据库   如果不能连接项目设定的数据库  就从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数据库无法连接,无法打开此项目!请安装数据库或联系管理员处理!"  不要再打开登录窗体这个事件