我原先使用的是SQL数据源现在想另外设计个程序来设置数据源,这个新程序用ACCESS作为数据源,设置好数据源后,保存在access的一个单元格内。
现在怎么才能让原来的程序启动先通过这个ACCESS文件来获取数据源链接来连接SQL数据库呢
我在BeforeConnectOuterDataSource设置了代码
ACCESS文件内有一个Connect表,已经作为外部数据源加入程序了
If e.name =
"ACCESS"
Then
e.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
& e.ProjectPath &
"data.mdb;Persist Security
Info=False"
End
if
If e.Name = "SQL" Then
Dim dr As DataRow
dr = DataTables("Connect").Find("默认连接 = True")
e.ConnectionString =dr("数据源链接")
End If
结果运行程序,程序直接出错退出
请教老师怎么解决