2.5.Clase BaseDatos. Ejecutar Procedimientos Almacenados.

Para los que no sepais que es un procedimiento almacenado o PA, segun la definicion encontrada en la wikipedia:

 "Un procedimiento almacenado (stored procedure en inglés) es un programa (o procedimiento) el cual es almacenado físicamente en una base de datos. Su implementación varía de un gestor de bases de datos a otro. La ventaja de un procedimiento almacenado es que al ser ejecutado, en respuesta a una petición de usuario, es ejecutado directamente en el motor de bases de datos"

Es decir, sirver para hacer que las consultas a base de datos sean mas rapidas que una consulta normal, ya que esta directamente conectado con la base de datos.

Así que nuestra clase también debe de tener una función que sea capaz de ejecutar un PA alojado en la base de datos que estamos conectada.
Para ello utilizamos la siguiente función:

Public Function Ejecutar_PA(ByVal NombreProcedimiento As String, _
                            ByVal HayParametros As Boolean) As Boolean
        'Esta instancia ejecuta un procedimiento almacenado INSERT, DELETE o UPDATE
        Try
            Dim i As Integer = 0

            CrearComando(NombreProcedimiento, "P")
            If HayParametros Then
                While i <= UBound(pParametros)
                    Me.Commando.Parameters.Add(pParametros(i))
                    i = i + 1
                End While
            End If

            If Me.Commando.ExecuteNonQuery() = 0 Then
                Ejecutar_PA = False
            Else
                Ejecutar_PA = True
            End If

        Catch ex As Exception
            Ejecutar_PA = False
            Throw New BaseDatosException("ERROR :" & ex.Message & " BASEDATOS.EjecutarPA ", ex)
        End Try

    End Function

Lo único que le pasamos a la función es el nombre del procedimiento y si le hemos pasado parámetros antes de la llamada, recordad que tenéis que pasárselo antes de la llamada con la función AñadirParametro.