本文整理自网络，侵删。
//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 createprocesswithlogonw用法
Delphi sysutils.lastdelimiter - 判断一个字符串在另一个字符串中最后出现的位置
Delphi 将strings合并成一个逗号分隔的字符串,用于sql
更多相关阅读请进入《Delphi》频道 >>
