深藍色論壇

代碼: 選擇全部

//1.另一種 Create Access Mdb 的方式如下: 
var v: Variant; 
begin 
  v := CreateOleObject('Access.Application'); 
  v.NewCurrentDatabase('C:db1.mdb'); 
end; 
// 
//2.Create Access Table 的方式: 
var catDB: Catalog; 
  tblNew: Table; 
begin 
  // 利用 ADOX 組物件來動態產生 Access Table 
  // 須先 import type library -> Microsoft Jet and Replication Objects 2.5 Library (Version 2.5) 
  catDB := CoCatalog.Create; 
  catDB.Set_ActiveConnection(ADOConnection1.ConnectionObject); 
  tblNew := CoTable.Create; 
  with tblNew do begin 
    Name := 'TableA'; 
    with Columns do begin 
      Append('EmpID',      adVarWChar, 10); 
      Append('EmpName',    adVarWChar, 10); 
      Append('Phone',      adVarWChar, 15); 
    end; 
  end; 
  catDB.Tables.Append(tblNew); 
  catDB := nil; 
end;