SQL Server访问ADO
2024-08-31 00:48:30
供稿：网友
sql server访问ado
---- 平常我们只听说过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 >
