从库中查询出表名显示到combobox 怎样实现 ( 积分: 100 )

从库中查询出表名显示到combobox 怎样实现
有TQuery控件 请问怎么实现阿

是什么数据库?要说明清除!

tsession组件的GetTableNames方法,具体请看帮助.
我做的小例子,已运行ok
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, ADODB, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
ComboBox1: TComboBox;
Session1: TSession;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
MyStringList : tstrings;
begin
MyStringList := TStringList.Create;
try
Session.GetTableNames('DBDEMOS', '*.db',False, false, MyStringList);
ComboBox1.Items := MyStringList;
ComboBox1.ItemIndex:= 0;
finally
MyStringList.Free;
end;
end;

end.

從系統表sysobjects中查出我們要的表，用戶表或系統表，然後用
first;
while not eof do
begin
combobox1.item.add(fieldbyname('name').asstring);
next;
end;
就OK啦

是oracle 数据库

Adoconnection有一个方法，GetTableNames 有两个参数，一个传出，一个传入。很好用。

to 楼主。。
这和数据库没有关系吧 。
combobox1.items.add(fieldbyname('name').asstring);

combobox1.items.clear;
adocnnection.GetTableNames(ComboBox1.Items);

本人初学者,有很多地方希望大家多多指点,谢谢各位了.

多人接受答案了。