本文整理自网络，侵删。
//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 xe6 取得app自己的版本号(横跨4个平台)
Delphi xe8在firemonkey tlistbox中显示图像
Delphi中的处理事件 application.processmessages
Delphi tokyo 版本 twebbrowser 的一个问题（bug？）
更多相关阅读请进入《Delphi》频道 >>
