Spanish ERROR DE LECTURA DE REGISTROS (NextRow)

JMiur

Member
...
...

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

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

Saludos
 

josejad

Expert
Licensed User
Longtime User
Hola JMiur:

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

gracias¡¡
 

JMiur

Member
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
 
Top