|
共享access数据库，在项目的安装目录下设了一个ip.txt来存储共享目录。
目的：在这个共享目录文件内容连接不上时，提示用户有错误，并退出系统。
在BeforeConnectOuterDataSource事件中这样写：
Dim aa As String = e.ConnectionString.Split(";")(1).split("=")(1) ‘获得原来开发时设置的数据库文件’
If e.Name = "共享数据源" Then
If Filesys.FileExists(e.ProjectPath & "IP.txt") Then
Dim ip As String = FileSys.ReadAllText(e.ProjectPath & "IP.txt") ‘获得用户设置的共享数据库文件’
e.ConnectionString = e.ConnectionString.Replace(aa,ip)
If Connections.TryConnect(e.ConnectionString) = False Then
MessageBox.Show("数据库文件不存在,请到项目安装目录下的IP.txt文件中更新数据库文件!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
End If
End If
End If
现在的问题是：运行的时候，如果找不到数据库文件，除了弹出这个窗口，还会弹出一个错误窗口“创建外部连接“共享数据源”失败，请联系管理员或开发员，重新设置数据链接字符串”。
请教应当修改哪里才能达到目的呢？
|
加好友 
发短信
Post By：2015/5/6 11:10:00 [只看该作者]
