ACTUALIZAR BASE DE DATOS

Hola amigos, su invalorable ayuda, por favor. Ya tengo el

volcà¡n, pero la voluntad como un témpano.
Deseo insertar un registro en una tabla de una Base de

datagrid y utilizando procedimientos almacenados. El

para actualizar la tabla se muestra abajo, en el ccual se

"Failed to
convert parameter value from Object[ ] to a Int32" en la

mCom.ExecuteNonQuery". Entonces, utilizo las funciones

Ctype(Argumentos( ), Integer), y lanza ERROR. ¿Que debo

refrigerar mi cerebro.
Este es el codigo:

Public Overloads Function Ejecutar( _
ByVal ProcedimientoAlmacenado As String, _
ByVal ParamArray Argumentos() As System.Object) _
As Integer

Dim mCom As System.Data.SqlClient.SqlCommand = _
Comando(ProcedimientoAlmacenado)

Dim Resp As Integer

CargarParametros(mCom, Argumentos)
Resp = mCom.ExecuteNonQuery ''''**** aqui se

Dim i As Integer
For i = 0 To mCom.Parameters.Count - 1
With mCom.Parameters(i)
If .Direction = ParameterDirection.

Or .Direction = ParameterDirection.Output

Argumentos.SetValue(.Value, i - 1)
End If
End With
Next
Return Resp
End Function
.

Gambini, unos post mas abajo, en el mensaje que estoy
haciendo mal, carlos duran me da la solucion a lo mismo que
preguntas tu.

Espero que te sirva

Saludos

>Hola amigos, su invalorable ayuda, por favor. Ya tengo el
cerebro como un
>volcà¡n, pero la voluntad como un témpano.
>Deseo insertar un registro en una tabla de una Base de
Datos mediante un
>datagrid y utilizando procedimientos almacenados. El
código
>para actualizar la tabla se muestra abajo, en el ccual se
genera el error
>"Failed to
>convert parameter value from Object[ ] to a Int32" en la
sentencia "Resp =
>mCom.ExecuteNonQuery". Entonces, utilizo las funciones
Cint(Argumentos) ó
>Ctype(Argumentos( ), Integer), y lanza ERROR. ¿Que debo
hacer?. Gracias, por
>refrigerar mi cerebro.
> Este es el codigo:
>
> Public Overloads Function Ejecutar( _
> ByVal ProcedimientoAlmacenado As String, _
> ByVal ParamArray Argumentos() As System.Object) _
> As Integer
>
> Dim mCom As System.Data.SqlClient.SqlCommand = _
> Comando(ProcedimientoAlmacenado)
>
> Dim Resp As Integer
>
> CargarParametros(mCom, Argumentos)
> Resp = mCom.ExecuteNonQuery ''''**** aqui se
genera el error
> Dim i As Integer
> For i = 0 To mCom.Parameters.Count - 1
> With mCom.Parameters(i)
> If .Direction = ParameterDirection.
InputOutput _
> Or .Direction = ParameterDirection.Output
Then
> Argumentos.SetValue(.Value, i - 1)
> End If
> End With
> Next
> Return Resp
> End Function
>.
>