[vb2012] IndexOutofRangeException

[giofriscia]

Salve,
ho un problema:
IndexOutofRangeExxeption non è stata gestita
Indice oltre i limiti della matrice.
Con vb 2012 e un db fatto in access chiamato emp
Devo effettuare la lettura per la chiave "anno" di n_record formati inizialmente da due campi (anno; popolazione).
Il codice scritto funziona finchè ho la necessità di un terzo campo (in realtà arriveranno ad 13 campi in totale.)

A questo punto modifico:

sqlStr = "insert into info values(" & txtEid.Text & ", " & txtEname.Text & ")"

a

sqlStr = "insert into info values(" & txtEid.Text & ", " & txtEname.Text & ", " & txtprova.Text & ")"

e modifico

dr = cmd.ExecuteReader()
        If dr.HasRows = True Then
            While dr.Read()
                txtEid.Text = dr(0)
                txtEname.Text = dr(1)

a

dr = cmd.ExecuteReader()
        If dr.HasRows = True Then
            While dr.Read()
                txtEid.Text = dr(0)
                txtEname.Text = dr(1)
        txtprova.Text = dr(2)

ECCO IL CODICE:

Public Class Form1
    Dim con As System.Data.OleDb.OleDbConnection
    Dim cmd As System.Data.OleDb.OleDbCommand
    Dim dr As System.Data.OleDb.OleDbDataReader
    Dim sqlStr As String
   
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        con = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\0_2p\emp.accdb")
             con.Open()
        MsgBox("Connessione Riuscita")


        sqlStr = "insert into info values(" & txtEid.Text & ", " & txtEname.Text & ", " & txtprova.Text & ")"
        ' aggiungo il mio terzo campo da leggere e da inserire il dato in txtprova.text


        cmd = New OleDb.OleDbCommand(sqlStr, con)
        cmd.ExecuteNonQuery()
        MsgBox("Record inserito correttamente")
        con.Close()


    End Sub


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim id As Integer


        id = Val(InputBox("Inserire anno di riferimento"))


        con = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\0_2p\emp.accdb")
        con.Open()
        MsgBox("Connessione Riuscita")


        sqlStr = "Select * from info where anno =" & id & ""
        ' la mia tabella si chiama anno


        cmd = New OleDb.OleDbCommand(sqlStr, con)
        dr = cmd.ExecuteReader()
        If dr.HasRows = True Then
            While dr.Read()
                txtEid.Text = dr(0)
                txtEname.Text = dr(1)
                txtprova.Text = dr(2)
                ' il mio errore
            End While
        End If
        
        MsgBox("Record trovato")
        con.Close()
    End Sub
End Class

GRAZIE

[oregon]

Ma in quale linea hai l'errore?

P.S. Usa i tag CODE per il codice altrimenti non si capisce nulla ...

P.P.S. Exception

[giofriscia]

Ciao,
grazie intanto per la dritta sui tag CODE (ma non so abilitarli)
e sul titolo errato.

Cmq l'errore l'ho segnato in grassetto
txtprova.Text = dr(2)
' il mio errore

[giofriscia]

grazie MItaly;
spero che qualcuno può aiutarmi ora visto che l'hai reso più chiaro

[oregon]

Prima di tutto non ho capito se vuoi leggere dei dati (nel qual caso mi aspetterei una SELECT e non una INSERT) oppure non ho capito ...

[giofriscia]

Prima di tutto non ho capito se vuoi leggere dei dati (nel qual caso mi aspetterei una SELECT e non una INSERT) oppure non ho capito ...

sono due bottoni diversi Inserimento verso db e lettura da db.

[oregon]

Ma nella tabella su cui fare la query quali sono i campi?

[optime]

Ciao,
grazie intanto per la dritta sui tag CODE (ma non so abilitarli)
e sul titolo errato.

Cmq l'errore l'ho segnato in grassetto
txtprova.Text = dr(2)
' il mio errore

evidentemente il tuo recordset è di sole due colonne (0 la prima, 1 la seconda). tentando di leggere la terza lo schiavetto dà errore

[oregon]

Infatti ... volevo capire quali e quanti sono i campi restituiti dalla tabella in questione ...

[optime]

visto che esegue questa

sqlStr = "Select * from info where anno =" & id & ""

basta sapere di quante colonne è formata la tabella info