狐表的BeforeConnectOuterDataSource事件,不能加载窗口,如果不是以开发者登录的话,就会不能修改数据源,因此,做了这么一个插件。
一共有两个文件:
一个是config.ini,这里面是数据源连接字符串。里面顺序不要动。第二个文件会修改这个文件的配置。
第二个是:creatdatabase.exe文件。
本文件执行的时候,读取config.ini配置文件,如果测试通过,则自动关闭本文件,继续执行狐表程序,如果测试不通过,则弹出信息。里面的关闭系统按钮,只关闭本文件。
在狐表的BeforeConnectOuterDataSource事件设置代码为:
Dim checkbs As String = ProjectPath & "creatdatabase.exe"
Dim proc As new Process
proc.File = checkbs
Proc.Start
proc.WaitForExit()
If e.Name = "数据源" Then
Dim fl As String = FileSys.ReadAllText(“config.ini文件名,请注意替换.”).Replace(":","")
e.ConnectionString = fl
End If
这样就可以不用弹出数据源错误对话框,直接在窗口进行修改了。。
'更新了一下。多出一个功能,可以进行数据库创建。具体请设置config配置文件为链接不上的字符串,然后才能进行数据库创建。
数据库创建之后,本文件会自动改写config.ini配置文件的数据库名称为新建的数据库。
以下是更新的文件。
[此贴子已经被作者于2013-9-23 16:28:41编辑过]