以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Merger 合并带有密码的数据库？代码怎么写？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=103576)
--  作者：客家阿哥
--  发布时间：2017/7/12 0:52:00
--  Merger 合并带有密码的数据库？代码怎么写？

示例四

FieldMaps和Filter属性的用法示例：

Dim mg As New Merger
mg.SourcePath = "c:\\data\\销售管理.accdb"
mg.Format = "Access2007" \'指定格式
mg.SourceTableName = "订单" \'指定要合并的表
mg.DataTableName = "订单" \'指定接收数据的表
mg.FieldMaps.Add("ID","编号") \'将指定ID列的数据合并到编号列中
mg.Filter = "[日期] > #5/31/1999#" \'指定合并条件
mg.Merge() \'开始合并




.accdb数据库设有密码
--  作者：有点蓝
--  发布时间：2017/7/12 8:45:00
--  
可以动态添加数据源：http://www.foxtable.com/webhelp/scr/1944.htm

Connections.Add("test","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & fl & ";Persist Security Info=False;Jet OLEDB:Database Password=123456" )

然后加载进行导数据
[此贴子已经被作者于2017/7/12 8:59:15编辑过]
--  作者：有点甜
--  发布时间：2017/7/12 8:56:00
--  

方法一：动态设置mg.password = "xxx"

 

方法二：参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=102938&skin=0