如何在程序中获得Table的TableName的列表(100分)

  • 主题发起人 主题发起人 starlyq
  • 开始时间 开始时间
S

starlyq

Unregistered / Unconfirmed
GUEST, unregistred user!
我们知道在Delphi程序设计期,Table的TableName属性很容易获得,点一下下三角,就列出了数据库的全部表名,请问高手在运行期(程序中)如何获得数据库的全部表名。
 
session.gettablenames(数据库别名,'',是否需要扩展名,是否是远程序系统表,TItems);

如:把库aa中的所有tablename列入listbox中
listbox1.items.clear;
session.gettablenames(aa,'',false,false,listbox1.items);
 
var
MyStringList : TStringList;
begin
MyStringList := TStringList.Create;

try
Session1.GetTableNames(数据库名, '',False, False, MyStringList);
ListBox1.Items := MyStringList;
finally
MyStringList.Free;
end;
好好研究一下Tsession,系统的Alias(别名)也可以通过session获得!

 
接受答案了.
 
后退
顶部