本文整理自网络,侵删。
//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 实现卸载windows应用程序(类似360软件管家-卸载程序)
Delphi getexplorerpid获取系统explorer.exe进程id
Delphi ini文件操作 tinifile、tmeminifile
更多相关阅读请进入《Delphi》频道 >>