[RISOLTO] macro con select salta il primo record

[CarloIT]

Ciao,
ecco un nuovo problemino.
Il tutto si riduce ad estrema semplicità.
Eseguo una select su vista o tabella entro una macro.
Recupero i dati della select con le istruzioni:

Codice: Seleziona tutto

 while oResult.next
         IDnome = oResult.Columns.getByName("ID_NOME").int
         msgbox(IDnome)

Tuttavia in questa lista il primo record viene saltato.
Nell'esempio in allegato le 2 macro eseguono ciascuna una select su una tabella e su una vista.
Dal formulario, azionando le macro da pulsante, in output vengono restituiti tutti i record tranne il primo (ID = 1)
In allegato l'esempio.
Mi chiedo se non sia il next di

Codice: Seleziona tutto

oResult.next

che fa saltare il primo record.

Grazie come di consueto

[Gaetanopr]

Bisogna togliere If Then

Codice: Seleziona tutto

Sub SELECTVISTA (oEvent As Object) 'Button > Execute > event
   oForm = oEvent.Source.Model.Parent 'MainForm from Button
   oStatement = oForm.ActiveConnection.createStatement() 'Create an SQL statement object
   sSQL = "Select  ""ID_NOME"" from ""Vista Stati"" " 
   oResult = oStatement.executeQuery(sSQL)
       while oResult.next
         IDnome = oResult.Columns.getByName("ID_NOME").int
         msgbox(IDnome)
        wend
    
         oForm.reload() 
    
End Sub

Sub SELECTTABELLA (oEvent As Object) 'Button > Execute > event
   oForm = oEvent.Source.Model.Parent 'MainForm from Button
   oStatement = oForm.ActiveConnection.createStatement() 'Create an SQL statement object
   sSQL = "Select  ""ID_NOME"" from ""Tabella nomi"" " 
   oResult = oStatement.executeQuery(sSQL)
      	while oResult.next
         IDnome = oResult.Columns.getByName("ID_NOME").int
         msgbox(IDnome)
        wend
        oForm.reload() 
End Sub

[CarloIT]

Risolto.
Grazie 1000!