数据库结构操作

作者：tonny
转载请显示出处：http://www.weiw.com
数据库结构操作。适应于access，sql server等常见的数据库。
1。建立连接。
可以通过ODBC或OLEDB连接。
Set gObjDC = Server.CreateObject("ADODB.Connection")
dim strconn,myDSN
myDSN="test"
strconn="DSN="&myDSN&";uid=sa;pwd="
'strconn ="Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=MeiSha;Data Source=tonny"
gObjDC.ConnectionString=strconn
gObjDC.Open
2。显示所有表
set gObjRS = gObjDC.OpenSchema(adSchemaTables)
Do While Not gObjRS.EOF
If gObjRS.Fields("TABLE_TYPE") = "TABLE" AND Left(gObjRS.Fields("TABLE_NAME"), 4) <> "MSys" Then
'不必把系统表显示出来
Response.Write "<TR>"
Response.Write "<TD>" & gObjRS.Fields("TABLE_NAME") & "</TD>"
myPLink = "?DSN_NAME=" & myDSN & "&Table_Name=" & gObjRS.Fields("TABLE_NAME")
Response.Write "<TD> <A HREF=tablestruct.asp" & myPLink & ">Structure</A> </TD>"
Response.Write "<TD> <A HREF=tablecontent.asp" & myPLink & ">Content</A> </TD>"
Response.Write "</TR>" & vbCrLf
End If
gObjRS.MoveNext
Loop
gObjRS.Close
3。新建表
<FORM METHOD=POST ACTION="definetable.asp?DSN_Name=<% =myDSN %>">
Table Name :<BR>
<INPUT TYPE="text" NAME="Table_Name"><BR>
Field Count :<BR>
<INPUT TYPE="text" NAME="Field_Count"><BR>
<BR>
<INPUT TYPE="submit" VALUE="Create">
</FORM>
definetable.asp中主要源码
myFieldCount = Request.Form("Field_Count")

补充：asp教程,数据库相关