外部数据源转换问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

各位老师，我有个项目是外部数据源，有两个数据库，分别是：2016年度.mdb和2017年度.mdb。两个数据库都有三个表,分别是合同表、入库表、批发表。

我做两个按钮，2016年度和2017年度。

想实现，点2016年度按钮，则连接2016年度数据库，项目内三个表（合同表、入库表、批发表）的数据则为2016年度。点2017年度按钮，则显示2017年度数据。

请各位老师帮忙。

有点蓝老师，我看了一下，参考里的跟我要求的不一样。

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20170301131731.png

我的项目里有两个数据库，里面都有这五个表，表的格式相同。

想实现，在这一个项目里，做两个按钮，点一个钮，所有的表加载一个数据库的数据，点另一个钮，则这个数据库的数据卸载，加载另一个数据库数据。麻烦有点蓝老师帮忙。

有点蓝老师，我按照例子做了两个按钮，代码如下：

按钮1：

Dim s As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=多表统计.mdb;Persist Security Info=False" '记得换做真实路径,不一定在项目文件夹下

If Connections.Contains("ss") Then

Connections.Delete("ss")

End If

Connections.add("ss",s)

If DataTables.Contains("订单") = False Then

DataTables.Load("订单")

ElseIf DataTables.Contains("客户") = False Then

DataTables.Load("客户")

End If

按钮2：

Dim s As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=多表统计1.mdb;Persist Security Info=False" '记得换做真实路径,不一定在项目文件夹下

If Connections.Contains("ss") Then

Connections.Delete("ss")

End If

Connections.add("ss",s)

If DataTables.Contains("订单") = False Then

DataTables.Load("订单")

ElseIf DataTables.Contains("客户") = False Then

DataTables.Load("客户")

End If

两个按钮只是数据库不同，其他均相同，现有两个问题：

一、点一下按钮，只能加载“订单”表，再点一下，出现：“该数据仍在使用，不能被删除”的提示，而后加载了“客户”表。怎样改代码，能点一次按钮，就能加载全部表。

二、打开项目，点哪个按钮，则加载哪个数据库数据，再点另一个按钮，不加载另一个数据库数据。只能是重新打开项目后，才能加载另一个数据库数据。怎样改代码，能够不重新打开项目就能随意切换加载数据库数据。

请有点蓝老师帮忙。

请有点蓝老师帮忙呀。

有点蓝老师，问题解决了，麻烦您帮我看一下，下面的代码有没有什么问题？

Dim s As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=多表统计.mdb;Persist Security Info=False" '记得换做真实路径,不一定在项目文件夹下

If DataTables.Contains("订单") Then

DataTables.Unload("订单|产品|客户")

End If

If Connections.Contains("ss") Then

Connections.Delete("ss")

End If

Connections.add("ss",s)

If DataTables.Contains("订单") = False Then

DataTables.Load("订单|产品|客户")

End If

有点色老师，我把代码改了，但运行提示：创建外部连接ss失败。这是什么原因。

找到原因了，谢谢有点色和有点蓝两位老师。还有一个问题，在数据库切换时，偶尔有时出现如下错误提示（如下图），不知道是什么原因？

此主题相关图片如下：qq截图20170302131947.png

主题：外部数据源转换问题