資料庫結構操作

來源:互聯網
上載者:User
資料|資料庫|資料庫結構 作者: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")
<FORM METHOD=POST ACTION="createtable.asp?DSN_Name=<% =Request.Form("DSN_Name") %>&Table_Name=<% =Request.Form("Table_Name") %>&Field_Count=<%=myFieldCount %>" ID="Form1">
<TABLE ID="Table2">
<TR>
<TD>Name</TD>
<TD>Type</TD>
<TD>Length</TD>
<TD>Null</TD>
<TD>Primary Key</TD>
<TD>Unique Index</TD>
</TR>
<% For i=1 to myFieldCount%>
<TR>
<TD><INPUT TYPE="text" NAME=<% ="FieldName_" & i %> ></TD>
<TD><SELECT SIZE=1 NAME=<% ="FieldType_" & i %> >
<!-請注意:此處根據不同資料庫填寫欄位類型->
<OPTION>BINARY
<OPTION>BIT
<OPTION>BYTE
<OPTION>COUNTER
<OPTION>CURRENCY
<OPTION>DATETIME
<OPTION>SINGLE
<OPTION>DOUBLE
<OPTION>SHORT
<OPTION>LONG
<OPTION>LONGTEXT
<OPTION>LONGBINARY
<OPTION>TEXT
</SELECT>
</TD>
<TD><INPUT TYPE="text" SIZE=5 NAME=<% ="FieldLength_" & i %> ID="Text2"></TD>
<TD>
<SELECT SIZE=1 NAME=<% ="FieldNull_" & i %> ID="Select2">
<OPTION>not null
<OPTION>null
</SELECT>
</TD>
<TD><INPUT TYPE="checkbox" NAME=<% ="FieldPrimary_" & i %> ID="Checkbox1"></TD>
<TD><INPUT TYPE="checkbox" NAME=<% ="FieldUnique_" & i %> ID="Checkbox2"></TD>
</TR>
<%Next%>
</TABLE>
<INPUT TYPE="reset" VALUE="Clear" ID="Reset1" NAME="Reset1"> <INPUT TYPE="submit" VALUE="Create" ID="Submit1" NAME="Submit1">
</FORM>

createtable.asp中主要源碼
myPrimary = ""
mySQLQueryString = "CREATE TABLE " & myTable &" ("
myFieldCount = CInt(Request.QueryString("Field_Count"))
For i = 1 to myFieldCount
myFieldName = Request.Form("FieldName_"&i)
mySQLQueryString = mySQLQueryString & Chr(34) & _
myFieldName & Chr(34) & " " &_
Request.Form("FieldType_"&i)
myLength = Request.Form("FieldLength_"&i)
If isNumeric(myLength) Then
mySQLQueryString = mySQLQueryString & " (" & myLength & ") "
E



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。