有没有高手告诉我怎么样来得到一个数据库中的所有表？？现在这里谢了(50分)

J

jazzjerry

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-27

• #1

我现在正在用SQL Server加Delphi写一个程序，我想知道怎么样才能得到数据库中所有的表
（系统表除外）。我是想用来把数据库中所有表内的记录清空（Truncate 一下）。如果哪位高手有更好的方法，也可以在
这里发表一下，不胜感激。

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-27

• #2

Query1.GetFieldNames
再就是读取SQL Server的系统表。

 

M

mlzhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-27

• #3

1.Session.GetTableName
2.在adoquery中用sql语句用
exec sp_tables
3.select name from sysobjects where type='U'

 

L

liuchang_wh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-27

• #4

如果是ado连接：
procedure gettables(strlist:Tstringlist);
begin
ADOConnection1.GetTableNames(strlist,false);
end;

 

T

tfnmao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-27

• #5

同意楼上两位

 

C

chenzheng770101

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-27

• #6

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Session.GetTableNames(ComboBox1.Text,'', False,False,ComboBox2.Items);
Table1.DatabaseName := ComboBox1.Text;
end;

 

J

jazzjerry

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-28

• #7

多人接受答案了。