如何动态连接用户新增的access - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何动态连接用户新增的access

共有8403人关注过本帖树形打印复制链接主题：如何动态连接用户新增的access

410109296

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：157 积分：2159 威望：0 精华：0 注册：2011/8/1 14:23:00

如何动态连接用户新增的access 发帖心情

Post By：2013/2/20 20:50:00 [显示全部帖子]

最近两天设计财务软件,需要不同年度建立不同的数据库,通过论坛 lin_hailun 的帮助,实现了动态创建数据库,保留格式清除数据,配置数据源问题,在此表示感谢,

可是还有一个问题,当客户的应用改变位置时,如何确保外部数据源的连接呀,项目属性是不能发布的,好像也不能动态修改事件代码,beforeconnectionoutdata 事件不能实例 connection对象,

不知道我将问题描述清楚了么,

410109296

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：157 积分：2159 威望：0 精华：0 注册：2011/8/1 14:23:00

Post By：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

当然了,表定向也必须是动态的了,我还没做呢

主题：如何动态连接用户新增的access