- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 继续纠错：BeforeOpenProject中的对话窗出错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=4005)
-- 发布时间：2009/8/23 11:01:00
-- 继续纠错：BeforeOpenProject中的对话窗出错
为了动态建立外部数据库连接，我是把连接字符串保存在一个文本文件中的。每次项目启动时，在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
[此贴子已经被作者于2009-8-23 11:01:34编辑过]
-- 发布时间：2009/8/23 11:13:00
--
我看看
-- 发布时间：2009/8/23 11:23:00
--
搞定
-- 发布时间：2009/8/23 11:55:00
--
以下是引用狐狸爸爸在2009-8-23 11:23:00的发言：
搞定
搞定
呵呵,高效!