vb6 recordset sql query

Question

Как использовать запрос append в vb6 с доступом db с паролем? Ниже приведена ошибка. тусклые s как строки s = "вставить в patientprofile() выберите ми П. patientprofile.crno от 'D: \ liverrecord.mdb' &" Jet OLEDB: Database Password = печень"

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