VB 调用 DAO 与 ACCESS 里面的VBA编程的DAO交互使用详解

'作者:CSDN 许仙
'Homepage : jjweb.126.com
'MSN :Coderxu#hotmail.com
'QQ:19030300
'转载请保持文章完整,保存以上作者信息 请珍惜他人劳动成果

  因为涉及到了,发觉这方面的资料好像,很少就写了这方面的文章, 希望对您有帮助,  

 会ACCESS编程的朋友都应该 接触很多的DAO操作,微软提供的ACCESS也是非常牛的...

进入正题, 在ACCESS里面数据表有个链接的问题, 也就是说,表不是本库的,但可以链接到其他库里, 正样含有链接表的程序就成为了一个客户端,或是一个快捷方式,  当你更改主库的时候,

在ACCESS里刷新 和很简单

currentdb.TableDefs("tblName").Connect=新值
currentdb.TableDefs("tblName").RefreshLink

''时间有限,有时间文章继续去写

如果用VB  涉及钥匙文件 也就是 system.mdw 用户组文件, 保护你程序的安全很重要的!

    Dim DBE As New DBEngine
    Dim db As Database
    Dim t As TableDef

    DBE.SystemDB = "钥匙文件.mdw"
    DBE.DefaultPassword = "工作组文件密码"
    DBE.DefaultUser = "工作组用户"
   
    Set db = DBE.OpenDatabase("数据库.mdb")
 db.TableDefs("tblName").Connect=新值
  db.TableDefs("tblName").RefreshLink

OK了 VB 操作 DAO 刷新表就OK了,  VB操作 DAO事物回滚 请查看 DBEngine对象下的方法,我有博客里有个文章也提到了,有时间都加到这里..