以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何动态连接用户新增的access  (http://www.foxtable.com/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
当然了,表定向也必须是动态的了,我还没做呢