Assine:
Recuperar Stored Procedure
Recuperar stored procedure
Escrito por Pinguim em ASP. Data: 17/03/2008
Licença: Alguns direitos reservados. Dar créditos ao autor e linkar este original
No trampo novo, precisei recuperar algumas storedProcedures. Porém o Query Analyzer sempre dava erro ao mes mostrar o conteúdo da query. Então, tive que recuperá-las nas mão. Acabei montando um script simples. Ta aí o código pra que precisar:
<%
'Recuperar Stored Procedure
Dim NomeProcedure, conexao, conexObj, recordSet
NomeProcedure = Request.QueryString("procedure")
conexao = "Provider=SQLOLEDB.1;SERVER=ecw10;DATABASE=intranet;UID=sa;PWD=autodoc;" 'Não esqueçam de mudar essa linha para a linha de conexão do servidor que você for utilizar.
Set conexObj = Server.CreateObject("ADODB.Connection")
Set recordSet = Server.CreateObject("ADODB.Recordset")
conexObj.Open conexao
if NomeProcedure&"." <> "." Then
Dim counter
do while counter < 4
select case counter
case 0
sql = "select 'intranet' as db, o.name,SUBSTRING(m.definition,0,255) from intranet.sys.sql_modules m inner join intranet..sysobjects o on m.object_id=o.id where [name] = '"&nomeProcedure&"'"
case 1
sql = "select 'intranet' as db, o.name,SUBSTRING(m.definition,255,255) from intranet.sys.sql_modules m inner join intranet..sysobjects o on m.object_id=o.id where [name] = '"&nomeProcedure&"'"
case 2
sql = "select 'intranet' as db, o.name,SUBSTRING(m.definition,510,255) from intranet.sys.sql_modules m inner join intranet..sysobjects o on m.object_id=o.id where [name] = '"&nomeProcedure&"'"
case 3
sql = "select 'intranet' as db, o.name,SUBSTRING(m.definition,765,255) from intranet.sys.sql_modules m inner join intranet..sysobjects o on m.object_id=o.id where [name] = '"&nomeProcedure&"'"
case 4
sql = "select 'intranet' as db, o.name,SUBSTRING(m.definition,1020,255) from intranet.sys.sql_modules m inner join intranet..sysobjects o on m.object_id=o.id where [name] = '"&nomeProcedure&"'"
end select
Dim Result
recordSet.Open sql, conexObj
Result = recordSet.GetRows
%>
<%=Result(2,0)%>
<%
counter = counter + 1
recordSet.Close
Loop
End If
%>
CODE
<%
'Recuperar Stored Procedure
Dim NomeProcedure, conexao, conexObj, recordSet
NomeProcedure = Request.QueryString("procedure")
conexao = "Provider=SQLOLEDB.1;SERVER=ecw10;DATABASE=intranet;UID=sa;PWD=autodoc;" 'Não esqueçam de mudar essa linha para a linha de conexão do servidor que você for utilizar.
Set conexObj = Server.CreateObject("ADODB.Connection")
Set recordSet = Server.CreateObject("ADODB.Recordset")
conexObj.Open conexao
if NomeProcedure&"." <> "." Then
Dim counter
do while counter < 4
select case counter
case 0
sql = "select 'intranet' as db, o.name,SUBSTRING(m.definition,0,255) from intranet.sys.sql_modules m inner join intranet..sysobjects o on m.object_id=o.id where [name] = '"&nomeProcedure&"'"
case 1
sql = "select 'intranet' as db, o.name,SUBSTRING(m.definition,255,255) from intranet.sys.sql_modules m inner join intranet..sysobjects o on m.object_id=o.id where [name] = '"&nomeProcedure&"'"
case 2
sql = "select 'intranet' as db, o.name,SUBSTRING(m.definition,510,255) from intranet.sys.sql_modules m inner join intranet..sysobjects o on m.object_id=o.id where [name] = '"&nomeProcedure&"'"
case 3
sql = "select 'intranet' as db, o.name,SUBSTRING(m.definition,765,255) from intranet.sys.sql_modules m inner join intranet..sysobjects o on m.object_id=o.id where [name] = '"&nomeProcedure&"'"
case 4
sql = "select 'intranet' as db, o.name,SUBSTRING(m.definition,1020,255) from intranet.sys.sql_modules m inner join intranet..sysobjects o on m.object_id=o.id where [name] = '"&nomeProcedure&"'"
end select
Dim Result
recordSet.Open sql, conexObj
Result = recordSet.GetRows
%>
<%=Result(2,0)%>
<%
counter = counter + 1
recordSet.Close
Loop
End If
%>
Mais recentes em ASP
- Asp info
- Por Lucasbr - Veja as configurações do seu servidor...
- Criptografia sha-256 em asp
- Por Lucasbr - A família de sha (secure hash algorithm) está relacionada...
- Tabela dinâmnica
- Por RobsonUgoStoso - Montando uma tabela dinâmica com datas...
- Cdosys error '8004020f' - a solução
- Por David Cruvinel - A solução...
- Recuperar stored procedure
- Por Pinguim - No trampo novo, precisei recuperar algumas storedprocedures....
Ver mais Artigos de ASP.
Ver e retirar outras dúvidas no fórum Webly.
Alguns Direitos Reservados | RSS | O Fórum
Webly Portal e Fóruns - Internet + Humana | Design by ArthurHenrique.com