Visual Basic - StoreProcedure desde VB

Life is soft - evento anual de software empresarial
   
Vista:

StoreProcedure desde VB

Publicado por Carlos (1 intervención) el 09/04/2013 00:18:23
Buenas a toda la comunidad.
Les cuento que me han pedido un sp en VB 6.0, para tal caso me dieron un ejemplo a seguir, el problema es que no me dan la base de datos ni la estructura de dicho SP, lo cual me deja un poco perdido.
La verdad yo he creado algunos sp pero de tal manera que ejecuto una cadena de caracteres en donde llamo el sp con la sentencia "exec", y de ahi le paso los parametros y como les digo esta forma me deja en el limbo.
Si alguien me da una pequeña orientacion para poder entenderlo se lo agradeceria bastante.

De antemano agradecido con cualquier ayuda ofrecida.

El codigo que me pasaron es el siguiente:

Public Function valido_cliente(id_cliente As String) As Integer
Dim Res As Integer
Dim con As New ADODB.Connection
Dim cmd As ADODB.Command
Dim strconnect As String

sql = "select coneccion_externa from parametros"
traedata (sql)
If Not rs.EOF And IsNull(rs("coneccion_externa")) = False Then
strconnect = rs("coneccion_externa")
Else
msgbox "Error de Configuración", "No se ha definido la conección Externa"
Exit Function
End If

On Error GoTo error:
con.Open strconnect

Set cmd = New ADODB.Command
cmd.ActiveConnection = con
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "PROC_EMPL_VALI"

cmd.Parameters.Append cmd.CreateParameter("CodigoEmpleado", adVarChar, adParamInput, 7, UCase(id_cliente))

If UCase(turno) = "C" Then
cmd.Parameters.Append cmd.CreateParameter("AlmuerzoCena", adVarChar, adParamInput, 1, "C")
End If

If UCase(turno) = "A" Then
cmd.Parameters.Append cmd.CreateParameter("AlmuerzoCena", adVarChar, adParamInput, 1, "A")
End If

If UCase(turno) = "D" Then
cmd.Parameters.Append cmd.CreateParameter("AlmuerzoCena", adVarChar, adParamInput, 1, "D")
End If

cmd.Parameters.Append cmd.CreateParameter("Retorno", adInteger, adParamOutput)
cmd.Execute

Res = cmd("Retorno")

valido_cliente_BD_externa = Res

Set cmd.ActiveConnection = Nothing

Exit Function
End Function
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder