Collection - Parrameters "Solo Maestros"
Publicado por Christian (174 intervenciones) el 17/01/2006 16:10:28
Hola, desde ya gracias por la ayuda...
Estoy haciendo una clase generica de conexion con OLEDB y desde la aplicacion le paso el nombre del Store Procedure a ejecutar y los parametros del mismo y es aqui donde tengo el problema....
Del lado del cliente uso una coleccion donde cargo el nombre del parametro de sql y su correspondiente valor, pero cuando quiero pasarselo al objeto command no puedo, ya que no se como sacarlo...
****Les paso el codigo de ejemplo***
Public Function StoreRecordset(ByVal Servidor As String, _
ByVal Base As String, _
ByVal Usuario As String, _
ByVal Password As String, _
ByVal Store As String, _
ByVal Parametros As Collection) As OleDbDataReader
Dim CadaParametro As New OleDbParameter
Dim h As Integer
myConnection.ConnectionString = "Provider=MSDataShape;Data Provider=SQLOLEDB;Data Source=" & Servidor & ";Initial Catalog=" & Base & ";Integrated Security=SSPI;User =" & Usuario & ";Password=" & Password
myCommand.Connection = myConnection
myCommand.CommandText = Store
myCommand.CommandType = CommandType.StoredProcedure
myConnection.Open()
If Not Parametros Is Nothing Then
If Parametros.Count > 0 Then
'For Each CadaParametro In myCommand.Parameters
' If CadaParametro.ParameterName <> "@RETURN_VALUE" Then
' CadaParametro.Value = Parametros(CadaParametro.ParameterName)
' myCommand.Parameters.Add(CadaParametro)
' End If
'Next
End If
End If
StoreRecordset = myCommand.ExecuteReader()
End Function
GRACIAS!!!
Estoy haciendo una clase generica de conexion con OLEDB y desde la aplicacion le paso el nombre del Store Procedure a ejecutar y los parametros del mismo y es aqui donde tengo el problema....
Del lado del cliente uso una coleccion donde cargo el nombre del parametro de sql y su correspondiente valor, pero cuando quiero pasarselo al objeto command no puedo, ya que no se como sacarlo...
****Les paso el codigo de ejemplo***
Public Function StoreRecordset(ByVal Servidor As String, _
ByVal Base As String, _
ByVal Usuario As String, _
ByVal Password As String, _
ByVal Store As String, _
ByVal Parametros As Collection) As OleDbDataReader
Dim CadaParametro As New OleDbParameter
Dim h As Integer
myConnection.ConnectionString = "Provider=MSDataShape;Data Provider=SQLOLEDB;Data Source=" & Servidor & ";Initial Catalog=" & Base & ";Integrated Security=SSPI;User =" & Usuario & ";Password=" & Password
myCommand.Connection = myConnection
myCommand.CommandText = Store
myCommand.CommandType = CommandType.StoredProcedure
myConnection.Open()
If Not Parametros Is Nothing Then
If Parametros.Count > 0 Then
'For Each CadaParametro In myCommand.Parameters
' If CadaParametro.ParameterName <> "@RETURN_VALUE" Then
' CadaParametro.Value = Parametros(CadaParametro.ParameterName)
' myCommand.Parameters.Add(CadaParametro)
' End If
'Next
End If
End If
StoreRecordset = myCommand.ExecuteReader()
End Function
GRACIAS!!!
Valora esta pregunta


0