vb6记录集sql查询

Question

如何在vb6中使用append查询与access db有密码？以下是错误。 暗淡S作为字符串 S = “插入patientprofile从 'd：\ liverrecord.mdb'（crno）选择patientprofile.crno & '的Jet OLEDB：数据库密码=肝'”

Answer 1

这不完全清楚自己想要什么。然而，

您首先必须引用Microsoft DAO 3.6对象库。然后您可以使用以下两行打开数据库。

Dim Engine As DAO.DBEngine: Set Engine = New DAO.DBEngine 
Dim DB As DAO.Database: Set DB = _ 
     Engine.Workspaces(0).OpenDatabase("D:\LiveRecord.mdb", false, false, _ 
     "MS Access;PWD=liver") 

您可以访问SQL语句

Call DB.Execute("insert etc") 

我希望这有助于。

Guillaume Hanique