以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 如何动态连接用户新增的access (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28863) |
-- 作者:410109296 -- 发布时间:2013/2/20 20:50:00 -- 如何动态连接用户新增的access 最近两天设计财务软件,需要不同年度建立不同的数据库,通过论坛 lin_hailun 的帮助,实现了动态创建数据库,保留格式清除数据,配置数据源问题,在此表示感谢, 可是还有一个问题,当客户的应用改变位置时,如何确保外部数据源的连接呀,项目属性是不能发布的,好像也不能动态修改事件代码,beforeconnectionoutdata 事件不能实例 connection对象, 不知道我将问题描述清楚了么,
|
-- 作者:布莱克朱 -- 发布时间:2013/2/20 21:52:00 -- 动态数据源 |
-- 作者:有点甜 -- 发布时间:2013/2/20 22:08:00 -- 可以看看:
http://www.foxtable.com/help/topics/0682.htm
|
-- 作者:lin_hailun -- 发布时间:2013/2/21 9:10:00 -- 或者动态创建数据源。 http://www.foxtable.com/help/topics/1944.htm |
-- 作者:410109296 -- 发布时间:2013/2/21 17:48:00 -- 哈哈,问题解决了,为了不让看到此贴的人失望,还是把代码补上来 思路就是不建任何数据源,查找数据库文件,动态增加数据源, For Each File As String In FileSys.GetFiles( ProjectPath ) If File.EndsWith(".MDB") Then file = file.SubString((file.LastIndexOf("\\")+1),(file.LastIndexOf(".")-file.LastIndexOf("\\")-1)) Connections.Add(file,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ProjectPath & file & ".MDB;Persist Security Info=False") End If Next 当然了,表定向也必须是动态的了,我还没做呢
|