TADOConnection组件

edDatabase.Text := PromptDataSource(Application.Handle, ''); 或 edDatabase.Text := PromptDataSource(Application.Handle, edDatabase.Text);

上面的PromptDataSource函数调用系统的连接数据库操作页面，会弹出一个连接数据库页面，连接成功后，返回数据库路径，可选数据库名。

procedure TForm26.btAddTableClick(Sender: TObject);
var
  tbaleList: TStringList;

  fieldName: TstringList;
begin
  tbaleList := TStringList.Create;                                     //创建一个TStringList接收数据库中的Table集合

  fieldName := TStringList.Create;
  ADOConnection1.ConnectionString := edDatabase.Text; //将连接到的数据库交给TADOConnection组件的ConnectionString属性，得到数据库的资料
  ADOConnection1.GetTableNames(tbaleList, false);          //得到数据库中存在的Table集合
  cbDataTableList.Items.AddStrings(tbaleList); 　　　　　　//加载Table集合到TComboBox组件

  ADOConnection1.GetFieldNames(cbDataTableList.Items[I], fieldName); //取出某个表中的数据字段集合

  fieldName.Free;
  tbaleList.Free;
end;