Visual Basic - Depurar Errores en Clase

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 119
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Depurar Errores en Clase

Publicado por Christian (713 intervenciones) el 25/10/2006 03:54:36
Private oCn As ADODB.Connection ' declaracion de variable
Private oRs As ADODB.Recordset ' declaracion de variable
Private rstconsulta As ADODB.Recordset

Private Sub Class_Initialize()
Set oCn = New ADODB.Connection ' creo o instancio
oCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Cursos.mdb;Persist Security Info=False"
oCn.Open
End Sub

Private Sub Class_Terminate()
oCn.Close
Set oCn = Nothing
End Sub

Public Function fConsulta() As Boolean

Set oRs = New ADODB.Recordset
oRs.Source = "SELECT * FROM Alumnos"
oRs.ActiveConnection = oCn
oRs.CursorLocation = adUseClient
oRs.Open
Set rstconsulta = oRs
oRs.Close
Set oRs = Nothing
fConsulta = True
End Function

Public Property Get ptyConsulta() As ADODB.Recordset
Set ptyConsulta = rstconsulta

End Property

----------------------------------------------------------------------------------------------------------------------------
me gustaria poner una rutina para depurar errores en la funcion fConsulta y que me la devuelva como mensaje de error en el formulario es un proyecto de 3 capas

gracias por todo
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:Depurar Errores en Clase

Publicado por necro-air (77 intervenciones) el 25/10/2006 15:41:52
ncha!!:

Recupera el error mediante ON ERROR GOTO X
y luego envialo a una funcion o clase para tratarlo.

Es esto lo que querias decir?
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
sin imagen de perfil
Val: 119
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:Depurar Errores en Clase

Publicado por Christian (713 intervenciones) el 26/10/2006 00:48:06
Si eso como hago para mandarselo a otra funcion ? dentro de la misma clase? lo on error goto esta clarisimo
saludos amigo
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:Depurar Errores en Clase

Publicado por LLE (136 intervenciones) el 27/10/2006 04:24:35
Hola, declara dentro de la clase un evento public, por ejemplo

Public Event EventoError(Numero As Long, Descripcion As Long)

Dentro de la función de la clase, cuando se prduce el error lo ejecutas

RaiseEvent EventoError(Err.Number, Err.Decription)

dentro del form declara la var de la clase con WithEvents

Private WithEvents Objclase As MiClase

Luego desde el combo de eventos, al hacer esto ultimo, ahora te aparece tu evento, seleccionalo, y ya podes utilizarlo para el error desde el form cuando se produce en la clase

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