如何用SQL语句列出一个数据库里的所有表名？列出表的所有属性？(30分)

H

hozen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-05

• #1

如何用SQL语句列出一个数据库里的所有表名？如何列出表的所有属性？

谢谢

 

T

timerri

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-05

• #2

sql?????
我找过，但是实现不了
用ado倒是很容易实现
找Tadoconnect.gettablename方法
就能得到所有的数据表
关于属性的，研究一下ado那个pas的源码,应该能找到的！

 

H

hozen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-06

• #3

Tadoconnect.gettablename
怎么用啊。

 

T

timerri

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-06

• #4

刚才写错了！！！呵呵
例子如下

var coo:tadoconnection;
begin
//取得当前的表名
if connectstring.Text='' then exit;
coo:=tadoconnection.Create(self);
coo.LoginPrompt:=false;
coo.ConnectionString :=connectstring.Text;
copen;
coo.GetTableNames(tablelist.Items);
coo.Close;
coo.free;


end;

 

H

hozen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-06

• #5

这个？是 delphi?我 不会。我问的是在asp中连接 sql server.

 

T

timerri

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-06

• #6

asp我也搞得定！呵呵 ：）
下面是例子
Set cnn1 = New ADODB.Connection
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
cnn1.Open strCnn

Set rstSchema = cnn1.OpenSchema(adSchemaTables)

Do Until rstSchema.EOF
response.write "Table name: " & _
rstSchema!TABLE_NAME & '----'& _
"Table type: " & rstSchema!TABLE_TYPE & '<br>'
rstSchema.MoveNext
Loop

别奇怪rstSchema!TABLE_NAME这个表示方法，这是人家规定的
本来这个程序用在vb里，我修改了一下应该能用在asp里了！

 

H

hozen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-06

• #7

rstSchema!TABLE_TYPE 好像不对呀！我怎么调试都告诉我那个!号错了。

 

Z

zhugenan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-06

• #8

select * from sysobjects

 

T

timerri

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-06

• #9

sorry
因为在asp里没有测试就写了，所以有些问题，现在改正
<pre>
<%connstr ="dbq=cityuser;server=(local);datebase=simcity;driver={sql server};uid=cityuser;pass="
Set sim = Server.CreateObject("ADODB.Connection")
sim.Open connstr
%>

<%
Set rstSchema = sim.OpenSchema(20)


Do Until rstSchema.EOF
response.write "Table name: " & rstSchema("TABLE_NAME") & "----"& "Table type: " & rstSchema("TABLE_TYPE") & "<br>"
rstSchema.MoveNext
Loop%>
</pre>

 

T

timerri

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-07

• #10

靠！！！！！！加pre都没用！！！！！
connstr ="dbq=cityuser;server=(local);datebase=simcity;driver={sql server};uid=cityuser;pass="
Set sim = Server.CreateObject("ADODB.Connection")
sim.Open connstr
Set rstSchema = sim.OpenSchema(20)
Do Until rstSchema.EOF
response.write "Table name: " & rstSchema("TABLE_NAME") & "----"& "Table type: " & rstSchema("TABLE_TYPE") & "<br>"
rstSchema.MoveNext
Loop
这回可是测试通过了的！！！！
就是分数太少了
：）

 

A

addie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-07

• #11

如何用SQL语句列出一个数据库里的所有表名?
这要根据数据库不同而写。比如SQL SERVER用SP_TABLES可以列出所有表名，
Sp_Help可以详细输出表的所有
属性，sp_help不仅限于表，还可以对存储过程等操作。

 

H

hozen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-07

• #12

多人接受答案了。