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:
Muchas gracias compañeros.
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 conexioncon.Open()
Try
Dim consulta As New OleDbCommand(cadena, con)
Dim datos As OleDbDataReader = consulta.ExecuteReader
If datos.Read ThenReturn 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
0
