Salve ragazi!
Ho un problema di acquisizione dei dati da file di AS400.
Ho creato una connessione ODBC e con un agente e codice
lotus script ho acquisito in un database Notes dei dati di un\'anagrafica. Il
problema consiste nel fatto che la query
mi restituisce 2827 record su 5945!!!!.
Mi esce dal ciclo Do loop dopo 2827 record
Esiste qualche limitazione??
Allego breve parte del codice per capire dove possa essere il limite
Il file di AS400 contiene 47 campi.
Vi ringrazio anticipatamente.
Option Public
Option Explicit
Uselsx "*LSXODBC"
%INCLUDE "lsconst.lss"
\' Dichiarazione oggetti x ODBC
Dim Con As New ODBCConnection
Dim QueryAS As New ODBCQuery
Dim ResultAS As New ODBCResultSet
\' Attivo la connessione al data source di ODBC -> Pro.PR_DataSet
If Con.ConnectTo(Pro.PR_DSet(0), Pro.PR_Usr(0), Pro.PR_Pwd(0) ) Then
Set QueryAS.Connection = Con
\' Assegno la query da eseguire x i clienti
QueryAS.SQL = Pro.PR_CF_CQuery(0)
Set ResultAS.Query = QueryAS
\' Eseguo la query
ResultAS.Execute()
Do
Call ResultAS.NextRow() \' mi esce dopo il 2827 record
........
........
Loop Until ResultAS.IsEndOfData
End If
|