1. O mais simples é o seguinte
Dim objConn
Definir objConn = Server.CreateObject("ADOBD.Connection")
objConn.Open Application("Connection_String")
'Chama o procedimento armazenado para incrementar um contador na página
objConn.Execute "exec sp_AddHit"
Sem parâmetros, sem retorno, sem tratamento de erros, é isso
2. Uma chamada com parâmetros
objConn.Execute "exec sp_AddHit 'http://www.aspalliance.com', 1"
Preste atenção aos parâmetros de divisão. Este método não retorna o registro
.
Dim objConn
Escurecer objRs
Definir objConn = Server.CreateObject("ADOBD.Connection")
Definir objRs = Server.CreateObject("ADOBD.Recordset")
objConn.Open Application("Connection_String")
'Chama o procedimento armazenado para incrementar um contador na página
objRs.Open objConn, "exec sp_ListArticles '15/01/2001'"
'Percorre o conjunto de registros e exibe cada artigo
4.……
Dim objConn
Dim objCmd
'Instancia objetos
Definir objConn = Server.CreateObject("ADODB.Connection")
definir objCmd = Server.CreateObject("ADODB.Command")
conn.Open Application ("ConnectionString")
com objCmd
.ActiveConnection = conn 'Você também pode especificar uma string de conexão aqui
.CommandText = "sp_InsertArticle"
.CommandType = adCmdStoredProc 'Requer o arquivo adovbs.inc ou a meta tag typelib
'Adicionar parâmetros de entrada
.Parameters.Append .CreateParameter("@columnist_id", adDouble, adParamInput, , columnist_id)
.Parameters.Append .CreateParameter("@url", adVarChar, adParamInput, 255, url)
.Parameters.Append .CreateParameter("@title", adVarChar, adParamInput, 99, url)
.Parameters.Append .CreateParameter("@descrição", adLongVarChar, _
adParamInput, 2147483647, descrição)
'Adicionar parâmetros de saída
.Parameters.Append .CreateParameter("@link_id", adInteger, adParamOutput, , 0)
'Executa a função
'Se não retornar um conjunto de registros, use a opção de parâmetro adExecuteNoRecords
.Execute, , adExecuteNoRecords
link_id = .Parâmetros("@link_id")
Termine com
5. Código do procedimento armazenado
Criar PROCEDIMENTO dbo.sp_InsertArticle
(
@columnist_id int,
@urlvarchar(255),
@título varchar(99),
@descrição texto
@link_id int SAÍDA
)
COMO
COMEÇAR
INSERT INTO dbo.t_link (columnist_id,url,título,descrição)
VALORES (@columnist_id,@url,@title,@description)
SELECIONE @link_id = @@IDENTITY
FIM