Normalmente ouvimos falar apenas de um tipo de objeto ASP, como ADO, mas existe um objeto de acesso ASP pouco conhecido especificamente para SQL Server em ASP, que é o objeto SQLOLE.SQLServer. SQLOLE.SQLServer pode acessar diretamente as propriedades do sistema do SQL Server. A instrução Set oSQLServer = CreateObject ("SQLOLE.SQLServer") gerará um objeto de servidor SQL Server.
---- Para visualizar a coleção de bancos de dados neste servidor, a instrução disponível:
For Each SQLDB In oSQLServer.Databases
Response.Write SQLDB.Name 'listará todos os bancos de dados, como Pubs, etc.
Próximo
---- Para visualizar a coleção de tabelas de dados em um banco de dados (como o banco de dados PUBS), você pode usar a seguinte instrução:
pubDatabase=oSQLServer.Databases("pubs")
'oSQLServer é o objeto do servidor SQL Server criado anteriormente
Para cada DBTable em pubDatabase.Tables
Resposta.WriteDBTable.Name
Próximo
---- A instrução a seguir listará as visualizações de dados no banco de dados (banco de dados PUBS)
pubDatabase =oSQLServer.Databases("pubs")
'oSQLServer é o objeto do servidor SQL Server criado anteriormente
Para cada DBView em pubDatabase.Views
Response.Write DBView.Text
Próximo
---- A instrução a seguir listará os procedimentos armazenados no banco de dados (banco de dados PUBS)
pubDatabase =oSQLServer.Databases("pubs")
'oSQLServer é o objeto do servidor SQL Server criado anteriormente
Para cada DBSP em pubDatabase.StoredProcedures
Resposta.Write DBSP.Texto
Próximo
---- O resultado da execução do programa (obter o nome da tabela de dados):
---- Obter o resultado do processo armazenado:
---- Um pequeno exemplo completo de código-fonte está anexado (leitores com outras funções pode adicioná-lo).
< %@ IDIOMA = VBScript % >
< HTML >
<CABEÇA>
< NOME META = "GERADOR" Conteúdo =
"Estúdio de Desenvolvedor Microsoft" >
< META HTTP-EQUIV="Tipo de conteúdo"
content="text/html; charset=gb2312" >
< TÍTULO >< /TÍTULO >
</HEAD>
<%
Em caso de erro, retomar o próximo
Dim oSQLServer
Definir oSQLServer = CreateObject ("SQLOLE.SQLServer")
strServer = "dep"
strLogin = "sa"
strPwd = ""
oSQLServer.Connect strServer,strLogin,strPwd
%>
<BODY BGCOLOR=#ffffff>
Lista de banco de dados
< SELECIONE NOME = "Banco de Dados" >
<%
Para cada SQLDB em oSQLServer.Databases
Se não for SQLDB.SystemObject então
Response.Write "<OPÇÃO VALOR=
""" & SQLDB.Name & """ >" & SQLDB.Name
& " "
Terminar se
Próximo
Definir oSQLServer = Nada
%>
</SELECIONAR>
</corpo>
</HTML>