delphi 中access数据库实现多库连接查询

最新推荐文章于 2025-03-16 08:26:26 发布

原创

最新推荐文章于 2025-03-16 08:26:26 发布 · 1.5k 阅读

收录于

本文介绍了一种在Delphi中通过创建一个空数据库和临时表，遍历并连接多个Access数据库（按日期命名）的方法，实现对所有表的查询。通过将查询结果追加到临时表temp_b，简化了数据处理和显示，适用于包含排序和绘图功能的项目。文中提供了部分源码展示如何进行连接和追加操作。

这里是指多个access数据库例如以日期建的库包括同属性的表，现在需要对所有的表中的内容进行查询。

具体方法：第一步：建立一个空的数据库，并建立一个临时表temp_b

第二步：遍历需要查询的数据库，将其中的待查数据表与临时表temp_b建立连接，并查询内容追加到临时表temp_b

最后：只需要查询当前临时表temp_b。

这样做的好处就是，查询只用到一个数据ADOQuery，所有的记录集都保存其中。关联DBchar 和 DBGrid都比较处理。我正在做的一个项目中有根据查询结果排序功能，这种方式直接使用ADOQuery的Sor属性。数据要绘制曲线直接关联DBchar即可轻松完成。

部分源码如下：

// 打开含有链接表的数据库
           l_cat := CreateOleObject('ADOX.Catalog');
           l_cat.ActiveConnection :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + MyPath + 'empty.mdb';
           TblCount := l_cat.Tables.Count;
         &