ASP訪問SQL Server內建對象

來源:互聯網
上載者:User
server|對象|訪問|內建對象 平常我們只聽說過ADO等一類ASP對象,但在ASP中還有個鮮為人知的專門SQL Server的ASP訪問對象,它就是SQLOLE.SQLServer對象。SQLOLE.SQLServer可以直接存取SQL Server的系統屬性。以Set oSQLServer = CreateObject ("SQLOLE.SQLServer")語句將產生一個SQL Server伺服器對象。
---- 若要查看此伺服器中資料庫的集合,可用語句:



For Each SQLDB In oSQLServer.Databases
Response.Write SQLDB.Name ‘將列出所有的資料庫,如Pubs等
Next

---- 若要查看某資料庫中(如PUBS資料庫)資料表的集合,可用語句:



pubDatabase=oSQLServer.Databases(“pubs”)
’oSQLServer是前面建立的SQL Server伺服器對象
For Each DBTable In pubDatabase.Tables
Response.Write DBTable.Name
Next

---- 下面的語句將列出資料庫中(PUBS資料庫)資料檢視



pubDatabase =oSQLServer.Databases(“pubs”)
’oSQLServer是前面建立的SQL Server伺服器對象
For Each DBView In pubDatabase.Views
Response.Write DBView.Text
Next

---- 以下語句將列出資料庫中(PUBS資料庫)存貯過程



pubDatabase =oSQLServer.Databases(“pubs”)
’oSQLServer是前面建立的SQL Server伺服器對象
For Each DBSP In pubDatabase.StoredProcedures
Response.Write DBSP.Text
Next

---- 程式啟動並執行結果(取資料表名):

---- 取存貯過程的結果:

---- 一個完整的小例子源碼附後(其它功能讀者可加入)。



< %@ LANGUAGE = VBScript % >

< HTML >
< HEAD >
< META NAME="GENERATOR" Content=
"Microsoft Developer Studio" >
< META HTTP-EQUIV="Content-Type"
content="text/html; charset=gb2312" >

< TITLE >< /TITLE >
< /HEAD >

< %
On Error Resume Next
Dim oSQLServer
Set oSQLServer = CreateObject ("SQLOLE.SQLServer")


strServer = "dep"
strLogin = "sa"
strPwd = ""


oSQLServer.Connect strServer,strLogin,strPwd



% >


< BODY BGCOLOR=#ffffff >
資料庫列表
< SELECT NAME="Database" >
< %
For Each SQLDB In oSQLServer.Databases
If Not SQLDB.SystemObject Then
Response.Write "< OPTION VALUE=
""" & SQLDB.Name & """ >" & SQLDB.Name

& " "
End If
Next
Set oSQLServer = Nothing
% >
< /SELECT >
< /BODY >
< /HTML >




相關文章

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 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。