本文整理自网络，侵删。
//delphi 获取 access 数据库所有表 www.3464.com
procedure TForm1.FormCreate(Sender: TObject);
begin
//连接数据库 extractfilepath(ParamStr(0))
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Security Info=False;Jet OLEDB:Database Password=www.3464.com';
Button_GetDB_AllBiao.Click;
end;
procedure TForm1.Button_GetDB_AllBiaoClick(Sender: TObject);
var
objTables: TStringList;
i: Integer;
begin
objTables := TStringList.Create;
try
ADOConnection1.GetTableNames(objTables);
ComboBox_DataName.Items.AddStrings(objTables);
//ShowMessage('总共有几个表：'+ IntToStr(objTables.Count));
finally
FreeAndNil(objTables);
end;
end; 相关阅读 >>
Delphi fdconnection查看所有表包含用户表和系统表
Delphi 的webbrowser如何全选并复制浏览器上的文字
更多相关阅读请进入《Delphi》频道 >>
