运行中创建和切换数据源 的几个问题? Post By:2014/11/23 22:40:00 [只看该作者]
狐爸给了个好办法 用于运行中切换数据源
AddConnection
ChangeConnection
现在有两个问题:
1.如何判断数据源已经存在 怎么写代码
2.如何把新数据源的表 全部切换过来 代码有了
Dim s1 As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\销售系统\data1.MDB;Persist Security Info=False" AddConnection("we1",s1) Dim s As String ="" '遍历当前属于此数据源的表 For Each dt As DataTable In DataTables If dt.C Then s=dt.name DataTables(s).ChangeConnection("we1") End If Next