在Tcombobox中如何列出程序所连Sql数据库中所有表

Question

在Tcombobox中如何列出程序所连Sql数据库中所有表

Answer 1

with adoquery1 do
  begin
    close;
    sql.clear;
    sql.add('select name from dbo.sysobjects where xtype=''u''');
    open;
    while not eof do
      begin
        combobox1.items.add(fieldbyname('Name').asstring);
        next;
      end;
  end;

Answer 2

tablelist := TStringList.Create;
    DM.ADOConnection_sys.GetTableNames(tablelist);
然后你就可以把tablelist 里的东西倒到你想要的地方！

Answer 3

我试了 delphiseabird(沙鸥)的方法，可以了
procedure TcreateMXDS.FormShow(Sender: TObject);
var tablelist:TStringList;
    i:integer;
begin
M_LocatorIndex_1:='';
tablelist := TStringList.Create;
//    DM.ADOConnection_sys.GetTableNames(tablelist);
ClientData.DBClient.GetTableNames(tablelist);
for i:=0 to tablelist.Count-1 do
  combobox1.Items.Add(tablelist[i]);
end;数据库部分不是我写的，所以没用guanghui(不归路)，多谢！