|
SQLServer访问ADO
SQL Server访问ADO
----平常我们只听说过ADO等一类ASP对象，但在ASP中还有个鲜为人知的专门SQLServer的ASP访问对象,它就是SQLOLE.SQLServer对象。SQLOLE.SQLServer可以直接访问SQLServer的系统属性。以SetoSQLServer=CreateObject("SQLOLE.SQLServer")语句将产生一个SQLServer服务器对象。
----若要查看此服务器中数据库的集合，可用语句：
ForEachSQLDBInoSQLServer.Databases
Response.WriteSQLDB.Name‘将列出所有的数据库，如Pubs等
Next
----若要查看某数据库中(如PUBS数据库)数据表的集合，可用语句：
pubDatabase=oSQLServer.Databases(“pubs”)
’oSQLServer是前面创建的SQLServer服务器对象
ForEachDBTableInpubDatabase.Tables
Response.WriteDBTable.Name
Next
----下面的语句将列出数据库中(PUBS数据库)数据视图
pubDatabase=oSQLServer.Databases(“pubs”)
’oSQLServer是前面创建的SQLServer服务器对象
ForEachDBViewInpubDatabase.Views
Response.WriteDBView.Text
Next
----以下语句将列出数据库中(PUBS数据库)存贮过程
pubDatabase=oSQLServer.Databases(“pubs”)
’oSQLServer是前面创建的SQLServer服务器对象
ForEachDBSPInpubDatabase.StoredProcedures
Response.WriteDBSP.Text
Next
----程序运行的结果（取数据表名）：
----取存贮过程的结果：
----一个完整的小例子源码附后（其它功能读者可加入）。
<%@LANGUAGE=VBScript%>
<HTML>
<HEAD>
<METANAME="GENERATOR"Content=
"MicrosoftDeveloperStudio">
<METAHTTP-EQUIV="Content-Type"
content="text/html;charset=gb2312">
<TITLE></TITLE>
</HEAD>
<%
OnErrorResumeNext
DimoSQLServer
SetoSQLServer=CreateObject("SQLOLE.SQLServer")
strServer="dep"
strLogin="sa"
strPwd=""
oSQLServer.ConnectstrServer,strLogin,strPwd
%>
<BODYBGCOLOR=#ffffff>
数据库列表
<SELECTNAME="Database">
<%
ForEachSQLDBInoSQLServer.Databases
IfNotSQLDB.SystemObjectThen
Response.Write"<OPTIONVALUE=
"""&SQLDB.Name&""">"&SQLDB.Name
&""
EndIf
Next
SetoSQLServer=Nothing
%>
</SELECT>
</BODY>
</HTML>
查看上一页
返回分类首页 返回96PC首页
查看下一页 |
