关于现实一个数据库中表的问题

Question

我用一个opendialog打开一个数据库，然后怎么才能在下面的的listbox中显示出数据库中的表  并可以对表进行操作

Answer 1

是Access数据库吧:procedure TMainForm.Button1Click(Sender: TObject);
var
  ADOConnection1: TADOConnection;
begin
  if not OpenDialog1.Execute then exit;
  ADOConnection1:= TADOConnection.Create(nil);
  ADOConnection1.LoginPrompt:= False;
  ADOConnection1.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Persist Security Info=false;Data Source='+OpenDialog1.FileName;
  ADOConnection1.GetTableNames(ListBox1.Items);
  ADOConnection1.Free;
end;