¿Como se ejecuta un procedimiento almacenado?
Publicado por Miguel Angel (30 intervenciones) el 17/11/2000 00:00:00
Me sería de gran ayuda si alguien me explicase como ejecuto desde un módulo un procedimiento almacenado con parámetro de entrada (coge el dato de un formulario) y con un parámetro de salida.
Este es el Procedimiento:
Create Procedure calculo_nomina
@p_control char(7) = [form]![F_plantilla].[Control],*/ esto no me permite hacerlo ¿como lo hago?/*
@total int output
As
(SELECT @total = (Complementos.Importe + Nivel.Importe + Grupos.Importe)
FROM Plantilla INNER JOIN Complementos ON
Plantilla.Complemento = Complementos.ID_Complemento INNER JOIN Grupos ON
Plantilla.Tipo = Grupos.Tipo INNER JOIN Personal INNER JOIN Nivel ON
Personal.Nivel_Empleado = Nivel.Id_Nivel ON
Grupos.Id_Grupo = Personal.Grupo_Empleado AND Plantilla.Control = Personal.Control
WHERE Personal.Control = @p_control
___________________________________________
y el código:
Public Function calcular() As Integer
Dim C_Plantilla As ADODB.Connection
Dim cmd_Plantilla As ADODB.Command
Dim prm_Plantilla As ADODB.Parameter
´abre la conexión
Set C_Plantilla = New ADODB.Connection
C_Plantilla.ConnectionString = "Plantilla;MMejias;MAM;"
C_Plantilla.Open
C_Plantilla.CursorLocation = adUseClient
Select Case C_Plantilla.State
Case adStateClosed
Abreplantilla = False
Case adStateOpen
Abreplantilla = True
End Select
MsgBox Abreplantilla
´Abre el objeto Command con el parámetro
Set cmd_Plantilla = New ADODB.Command
cmd_Plantilla.CommandText = "calcul
Este es el Procedimiento:
Create Procedure calculo_nomina
@p_control char(7) = [form]![F_plantilla].[Control],*/ esto no me permite hacerlo ¿como lo hago?/*
@total int output
As
(SELECT @total = (Complementos.Importe + Nivel.Importe + Grupos.Importe)
FROM Plantilla INNER JOIN Complementos ON
Plantilla.Complemento = Complementos.ID_Complemento INNER JOIN Grupos ON
Plantilla.Tipo = Grupos.Tipo INNER JOIN Personal INNER JOIN Nivel ON
Personal.Nivel_Empleado = Nivel.Id_Nivel ON
Grupos.Id_Grupo = Personal.Grupo_Empleado AND Plantilla.Control = Personal.Control
WHERE Personal.Control = @p_control
___________________________________________
y el código:
Public Function calcular() As Integer
Dim C_Plantilla As ADODB.Connection
Dim cmd_Plantilla As ADODB.Command
Dim prm_Plantilla As ADODB.Parameter
´abre la conexión
Set C_Plantilla = New ADODB.Connection
C_Plantilla.ConnectionString = "Plantilla;MMejias;MAM;"
C_Plantilla.Open
C_Plantilla.CursorLocation = adUseClient
Select Case C_Plantilla.State
Case adStateClosed
Abreplantilla = False
Case adStateOpen
Abreplantilla = True
End Select
MsgBox Abreplantilla
´Abre el objeto Command con el parámetro
Set cmd_Plantilla = New ADODB.Command
cmd_Plantilla.CommandText = "calcul
Valora esta pregunta


0