vb6 recordset requête sql

Question

Comment utiliser la requête Ajouter dans vb6 avec accès db ayant un mot de passe? Ce qui suit donne une erreur. dim s comme chaîne s = "insérer dans patientprofile (crno) select patientprofile.crno de 'd: \ liverrecord.mdb' & 'Jet OLEDB: Database Password = foie'"

Answer 1

Il ne sait pas exactement ce que vous voulez . Cependant,

Vous devez d'abord faire référence à la bibliothèque d'objets Microsoft DAO 3.6. Vous pouvez ensuite ouvrir une base de données avec les deux lignes suivantes.

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") 

Vous pouvez accéder à l'instruction SQL avec

Call DB.Execute("insert etc") 

J'espère que cela aide.

Guillaume Hanique