怎么样把一个数据库里面的所有的表名导到combobox呢？

Question

怎么样把一个数据库里面的所有的表名导到combobox呢？ 
谢谢

Answer 1

ADOConnection1.GetTableNames(ComboBox1.Items);

Answer 2

adotable1.GetFieldNames(listbox2.Items);

Answer 3

form1.ADOConnection1.GetTableNames(combobox1,False);  这是获得表名
sl:tStringlist;
form1.ADOConnection1.GetTableNames(sl,False);  这是获得表名
adotable1.GetFieldNames(listbox2.Items);
获得字段名

Answer 4

procedure TDbEditForm.FormShow(Sender: TObject);
var
  i, j : Integer;
  TableList : TStringList;
begin
  DbTreeView.Items.Clear;
  for i:= 0 to DataBaseList.Count - 1 do
  begin
    MainForm.DbADOConnection.Connected := False;
    MainForm.DbADOConnection.DefaultDatabase := DataBaseList.Strings[i];
    MainForm.DbADOConnection.Connected := True;
    DataBaseNode := DbTreeView.Items.AddFirst(DataBaseNode, DataBaseList.Strings[i]);
    DataBaseNode.ImageIndex := 0;
    TableList := TStringList.Create;
    TableList.Clear;
    MainForm.DbADOConnection.GetTableNames(TableList);
    for j := 0 to TableList.Count - 1 do
    begin
      DataTableNode := DbTreeView.Items.AddChild(DataBaseNode, TableList.Strings[j]);
      DataTableNode.ImageIndex := 1
    end;
    TableList.Free;
  end;end;

Answer 5

很简单
先用GetTableNames得到表名
在一个一个的Append到ComboBoX中