Visual Basic.NET - Ayuda con funcion Select-Return-con.close

 
Vista:

Ayuda con funcion Select-Return-con.close

Publicado por Guillermo López (1 intervención) el 28/06/2020 02:12:06
Hola compañeros, necesito su ayuda de nuevo.
tengo esta función para hacer "Select" a la tabla.
El problema es que cuando se encuentra con el "Return", la función sale, dejando la conección abierta y se cae.
De verdad no se como resolverlo.
Me ayudan por favor?
He aquí la función:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function extrater(cadena As String) As OleDbDataReader
    ':::Abrimos la conexion
    con.Open()
    Try
        Dim consulta As New OleDbCommand(cadena, con)
        Dim datos As OleDbDataReader = consulta.ExecuteReader
        If datos.Read Then
            Return datos
        Else
            MsgBox("No existen registros con los criterios seleccionados.")
        End If
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
    con.Close() '--se ciera
End Function

Muchas gracias compañeros.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Phil Rob
Val: 2.985
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Ayuda con funcion Select-Return-con.close

Publicado por Phil Rob (843 intervenciones) el 02/07/2020 13:24:27
Hola,

Quizá este codigo puede te ayudar :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Function extrater(cadena As String) As OleDbDataReader
    ':::Abrimos la conexion
 
        Dim datos As OleDbDataReader = Nothing
 
    con.Open()
    Try
        Dim consulta As New OleDbCommand(cadena, con)
 
        datos  = consulta.ExecuteReader
 
        If Not datos.Read Then
             MsgBox("No existen registros con los criterios seleccionados.")
        End If
 
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
    con.Close() '--se ciera
 
           Return datos
 
End Function

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar