X
xhyph
Unregistered / Unconfirmed
GUEST, unregistred user!
当我用ADOX的时候,却发生错误,真奇怪,还有别的方法吗?或者我哪里错了?
1.首先建立一个 _Catalog adoCatalog
procedure TfrmMain.FormCreate(Sender: TObject);
begin
adoxCatalog := CoCatalog.Create;
end;
procedure TfrmMain.FormDestroy(Sender: TObject);
begin
adoxCatalog := nil;
end;
2.显示
要有
adoxTables : Tables;
adoxTable : _Table;
var
iCount: Integer;
begin
adoxCatalog.Set_ActiveConnection(
ADOConnection1.ConnectionObject);
adoxTables := adoxCatalog.Tables;
lbTables.Clear;
//lbTables这里是列表框
for iCount := 0 to adoxTables.Count - 1 do // Iterate
begin
adoxTable := adoxTables.Item[iCount];
ShowTableInfos;
//ShowTableInfos;这里是自定义的添加至列表框的函数
end; // for
end;
还可以得到表的类型创建时间修改时间和类型
adoxTable.Get_DateModified(), adoxTable.Get_DateCreated(),
adoxTable.Get_Type_()
1.首先建立一个 _Catalog adoCatalog
procedure TfrmMain.FormCreate(Sender: TObject);
begin
adoxCatalog := CoCatalog.Create;
end;
procedure TfrmMain.FormDestroy(Sender: TObject);
begin
adoxCatalog := nil;
end;
2.显示
要有
adoxTables : Tables;
adoxTable : _Table;
var
iCount: Integer;
begin
adoxCatalog.Set_ActiveConnection(
ADOConnection1.ConnectionObject);
adoxTables := adoxCatalog.Tables;
lbTables.Clear;
//lbTables这里是列表框
for iCount := 0 to adoxTables.Count - 1 do // Iterate
begin
adoxTable := adoxTables.Item[iCount];
ShowTableInfos;
//ShowTableInfos;这里是自定义的添加至列表框的函数
end; // for
end;
还可以得到表的类型创建时间修改时间和类型
adoxTable.Get_DateModified(), adoxTable.Get_DateCreated(),
adoxTable.Get_Type_()