El error "El procedimiento 'sp_i_idioma' precisa el parámetro '@error'

[karmish]

Hola nuevamente tengo este problema

Código:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC SQL Server Driver][SQL Server]El procedimiento
'sp_i_idioma' precisa el parámetro '@error', que no se ha especificado.

Cundo desde mi formulario envio al procedimeinto un
nombre que ya existe, pasa lo anterio.

En el procedimeinto almacenado la cosa esta asi:

Código:

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

ALTER     PROCEDURE sp_i_idioma (@des_idioma varchar (20), @est_activo char(1), @error int output)
AS BEGIN

if rtrim( ltrim(@des_idioma)) = '' 
begin
   RAISERROR 666666 'ingreso vacio'
   commit transaction
   Return 0
end 

declare @maximo numeric(10)
Select  @maximo = isnull(max(id_idioma),0)+ 1 from idioma

insert into idioma (id_idioma, des_idioma, est_activo ) 
Values (@maximo, @des_idioma, @est_activo  ) 

SELECT @error = @@error

Return 0
END
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

Perdonen si no es claro pero los procedimientos lamacenados
no los ago yo. Otra cosa que hicieron fue:

Código:

declare @err int
select @err  = 999
execute sp_i_idioma 'INGLEST','A', @err output
select @err

y la forma en que le paso la informacion al procedimeinto almacenado es:

Código:

SET DbObj = Server.CreateObject("ADODB.Connection")
DbObj.Open Application("curriculum")
Set oCom = CreateObject("ADODB.Command")
Set oRec = CreateObject("ADODB.Recordset")

valor = Request.Form("checkbox")
nom = Request.Form("textfield22")

if valor = "checkbox" then
	valor = "A"
	else
	valor = "B"
	end if

oCom.CommandText= "execute sp_i_idioma '"&nom&"','"&valor&"'"
oCom.ActiveConnection = DbObj
Set oRec = oCom.Execute

Espero que me entiendad, muchas gracias de antemano.

[Shiryu_Libra]

tengo duda en esta seccion
ALTER PROCEDURE sp_i_idioma (@des_idioma varchar (20), @est_activo char(1), @error int output)

imagino que es un valor de salida si en dado caso tuviste error en el procedure, no es asi???

[u_goldman]

Necesitas crear el parámetro de salida, como ya lo indica el caballero del zodiaco:

Código:

Set param = oCom.CreateParameter("nombre_parametro", *adInteger, adParamOutput, *4)
oCom.Parameters.Append(param)

oCom.Execute
variable = oCom.Parameters("nombre_parametro")

Salud

*Tipo y tamaño variable

[karmish]

Estimado maestro de Libra, respondiendo a tu pregunta, es exactamento eso en caso que tuvise un error en el procedure se da un valor de salida.

[karmish]

Iniciado por u_goldman

Necesitas crear el parámetro de salida, como ya lo indica el caballero del zodiaco:

Código:

Set param = oCom.CreateParameter("nombre_parametro", *adInteger, adParamOutput, *4)
oCom.Parameters.Append(param)

oCom.Execute
variable = oCom.Parameters("nombre_parametro")

Esto tendria que ir despues de

Código:

Set oRec = oCom.Execute

o antes???

Código:

oCom.CommandText= "execute sp_i_idioma '"&nom&"','"&valor&"'"
oCom.ActiveConnection = DbObj
Set oRec = oCom.Execute

[u_goldman]

Ya vi...yo te recomiendo que si ya estás utilizando el objeto command, crees tus parámetros, para que no te confundas con las instrucciones

Código:

Set param = oCom.CreateParameter("nombre_parametro_1", *adInteger, adParamInput, *4, valor)
oCom.Parameters.Append(param)
Set param = oCom.CreateParameter("nombre_parametro_2", *adInteger, adParamInput, *4, valor)
oCom.Parameters.Append(param)

Y después solo lo tienes que ejecutar:

oCmd.Execute

Ahora, realmente no te debe regresar un recordset, lo que te regresa es el error en caso de haber uno asi que no necesitas tener un Set rs = con solo ejecutar el Command y capturar el valor del parámetro de salida es suficiente.


Saludos

[karmish]

Perdona que sea un poco testarudo, pero, exactamente eso quiero lograr capturar el parametro.
La forma que me muestra se logra hacer eso???

[u_goldman]

Si, está indicado en el post número 3 de este hilo, crea los 3 parámetros como ya te lo mostré e invoca el método Execute del objeto oComm, después capturas el valor de este parámetro como se muestra:

Código:

'Salida
Set param = oCom.CreateParameter("nombre_parametro", *adInteger, adParamOutput, *4)
oCom.Parameters.Append(param)
'Dos de entrada
Set param = oCom.CreateParameter("nombre_parametro_1", *adInteger, adParamInput, *4, valor)
oCom.Parameters.Append(param)
Set param = oCom.CreateParameter("nombre_parametro_2", *adInteger, adParamInput, *4, valor)
oCom.Parameters.Append(param)

oCom.Execute
'Aqui recuperas el valor del error
variable = oCom.Parameters("nombre_parametro")

Fijate en los tipos de dato y su tamaño.

Saludos

[Myakire]

Que esto no lo habiamos visto ya en otro post?