请高手指点access创建查询时候需要密码的功能 在线等，高手们。。。。

Question

procedure TForm1.Button3Click(Sender: TObject);
const
  dbUseJet = $00000002;
var
  connection: OleVariant;
  DBEngine : OleVariant;
  DataBase : OleVariant;
  QueryDef : OleVariant;
  accessfile: string;
  sql: string;
begin
  accessfile := 'C:\db1.mdb';  connection := CreateOleObject('Access.Application');
  DBEngine := connection.DBEngine;
  DBEngine.DefaultType := DBUseJet;
  DataBase := DBEngine.OpenDatabase(accessfile);
  sql := ' TRANSFORM first(FieldValue) '
      + ' SELECT ContactID FROM [SELECT a.FieldName, b.ContactID, b.FieldID, '
      + ' b.FieldValue FROM CustomField AS a, ContactFieldValue AS b WHERE '
      + ' a.RecordID = b.FieldID]. AS TmpTable GROUP BY ContactID PIVOT FieldName';
  QueryDef := Database.CreateQueryDef('V_CustomValue',sql);    
  connection.Close();
end; 上面的代码是在access数据库中创建一个 查询 的功能。但是 如果这个access数据库有密码的话 该怎么办呢。
我运行过 提示“密码无效”。请问高手们 我该怎么样把密码加上去 加在何处 请指点。

Answer 1

OpenDatabase(sdbname, ,"pwd=你的密码") 

Answer 2

类似OpenDatabase( "d:\MyDocu\db1.mdb ",   False,   False,   ";pwd=123 ")，你查一下madn中OpenDatabase的用法

Answer 3

Provider=Microsoft.Jet.OLEDB.4.0;Password=123456;
Data Source=C:\demo\test.mdb;Persist Security Info=True

Answer 4

Provider=Microsoft.Jet.OLEDB.4.0;Password=123456;
Data Source=C:\demo\test.mdb;Persist Security Info=True