Como agrego parametros de SPs
Publicado por Miguel (5 intervenciones) el 17/12/2004 03:17:58
Hola, quiero hacer una funcion para llamar StoredProcedures de SQL.
Ya he visto algunos ejemplos donde agregan parametros pero saben cuantos son y el nombre de estos, lo cual me resulta poco funcional.
Aqui esta el código que estoy utilizando.
Dim objCnn As New OleDb.OleDbConnection(sConexionString)
Dim objDA As New OleDb.OleDbDataAdapter(sSP, objCnn)
Dim objDS As New DataSet("Tabla")
Dim iParametro As Integer
objDA.SelectCommand.CommandType = CommandType.StoredProcedure
For iParametro = 0 To UBound(Args)
objDA.SelectCommand.Parameters(iParametro + 1) = Args(iParametro)
Next
objCnn.Open()
objDA.MissingSchemaAction = MissingSchemaAction.AddWithKey
objDA.Fill(objDS, "Tabla")
objCnn.Close()
Esto es lo que no me esta funcionando "objDA.SelectCommand.Parameters(iParametro + 1) = Args(iParametro)
"
De antemano gracias por su ayuda.
Ya he visto algunos ejemplos donde agregan parametros pero saben cuantos son y el nombre de estos, lo cual me resulta poco funcional.
Aqui esta el código que estoy utilizando.
Dim objCnn As New OleDb.OleDbConnection(sConexionString)
Dim objDA As New OleDb.OleDbDataAdapter(sSP, objCnn)
Dim objDS As New DataSet("Tabla")
Dim iParametro As Integer
objDA.SelectCommand.CommandType = CommandType.StoredProcedure
For iParametro = 0 To UBound(Args)
objDA.SelectCommand.Parameters(iParametro + 1) = Args(iParametro)
Next
objCnn.Open()
objDA.MissingSchemaAction = MissingSchemaAction.AddWithKey
objDA.Fill(objDS, "Tabla")
objCnn.Close()
Esto es lo que no me esta funcionando "objDA.SelectCommand.Parameters(iParametro + 1) = Args(iParametro)
"
De antemano gracias por su ayuda.
Valora esta pregunta


0