以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  在外部数据库无法连接时弹出一个窗口选择外部数据库,只针对本次有效.  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69302)

--  作者:unverse
--  发布时间:2015/6/2 17:55:00
--  在外部数据库无法连接时弹出一个窗口选择外部数据库,只针对本次有效.
Dim s As String = e.ConnectionString
If Connections.TryConnect(s) = False Then
    MessageBox.Show("数据源无法连通!")
    Dim dlg As New OpenFileDialog
    dlg.Filter= "Access文件|*.mdb"
    If dlg.ShowDialog = DialogResult.Ok Then
        Dim s1 As String =  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dlg.FileName & ";Persist Security Info=False"
        e.ConnectionString= s1
        Return
    End If

End If

通过以上代码在 BeforeConnectOuterDataSource 中添加,  想实现外部数据源无法访问时,手工选择数据库,但选择后只针对本次登陆有效,应该如何保存当前的配置,下次登陆继续有效?


--  作者:大红袍
--  发布时间:2015/6/2 18:04:00
--  
 把值保存到txt文件里,或者用SaveConfigValue存储