Me podrias ayudar con esto, lo veo en mi línea de registro, cuando ejecuto un llamado a uno de mis procesos.
Todos los sub los tengo dentro del mismo modulo y los llamos segun mi necesidad, ese es el primero que llamo, pero al llamar a cualquier otro como este:
Me muestra el mensaje del Sleep not resumed que indico en el titulo...
Como lo puedo resolver... Gracias
Llamado al Sub de Usuarios:
Sub InfoUsuarios As ResumableSub
Wait For (ConexionSQL) Complete (Result As Boolean)
If Result Then
Dim SenderFilter As Object = SQL.ExecQueryAsync("SQL", "Select * from Personal", Null)
Wait For (SenderFilter) SQL_QueryComplete (Success As Boolean, Crsr As JdbcResultSet)'
If Success Then
Dim Info As List
Info.Initialize
Do While Crsr.NextRow
Dim Datos As Clases
Datos.Initialize
Datos.IdUsuario=Crsr.GetInt("Id_Persona")
Datos.UserName=Crsr.GetString("Nombre_persona")
Datos.UserPass=Crsr.GetString("Clave")
Info.Add(Datos)
Sleep(100)
Loop
End If
End If
CloseConexionSQL
Return Info
End Sub
Todos los sub los tengo dentro del mismo modulo y los llamos segun mi necesidad, ese es el primero que llamo, pero al llamar a cualquier otro como este:
Sub de Salones:
Sub InfoSalones As ResumableSub
Wait For (ConexionSQL) Complete (Result As Boolean)
If Result Then
Dim Sendero As Object = SQL.ExecQueryAsync("SQL1", "Select * from Salones", Null)
Wait For (Sendero) SQL1_QueryComplete (Success As Boolean, Crsr As JdbcResultSet)'
If Success Then
Dim Info As List
Info.Initialize
Do While Crsr.NextRow
Dim Datos As Clases
Datos.Initialize
Datos.IdSalon=Crsr.GetInt("Id_Salon")
Datos.NameSalon=Crsr.GetString("Nombre_salon")
Info.Add(Datos)
Loop
End If
End If
CloseConexionSQL
Return Info
End Sub
Me muestra el mensaje del Sleep not resumed que indico en el titulo...
Como lo puedo resolver... Gracias