代碼: 選擇全部
//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;