Visual Basic.NET - Ayuda FUNCION Visual Basic.NET

   
Vista:

Ayuda FUNCION Visual Basic.NET

Publicado por FELIX... (4 intervenciones) el 22/04/2009 16:40:37
Buenas Gente del foro, tengo el siguiente problema: Tengo una aplicación en Visual Basic 2008, en la cual tengo una función que su labor es leer un campo en la base de datos y agregarla a una variable, realmente estoy migrando el Codigo desde Visual 6.0 en donde esta función funciona perfectamente y es la siguiente:

Public Function GetCreci() As String
Dim rf As New ADODB.Recordset
Dim sql As String
sql = "SELECT * FROM Crecimiento WHERE idL=" & gxL
rf.Open sql, db, adOpenDynamic, adLockOptimistic
If Not rf.BOF And Not rf.EOF then
GetCreci = rf!Tipo
End If
rf.Close
End Function

en Visual.NET la hice de la siguiente Manera:

Public Function GetCreci() As String
Try
cn.Open()
Dim sql As New OleDb.OleDbCommand("SELECT * FROM Crecimiento WHERE idL=" & gxL, cn)

Dim leer As OleDb.OleDbDataReader
leer = sql.ExecuteReader
leer.Read()
If leer.HasRows = True Then
GetCreci = leer("Tipo").ToString
End If

Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
Finally
cn.Close()
End Try
End Function ---> esta línea me la subraya en verde

Pero me da el siguiente error:

La Función 'GetCreci' no devuelve un valor de todo el Camino de Codigo, una Excepción de referencia Nula podría ocurrir en tiempo de ejecución cuando el resultado sea usado...

Entonces no sé cómo podría desarrollar esa función sin que me dé el error...! les agradezco de antemano su Ayuda...! Saludos!!!
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

RE:Ayuda FUNCION Visual Basic.NET

Publicado por OliBeer (391 intervenciones) el 22/04/2009 17:15:57
Hola,

Agrega las dos líneas...

Public Function GetCreci() As String

GetCreci = "" 'Agrega esto

Try
cn.Open()
Dim sql As New OleDb.OleDbCommand("SELECT * FROM Crecimiento WHERE idL=" & gxL, cn)

Dim leer As OleDb.OleDbDataReader
leer = sql.ExecuteReader
leer.Read()
If leer.HasRows = True Then
GetCreci = leer("Tipo").ToString
End If

Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
Finally
cn.Close()
End Try

return GetCreci 'Agregar esto
End Function

Saludos.
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

RE:Ayuda FUNCION Visual Basic.NET

Publicado por FELIX... (4 intervenciones) el 22/04/2009 17:22:51
Coye funcionó muy bien...

Muchas Gracias Hermano!!!
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