在delphi中用ADOQuery连接数据库ACCSE,如何显示ACCSE中的所有表名在EDIT上

Question

在delphi中用ADOQuery连接数据库ACCSE,如何显示ACCSE中的所有表名在EDIT上
各位高手们,帮帮小弟吧,谢了!

Answer 1

var
  list:tstrings;
begin
ADOQuery1.Connection.GetTableNames(list,false);
edit1.Text:=list.Text;
end;

Answer 2

to :SANet
list是自己定义的字符串变量吗?
list.text:=ADOQuery1.Connection.GetTableNames(list,false);

Answer 3

是自己定义的，供返回时存储数据库表的列表啊。
var
  list:tstrings;//自己定义的返回时存储数据库表的列表
begin
ADOQuery1.Connection.GetTableNames(list,false);//list:自定义 ；false:是否获取系统表
edit1.Text:=list.Text;
end;
///实现有问题吗？应该没有 哦。。

Answer 4

begin
 list.Create;
 ADOConnection1.GetTableNames(ListBox1.Items, False);
end;

Answer 5

begin
 ADOConnection1.GetTableNames(ListBox1.Items, False);
end;

Answer 6

to:SANet 不知道这里Edit1.text:=list.text;是不是错的啊,运行时报错,说是超过物理地址范围,不知道为什么

Answer 7

var
  TempList: TStrings;
begin
  TempList := TStringList.Create;
  try
     ADOConnection1.GetTableNames(templist);
     edit1.text:=templist.text;
  finally
     TempList.Free;
  end;
end;

Answer 8

good .thank you 
小弟再次谢过了.