Hacer funcion para devolver un DataReader

[locojars]

Hola amigos,

Resulta que estoy queriendo hacer una funcion para poder regresar un DataReader, he utilizado el codigo siguiente pero al asignar la funcion a un reader me dice que el reader esta cerrado o no esta presente.

Código:

        dim reader as sqlDatareader
        Using connection As New SqlConnection(conexion)
            Dim command As New SqlCommand(queryString, connection)
            connection.Open()
            Dim reader As SqlDataReader = command.ExecuteReader()
        End Using
        
      return reader

Si tiene por ahi alguna clasesita para hacer todo esto(regresar dataReader,DataSet) ó si me dicen que esta mal en la funcion se los agradeceré.

Saludos

[jaullo]

Primero que nada quita la variable duplicada de reader.

Segundo debes abrir la conexion antes de ejecutar el query, asi:

Código ASP:

Connection.open
Dim Command as new SqlCommand (queryString, connection)
 

Y por ultimo debes leer los valores del reader

Código ASP:

While reader.Read()
            variable= dR("campo")
        End While
 

Si eso no te funciona algo así debería hacerlo

Código ASP:

conexion.Open()
        Dim cM As New SqlCommand(accion, conexion)
        Dim dR As SqlDataReader = cM.ExecuteReader()
        While dR.Read()
            var= dR("campor")
 
        End While
        dR.Close()
 

[locojars]

Te agradezco jaullo la respuesta, pero yo lo que ando buscando es crear un método o función que me devuelva un DataReader, lo que tu me muestras ya hace rato que lo hago, pero ahora tengo la necesidad de crear un método que devuelva un DataReader.

Un ejemplo de uso seria el siguiente:

Código:

dim datos as new ConectaDB
dim lector as SqlDataReader

lector = datos.EjecutarReader("select....", conexion)

while lector.read
  
end while

La función debería de ser capaz de:
- Conectarse a la BD
- Obtener un reader
- Desconectarse de la BD
- Devolver el reader.


Espero puedan ayudarme .

Saludos.

[jaullo]

Podría ser algo asi, que es practicamente lo que tienes arriba, pero como ves se abre la conexion antes de ejecutar el reader, que es lo que no estas ejecutando en tu funcion. Esta funcion que te pongo se desconecta de la bd una vez que termina la consulta.

Código ASP:

Public Shared Function GetDataReader(st as string) As OleDbDataReader
Dim oConn As OleDbConnection
'...
'...
oConn.open
Dim oCmd As New OleDbCommand(st, oConn)
 
Dim dr As OleDbDataReader = oCmd.ExecuteReader(CommandBehavior.CloseConnection)
 
Return dr
 
End Function
 

[DexterGlue]

Hola jaullo y locojars

Yo estoy tratando de hacer lo mismo, pero se me presenta el mismo error me dice al asignar el resultado de la funcion que el oledbdatareader se encuentra cerrado. ¿Como solucionaron esto?

La funcion que yo tengo es la siguiente

Código:

 Public Function GetData(ByVal connection As String, ByVal TipoComando As CommandType, ByVal tabla As String, _
                            Optional ByVal campos As String = "*", Optional ByVal condicion As String = "") As Object
Dim Reader As OleDbDataReader
Using conOleReader As New OleDbConnection(connection)
With cmdOleDReader
.CommandType = TipoComando
  Select Case TipoComando
 Case CommandType.TableDirect
   .CommandText = tabla
 Case CommandType.Text
   If Not condicion Is vbNullString Then
        .CommandText = "select " & campos & " from " & tabla & " where " & condicion
   Else
      .CommandText = "select " & campos & " from " & tabla
                        End If
 Case CommandType.StoredProcedure
 End Select
       .Connection = conOleReader
 End With
            Try
                conOleReader.Open()
            Catch ex As Exception
                MsgBox(ex.Message)
                conOleReader.Dispose()
            End Try

            Reader = cmdOleDReader.ExecuteReader()

            GetData = Reader
            Reader.Close()
        End Using
    End Function

y lo llama por medio de este codigo

Código:

 Dim drData As OleDbDataReader

 drData = GetData(My.Settings.mainCon, CommandType.TableDirect, "ixRevisionPacks")

Les agradezco la ayuda