共4 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：继续纠错：BeforeOpenProject中的对话窗出错
1楼
reachtone 发表于：2009/8/23 11:01:00为了动态建立外部数据库连接，我是把连接字符串保存在一个文本文件中的。每次项目启动时，在BeforeOpenProject事件中，对该连接字符串进行有效判断。代码如下：
Dim File As String = ProjectPath & "ConnConfig.ini"
If FileSys.FileExists(File) = False Then
CloseSplashForm()
e.Cancel = True
MessageBox.show("系统配置文件不存在,软件无法打开!","系统警告",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Else
Dim Conn As New Data.Oledb.OledbConnection(FileSys.ReadAllText(File))
Try
Conn.Open()
Conn.Close()
Catch ex as Exception
CloseSplashForm()
e.Cancel = True
MessageBox.show("数据库连接错误, 请重新设置! ","系统警告",MessageBoxButtons.OK,MessageBoxIcon.Warning)
End Try
End if
以前如果连接出错，弹出的对话窗都是没问题的，但现在会出现以下错误：
此主题相关图片如下：4.jpg
Dim File As String = ProjectPath & "ConnConfig.ini"
If FileSys.FileExists(File) = False Then
CloseSplashForm()
e.Cancel = True
MessageBox.show("系统配置文件不存在,软件无法打开!","系统警告",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Else
Dim Conn As New Data.Oledb.OledbConnection(FileSys.ReadAllText(File))
Try
Conn.Open()
Conn.Close()
Catch ex as Exception
CloseSplashForm()
e.Cancel = True
MessageBox.show("数据库连接错误, 请重新设置! ","系统警告",MessageBoxButtons.OK,MessageBoxIcon.Warning)
End Try
End if
以前如果连接出错，弹出的对话窗都是没问题的，但现在会出现以下错误：
此主题相关图片如下：4.jpg[此贴子已经被作者于2009-8-23 11:01:34编辑过]
2楼
狐狸爸爸 发表于：2009/8/23 11:13:00我看看
3楼
狐狸爸爸 发表于：2009/8/23 11:23:00搞定
4楼
yangming 发表于：2009/8/23 11:55:00以下是引用狐狸爸爸在2009-8-23 11:23:00的发言：
搞定
搞定
呵呵,高效!
共4 条记录, 每页显示 10 条, 页签:
[1]