ASP獲取資料庫表名，欄位名以及對欄位的一些操作 (轉)

ASP獲取資料庫表名，欄位名以及對欄位的一些操作 (轉)[@more@]

  最近，在論壇上看到很多網友問怎麼獲取表名，欄位名以及如何對欄位進行刪除，增添的操作故寫此文。
本人對Server比較熟一些，故以SQLServer為列：
    SET  Conn=Server.Create("ADO.Connection")
  Conn.Open  "Server=;Provr=sqloledb;Database=庫名稱;UID=名;PWD=密碼;"
 %>
讀SqlServer庫中的表名:
    Set  rs=Conn.OpenSchema(20)
  While not rs.EOF
  Response.Write("所在資料庫名:" &  rs(0) &  "
")
   Response.Write("所有者:" &  rs(1) &  "
")
 Response.Write("表 名:" &  rs(2) &  "
")
  Response.Write("表的型別:" &  rs(3) &  "
")
  rs.MoveNext
  Wend
  %>
這樣，我們知道表名了，現在我們再來看看怎麼對錶的欄位進行操作。
假設：其中資料庫中有表：[Things],表中欄位為：id,thingsName,thingsType
獲取該表的所有欄位名：
    Dim i,j，Sql
  Set rs=Server.CreateObject(“ADODB.Recordset”)
  Sql=" * 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 & "

")
  Next
  %>
好了，現在我們明白了怎麼獲取欄位名了。
如果大家想對獲取的欄位值進行一些操作，這也是可以的：
比如我們想要刪除表[Things]中欄位thingsType ，就可
以這樣寫：
    Sql="ALTER TABLE [Things] DROP COLUMN thingsType"
  Conn.execute Sql
  %>
又比如我們想要新增一個欄位thingLOR,它的型別為varchar型，長度為20,且預設值為Red，寫法如下：
    Sql="ALTER TABLE [Things] ADD thingsCOLOR VARCHAR(20) DEFAULT 'Red'"
  Conn.execute Sql
  %>
以上對欄位的基本操作都是用SQL語言實現，在ASP中，透過SQL語言，我們只要有足夠的就可以完成
更多的資料庫操作，比如用CREATE建表，用DROP刪除表等等

最後，本人才疏學淺，本篇文章肯定會有錯誤之處，還望大家批評。
也希望大家在CSDN上發簡訊給我共同探討，謝謝大家！