如何用delphi在Access库中创建一个查询，相当于sql中的视图。请高手指点。

Question

如何用delphi在Access库中创建一个查询，相当于sql中的视图。请高手指点。

Answer 1

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; 

Answer 2

http://topic.csdn.net/u/20071218/10/c9393305-5032-42ff-947d-bba410339926.html
去看这个帖子