ASP获取数据库表名、库名、字段名的方法


            ASP获取数据库表名，字段名

以SQLServer为例：

复制代码 代码如下:

< %   

SET Conn=Server.CreateObject("ADODB.Connection")   

Conn.Open "Server=IP地址;Provider=sqloledb;Database=库名称;UID=用户名;PWD=密码;"   

%>



读SqlServer库中的表名:

复制代码 代码如下:

< %   

Set rs=Conn.OpenSchema(20)   

While not rs.EOF   

Response.Write("所在数据库名:" & rs(0) & "<br>")   

Response.Write("所有者:" & rs(1) & "<br />")   

Response.Write("表 名:" & rs(2) & "<br />")   

Response.Write("表的类型:" & rs(3) & "<br />")   

rs.MoveNext   

Wend   

%>

这样，我们知道表名了，现在我们再来看看怎么对表的字段进行操作。

假设：其中数据库中有表：[Things],表中字段为：id,thingsName,thingsType

获取该表的所有字段名：

复制代码 代码如下:

< %   

Dim i,j，Sql   

Set rs=Server.CreateObject(“ADODB.Recordset”)   

Sql="select * from [Things] where 1<>1"   

rs.open sql,Conn,1,1   

j=rs.Fields.count   

For i=0 to (j-1)   

Response.Write("第" & i+1 & "个字段名：" & rs.Fields(i).Name & "<br /><br />")   

Next   

%>

好了，现在我们明白了怎么获取字段名了。

如果大家想对获取的字段值进行一些操作，这也是可以的：

比如我们想要删除表[Things]中字段thingsType ，就可

以这样写：

复制代码 代码如下:

< %   

Sql="ALTER TABLE [Things] DROP COLUMN thingsType"   

Conn.execute Sql   

%>

又比如我们想要添加一个字段thingsCOLOR,它的类型为varchar型，长度为20,且默认值为Red，写法如下：

复制代码 代码如下:

< %   

Sql="ALTER TABLE [Things] ADD thingsCOLOR VARCHAR(20) DEFAULT 'Red'"   

Conn.execute Sql   

%>

以上对字段的基本操作都是用SQL语言实现，在ASP中，通过SQL语言，我们只要有足够的权限就可以完成

更多的数据库操作，比如用CREATE建表，用DROP删除表等等。