vb6 recordset sql查询

Question

如何在vb6中使用带有密码的访问数据库的附加查询？以下是错误。 dim s as string    s =“insert into patientprofile（crno）从'd：\ liverrecord.mdb'选择patientprofile.crno＆amp;'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