Spanish ERROR DE LECTURA DE REGISTROS (NextRow)

[JMiur]

...
...

Try
SentenciaSql="SELECT codigocompania, codigoarticulo, descripcion, nombrecorto , precio, porcentajeitbm , imagen FROM articulos where codigocompania = " & "'" & CodigoCompaniae & "'" & " and codigogrupo = " & "'" & CodigoGrupoe & "'" & " and EStatus = " & "'" & "A" & "'"
Dim SenderFilter As Object = ModConexionSQL.sQL1.ExecQueryAsync("SQL", SentenciaSql, Null)
Wait For (SenderFilter) SQL_QueryComplete (Success As Boolean, rs As JdbcResultSet)
If Success Then
Do While rs.NextRow

...
...
El NextRow revienta al leer el registro 25, siempre se queda ahí, hemos probado con otras tablas y pasa lo mismo
usamos la libreria jtds-1.3.1.jar-

 

[JMiur]

Ya encontré la solución, si alguno le da problema el NextRow, me escriben y se las entrego.

Saludos

 

[josejad]

Hola JMiur:

¿Podrías publicarla en el foro por si a alguien más le pasa poder consultarla?

gracias¡¡

 

[laurokarlos]

Publicala por favor!!! Muchas gracias

 

[JMiur]

esta rutina la encontré en el foro, se debe colocar antes de realizar la conexión a la BD remota.

no recuerdo el nombre del autor.

Sub DisableStrictMode

Dim jo como JavaObject
jo.InitializeStatic ("android.os.Build.VERSION")
IF jo.GetField ("SDK_INT")> 9 Then
Política tenue como JavaObject
policy = policy.InitializeNewInstance ("android.os.StrictMode.ThreadPolicy.Builder", Null)
policy = policy.RunMethodJO ("permitAll", Null) .RunMethodJO ("build", Null)
Dim sm As JavaObject
sm.InitializeStatic ("android.os.StrictMode"). RunMethod ("setThreadPolicy", Array (polícy))
End if

End Sub