楼上同学,不可以在BeforeConnectOuterDataSource事件中关闭项目。
可以在BeforeOpenProject用TryConect直接判断连接字符串是否可以连通。不同则Cancel:
TryConnect
测试指定的链接字符串能否连通,如果能连通,则返回True,否则返回False。
语法:
TryConnect(ConnectionString)
ConnectionString:要测试的链接字符串。
Dim s As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\data\Northwind.mdb;Persist Security Info=False"
If Connections.TryConnect(s) = False Then
MessageBox.Show("数据源无法连通!")
End If