Por lo general, solo hemos oído hablar de un tipo de objetos ASP, como ADO, pero hay un objeto de acceso ASP poco conocido específicamente para SQL Server en ASP, que es el objeto SQLOLE.SQLServer. SQLOLE.SQLServer puede acceder directamente a las propiedades del sistema de SQL Server. La instrucción Set oSQLServer = CreateObject ("SQLOLE.SQLServer") generará un objeto de servidor SQL Server.
---- Para ver la colección de bases de datos en este servidor, la declaración disponible:
For Each SQLDB In oSQLServer.Databases
Response.Write SQLDB.Name 'enumerará todas las bases de datos, como Pubs, etc.
Siguiente
---- Para ver la colección de tablas de datos en una base de datos (como la base de datos PUBS), puede utilizar la siguiente declaración:
pubDatabase=oSQLServer.Databases("pubs")
'oSQLServer es el objeto del servidor SQL Server creado anteriormente
Para cada DBTable en pubDatabase.Tables
Respuesta.WriteDBTable.Nombre
Siguiente
---- La siguiente declaración enumerará las vistas de datos en la base de datos (base de datos PUBS)
pubDatabase =oSQLServer.Databases("pubs")
'oSQLServer es el objeto del servidor SQL Server creado anteriormente
Para cada DBView en pubDatabase.Views
Respuesta.Escribir DBView.Texto
Siguiente
---- La siguiente declaración enumerará los procedimientos almacenados en la base de datos (base de datos PUBS)
pubDatabase =oSQLServer.Databases("pubs")
'oSQLServer es el objeto del servidor SQL Server creado anteriormente
Para cada DBSP en pubDatabase.StoredProcedures
Respuesta.Escribir DBSP.Texto
Siguiente
---- El resultado de ejecutar el programa (obtener el nombre de la tabla de datos):
---- Obtener el resultado del proceso almacenado:
---- Se adjunta un pequeño código fuente de ejemplo completo (lectores con otras funciones puedo agregarlo).
< %@ IDIOMA = VBScript % >
< HTML >
<CABEZA>
< META NAME="GENERADOR" Contenido=
"Estudio de desarrollador de Microsoft" >
< META HTTP-EQUIV="Tipo de contenido"
content="text/html; charset=gb2312" >
< TÍTULO >< /TÍTULO >
< /CABEZA >
< %
En caso de error Continuar siguiente
Atenuar oSQLServer
Establecer oSQLServer = CreateObject ("SQLOLE.SQLServer")
strServer = "dep"
strLogin = "sa"
strPwd = ""
oSQLServer.Conectar strServer,strLogin,strPwd
%>
<CUERPO BGCOLOR=#ffffff>
Lista de bases de datos
< SELECCIONAR NOMBRE="Base de datos" >
<%
Para cada SQLDB en oSQLServer.Databases
Si no es SQLDB.SystemObject, entonces
Respuesta.Escribir "< VALOR DE OPCIÓN =
""" & SQLDB.Nombre & """ >" & SQLDB.Nombre
& " "
Terminar si
Próximo
Establecer oSQLServer = Nada
%>
< /SELECCIONAR>
< /CUERPO >
< /HTML>