[VB.NET] Errore in lettura campo del DataReader sebbene HasRows sia impostato

[abellos]

Ciao ho questo codice

SQL = "select max(id) as MaxIdTestata from testateimg where codarch=" & codArch 
            Dim CMDT As New OleDbCommand(SQL, ConnDB)
            idTestata = CMDT.ExecuteScalar()
            
            SQLPacco = "select max(Pacco) as MaxPacco from testateimg where codarch=" & CodArch & " AND scatola=" & scatola
            'MsgBox(SQLPacco)
            CMDT.CommandText = SQLPacco
            CMDT.Connection = ConnDB
            Dim RDR As OleDb.OleDbDataReader = CMDT.ExecuteReader()

            If RDR.HasRows Then
                Pacco = RDR("MaxPacco") + 1   <--- errore qui
            Else
                Pacco = 1
            End If
            MsgBox(Pacco)

quando arrivo alla lettura di RDR entra nell'if soltanto che il valore di RDR e' null e va in errore, come posso fare a sapere se il mio reader e' pieno o vuoto? in pratica il vecchio RS.eof

[cyanuro]

Letto così ti a prima vista ti sei dimenticato di aprire la connessione

[abellos]

ciao, no la connessione ce' ed e' aperta ho solo preso il pezzo dove ho l'errore. effettivamente non l'ho scritto nel post precedente, l'errore che mi da e' "Nessun dato esistente per la riga/colonna."

[abellos]

ho provato anche a mettere al posto della riga

If RDR.HasRows Then

quest'altra

If RDR("maxPacco") <> vbNull Then

ma essendo vuoto il reader mi da questo errore: Nessun dato esistente per la riga/colonna.
Effettivamente e' giusto perche nel caso che il reader sia vuoto deve partire da 1 il numero del pacco, non riesco a capire come mai se il reader e' vuoto la proprieta' hasrows mi da true. mi sapete aiutare?

[alpynet]

Ciao, a parte il fatto che con quel tipo di select dovresti usare ExecuteScalar(), se usi Reader, prima di andare a leggere il campo, devi fare una lettura del record: TuoOggetto.read()
pertanto qualcosa del genere:

If RDR.HasRows Then
   rdr.read()             
   Pacco = RDR("MaxPacco") + 1
Else
....
Endif

[alka]

L'implementazione corretta della lettura - in generale - è questa:

While RDR.Read() Do
   Pacco = RDR("MaxPacco") + 1
End While

Se il dato da leggere è uno solo, meglio usare ExecuteScalar come già suggerito, oppure procedere semplicemente così:

If RDR.Read() Then
   Pacco = RDR("MaxPacco") + 1
Else
   Pacco = 1
End If

Il metodo Read legge il record successivo disponibile e restituisce True se vi sono dati da leggere; quando restituisce False, la fine del flusso è stata raggiunta e quindi è possibile terminare il ciclo.

Ciao!