SQL Server訪問ADO
2024-08-31 00:48:30
供稿：網(wǎng)友
sql server訪問ado
---- 平常我們只聽說過ado等一類asp對象，但在asp中還有個鮮為人知的專門sql server的asp訪問對象,它就是sqlole.sqlserver對象。sqlole.sqlserver可以直接訪問sql server的系統(tǒng)屬性。以set osqlserver = createobject ("sqlole.sqlserver")語句將產(chǎn)生一個sql server服務器對象。
---- 若要查看此服務器中數(shù)據(jù)庫的集合，可用語句：
for each sqldb in osqlserver.databases
response.write sqldb.name ‘將列出所有的數(shù)據(jù)庫，如pubs等
next
---- 若要查看某數(shù)據(jù)庫中(如pubs數(shù)據(jù)庫)數(shù)據(jù)表的集合，可用語句：
pubdatabase=osqlserver.databases(“pubs”)
’osqlserver是前面創(chuàng)建的sql server服務器對象
for each dbtable in pubdatabase.tables
response.write dbtable.name
next
---- 下面的語句將列出數(shù)據(jù)庫中(pubs數(shù)據(jù)庫)數(shù)據(jù)視圖
pubdatabase =osqlserver.databases(“pubs”)
’osqlserver是前面創(chuàng)建的sql server服務器對象
for each dbview in pubdatabase.views
response.write dbview.text
next
---- 以下語句將列出數(shù)據(jù)庫中(pubs數(shù)據(jù)庫)存貯過程
pubdatabase =osqlserver.databases(“pubs”)
’osqlserver是前面創(chuàng)建的sql server服務器對象
for each dbsp in pubdatabase.storedprocedures
response.write dbsp.text
next
---- 程序運行的結果（取數(shù)據(jù)表名）：
---- 取存貯過程的結果：
---- 一個完整的小例子源碼附后（其它功能讀者可加入）。
< %@ 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 >
數(shù)據(jù)庫列表
< 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 >
