llamar stored procedure

[dorer]

hola amigos del foro,
Estoy trabajando con vb.net y normalmente siempre hacia mis consultas con insert, update,delete, haciendolos de manera sencilla pero ahora me estan pidiendo que trabaje con stored procedure y no sé como llamarlos (osea tengo un stored que cumple la funcion de REGISTRAR en mi BD datos de un formulario), tengo mi button registrar. Como hago para que cuando le de click en el button me guarde en mi BD?

[cristiantorres]

Pues no es mucha la diferencia.
Seria.

Código vb.net:

Dim cmd As New SqlCommand("NombreProcedimientoAlmacenado", conn) 'nombre del procedimiento, conn es la cadena de conexion
cmd.CommandType = CommandType.StoredProcedure 'especificas que se ejecutara un procedimiento
'envias los parametros
cmd.Parameters.AddWithValue("@param1", textbox1.Text)
cmd.Parameters.AddWithValue("@param2", textbox2.Text)
 
conn.Open() 'abris la conexion
Try
     cmd.ExecuteNonQuery()
     MessageBox.Show("Registro Ingresado con Exito...")
Catch ex As Exception
       MessageBox.Show("Error no se Pudo Ingresar el Registro...")
End Try
 

Como veras es casi lo mismo lo que cambia es que el el comand pones el nombre del procedimiento y tambien especificas que se ejecutara un procedimiento lo demas es igual.

[dorer]

Hola cristian, me faltó aclarar que uso BD oracle y bueno la estructura que me das me sirve mucho; e encontrado algo de codigo relacionado con lo que comente arriba pero no entiendo muy bien, me puedes ayudar a entenderlo porfavor ? quiza un poco de documentacion de tu parte.

Código vb:

Dim cmdCommand As OracleCommand = New OracleCommand
 
' agregar parámetros
With cmdCommand.Parameters
   .Add(New OracleParameter("VI_CH_COD_EMPR", OracleDbType.Char, pstrCOD_SOCIEDAD.Length, pstrCOD_SOCIEDAD, ParameterDirection.Input))
   .Add(New OracleParameter("VI_CH_COD_USUARIO", OracleDbType.Char, pstrCOD_USUARIO.Length, pstrCOD_USUARIO, ParameterDirection.Input))
   .Add(New OracleParameter("VO_NU_COD_ERR", OracleDbType.Int32, 0, pstrCOD_EST_EVE, ParameterDirection.Output))
   .Add(New OracleParameter("VO_VA_MSJ_ERR", OracleDbType.Varchar2, 2000, pstrCOD_USUARIO, System.Data.ParameterDirection.Output))
   ' configurar command
   .CommandText = Me.ObtenerCommandText(lsNombreStore)
   .CommandType = CommandType.StoredProcedure
   .Connection = objCNX       -- varoable Oracleconnection
 
   Try
      ' ejecuta comando
      .ExecuteNonQuery()
      If Not CType(.Parameters.Item("VO_NU_COD_ERR").Value, Integer).Equals(0) Then
         If Not Microsoft.VisualBasic.IsDBNull(.Parameters.Item("VO_VA_MSJ_ERR").Value) Then
            ' disparar exception con texto desde la bd
            pstrMSG_ERR = CType(.Parameters.Item("VO_VA_MSJ_ERR").Value, Oracle.DataAccess.Types.OracleString).Value
         Else
            pstrMSG_ERR = "Ocurrio un error al ejecutar el procedimiento. ErrNumber:=" + .Parameters.Item("VO_NU_COD_ERR").Value.ToString
         End If
      Else
         '// caso ejecucion exitosa
         lbRet = True
      End If
   Catch ex As Exception
      ' capturar mensaje de error
      pstrMSG_ERR = ex.Message
 
   Finally
      '//
   End Try
End With
 

[cristiantorres]

Pues no cambiaría mucho solo que usarías las clases ado.net para oracle.
Puedes consultar la propia documentación de microsoft.
Procedimientos almacenados de forma de llamar a Oracle en Visual Basic .NET con el proveedor administrado de Oracle de Microsoft

Como veras la clave esta en definir el objeto comand como store procedure.

Código vb.net:

comand.CommandType = CommandType.StoredProcedure
 

De ahí lo demás es casi similar a como que estuvieras haciendo las query manuales.

[dorer]

Hola nuevamente, tengo este SP-----lo q hace es hacer select a una tabla y enviar un codigo.

Código:

PROCEDURE SPX_DOCUME_X_COBRAR_AGREGA_SPS(
   
   VO_CH_NRO_CUENTA         IN  REGIS_DOC.NRO_CUENTA %TYPE,
   VO_CH_OUT_NRO_CUENTA     OUT REGIS_DOC.NRO_CUENTA %TYPE,
   VO_CH_COD_SOC            OUT REGIS_DOC.COD_SOC % TYPE,
   VO_CH_NOM_SOC            OUT REGIS_DOC.NOM_SOC %TYPE,
   VO_NU_COD_ERR            OUT NUMBER,
   VO_VA_MSJ_ERR            OUT VARCHAR2,
   VO_CUR_CURSOR            OUT CUR_RETURN 
)
IS
  BEGIN
     -- consultar tabla
       OPEN VO_CUR_CURSOR FOR
       
         SELECT RD.NRO_CUENTA,SN.COD_SOC,SN.NOM_SOC
         FROM REGIS_DOC RD,SOCIO_NEGO SN
         WHERE SN.COD_SOC=RD.COD_SOC
         ;


 -- Indicar ejecucion sin errores
   VO_NU_COD_ERR := 0;
   VO_VA_MSJ_ERR := '';

EXCEPTION
      WHEN OTHERS THEN
         VO_NU_COD_ERR := -1;
         VO_VA_MSJ_ERR := 'Error Store: SPX_DOCUME_X_COBRAR_SPI '|| CS_ENTER ||
                 SQLERRM || CS_ENTER || DBMS_UTILITY.FORMAT_ERROR_BACKTRACE;

END SPX_DOCUME_X_COBRAR_AGREGA_SPS;

estoy en el evento click de mi button mostrar y tengo este codigo con el cual quiero que me ayuden a acondicionarlo con mi SP . Necesito su ayuda con este problema!!

Código vb:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim x As Exception
        Dim Ds As New DataSet()
        Dim Oraclecon As OracleConnection = New OracleConnection("Server= servidor/xe;Uid=usuario;Pwd=clave")
 
 
        Oraclecon.Open()
 
 
        Dim myCMD As New OracleCommand()
        myCMD.Connection = Oraclecon
        myCMD.CommandText = "ERP_DOCUME_X_COBRAR.SPX_DOCUME_X_COBRAR_AGREGA_SPS"
        myCMD.CommandType = CommandType.StoredProcedure
        myCMD.Parameters.Add(New OracleParameter("VO_CH_NRO_CUENTA", OracleType.Number)).Value = 123
        'myCMD.Parameters.Add(New OracleParameter("io_cursor", OracleType.Cursor)).Direction = ParameterDirection.Output
 
        Dim MyDA As New OracleDataAdapter(myCMD)
 
        Try
            MyDA.Fill(Ds)
        Catch x
            MessageBox.Show(x.Message.ToString)
        End Try
 
        DataGridView1.DataSource = Ds.Tables(0)
 
        Oraclecon.Close()
    End Sub
 

[Aquaventus]

Hola dorer, esto te puede servir para que entiendas un poco mas acerca de tu problema :
Input output parameter
Si bien esto es de un sql dataadapter, la estructura es la misma nada mas que cambia el nombre por oracle. Saludos!.

[dorer]

Ahora estoy llamando un s.p que solo hace un select de mi BD y lo muestra en un datagridview pero no funciona.Espero puedan ayudarme les dejo aqui lo q e avanzado

Código vb:

Dim x As Exception
        Dim Ds As New DataSet()
        Dim Oraclecon As New OracleConnection("Server=localhost;Uid=hola;Pwd=prueba")
 
        Oraclecon.Open()
 
        Dim myCMD As New OracleCommand()
        myCMD.Connection = Oraclecon
        myCMD.CommandText = "ERP_DOCUME_X_COBRAR.SPX_DOCUME_X_COBRAR_SPS"
        myCMD.CommandType = CommandType.StoredProcedure
 
        'myCMD.Parameters.Add(New OracleParameter("VO_CUR_CURSOR", OracleType.Number)).Value = 0
        myCMD.Parameters.Add(New OracleParameter("VO_CUR_CURSOR", OracleType.Cursor)).Direction = ParameterDirection.Output
 
        Dim MyDA As New OracleDataAdapter(myCMD)
 
        Try
 
            MyDA.Fill(Ds)
        Catch x
            MessageBox.Show(x.Message.ToString)
        End Try
 
        DataGrid1.DataSource = Ds.Tables(0)
 
        Oraclecon.Close()
 

aqui les dejo el SP

Código vb:

PROCEDURE SPX_DOCUME_X_COBRAR_SPS(
 
   VO_NU_COD_ERR           OUT NUMBER,
   VO_VA_MSJ_ERR           OUT VARCHAR2,
   VO_CUR_CURSOR           OUT CUR_RETURN
)
IS 
   BEGIN
   -- consultar tabla
       OPEN VO_CUR_CURSOR FOR
   
          SELECT RD.NRO_CUENTA,TC.DES_TIPO_COMPROB AS DOCUMENTO ,RD.NRO_SERIE || ' - ' ||RD.NRO_COMPROB AS NRO_FACTURA,RD.COD_SOC AS CODIGO,RD.NOM_SOC AS NOMBRE,RD.USU_COBRADOR AS COBRADOR,RD.FEC_FIN,M.NOM_MONEDA,RD.IMPORTE,RD.COD_USU_CREA,SYSDATE AS FEC_MODIF
                 FROM REGIS_DOC RD,TIPO_COMPROB TC,MONEDA M
                        WHERE RD.COD_TIPO_COMPROB=TC.COD_TIPO_COMPROB
                               AND RD.COD_MONEDA=M.COD_MONEDA;
   -- Indicar ejecucion sin errores
   VO_NU_COD_ERR := 0;
   VO_VA_MSJ_ERR := '';
 
EXCEPTION
      WHEN OTHERS THEN
         VO_NU_COD_ERR := -1;
         VO_VA_MSJ_ERR := 'Error Store: SPX_DOCUME_X_COBRAR_SPS '|| CS_ENTER ||
                 SQLERRM || CS_ENTER || DBMS_UTILITY.FORMAT_ERROR_BACKTRACE;
                 
END SPX_DOCUME_X_COBRAR_SPS;
 

[drako_darpan]

Hola que tal, si el SP te va a regresar el valor de una tabla por que no lo haces mas simple:

Código SQL:

PROCEDURE SPX_DOCUME_X_COBRAR_SPS  @sParametro_Entrada INT
BEGIN
  SELECT *
  FROM TablaX
  WHERE campo_a_consultar = @sParametro_Entrada
END
 

Y en el llamado lo puedes hacer asi:

Código C#:

OdbcConnection odbc= new OdbcConnection();
 
sConsulta = string.Format("SELECT SPX_DOCUME_X_COBRAR_SPS ({0})", Valor_Consultar);
OdbcDataAdapter oda = new OdbcDataAdapter(sConsulta, odbc);
DataSet ds = new DataSet();
oda.Fill(ds, "Agotados");
 
Grid.DataSource = ds;
Grid.DataMember = "Agotados";
 

Asi lo hago yo en C# y no e tenido problemas

[minombreesmm]

Iniciado por cristiantorres

Pues no es mucha la diferencia.
Seria.

Código vb.net:

Dim cmd As New SqlCommand("NombreProcedimientoAlmacenado", conn) 'nombre del procedimiento, conn es la cadena de conexion
cmd.CommandType = CommandType.StoredProcedure 'especificas que se ejecutara un procedimiento
'envias los parametros
cmd.Parameters.AddWithValue("@param1", textbox1.Text)
cmd.Parameters.AddWithValue("@param2", textbox2.Text)
 
conn.Open() 'abris la conexion
Try
     cmd.ExecuteNonQuery()
     MessageBox.Show("Registro Ingresado con Exito...")
Catch ex As Exception
       MessageBox.Show("Error no se Pudo Ingresar el Registro...")
End Try
 

Como veras es casi lo mismo lo que cambia es que el el comand pones el nombre del procedimiento y tambien especificas que se ejecutara un procedimiento lo demas es igual.

tampoco funciono este

Código vb:

conexion.ConnectionString = "server=" & servidor & ";user id=" & usuario & ";password=" & contraseña & ";database=" & basededatos & ";"
 
        Dim cmd As New MySqlCommand("corte", conexion) 'nombre del procedimiento, conn es la cadena de conexion
        cmd.CommandType = CommandType.StoredProcedure 'especificas que se ejecutara un procedimiento
        'envias los parametros
        cmd.Parameters.AddWithValue("$fechaini", Format(dtmFechaIni.Value, "yyyy-MM-dd"))
        cmd.Parameters.AddWithValue("$fechafin", Format(dtmFechaFin.Value, "yyyy-MM-dd"))
 
        conexion.Open() 'abris la conexion
        Try
            cmd.ExecuteNonQuery()
 
        Catch ex As Exception
            MessageBox.Show("Error no se Pudo Ingresar el Registro...")
        End Try
        conexion.Close()