---- 以下语句将列出数据库中(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; char
=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.
Object ThenResponse.Write \"< OPTION VALUE=
\"\"\" & SQLDB.Name & \"\"\" >\" & SQLDB.Name
& \" \"
End If
Next
Set oSQLServer = Nothing
% >
< /SELECT >
< /BODY >
< /HTML >
最新评论