[Visual basic 2008] Ancora su database sql..

[ale09hh]

Perchè il seguente codice non funziona? Non mi da errore ma non fa quello che dovrebbe...

Dim conn As New System.Data.SqlServerCe.SqlCeConnection("Data Source = componenti.sdf; Persist Security Info=False;")
        Dim sqlQ As String = "SELECT pezzo, modello, prezzo, marca FROM temporal WHERE pezzo = 'processore'"
        Dim command As New System.Data.SqlServerCe.SqlCeCommand(sqlQ, conn)
        conn.Open()
        Dim reader As System.Data.SqlServerCe.SqlCeDataReader = command.ExecuteReader()

        While (reader.Read())

            If Label14.Text = " " Then
                MsgBox("Devi scegliere un processore prima di aggiungerlo!", MsgBoxStyle.Critical, "ERRORE!")

            ElseIf IsDBNull((reader(("pezzo")))) Then
                Dim cmd As New System.Data.SqlServerCe.SqlCeCommand
                cmd.CommandText = "INSERT INTO temporal(pezzo, modello, prezzo, marca) VALUES ('processore' , '" & Label15.Text & "' , '" & Label17.Text & "' , '" & Label14.Text & "')"
                conn.Open()
                cmd.Connection = conn
                cmd.ExecuteNonQuery()
                While (reader.Read())
                    ListBox4.Items.Add(UCase((reader("pezzo"))) & " - " & UCase((reader("marca"))) & " " & UCase((reader("modello"))) & " - " & (reader("prezzo")) & "€")
                End While
                conn.Close()

            Else
                MsgBox("Puoi inserire solo un processore per volta!", MsgBoxStyle.Critical, "ERRORE")

            End If

        End While

        reader.Close()
        conn.Close()

[MarcoGG]

Non mi è chiaro quel secondo Reader nidificato nel primo...
Che stai tentando di fare ?

[ale09hh]

Allora se ti ricordi io nel mio programma vorrei mettere una cosa tipo carrello della spesa...

All'inizio ho sperimentato a farlo "normalmente", cioè inserendo direttamente i dati dal form nella list box, ma poi ho incontrato dei problemi più avanti per cui ho deciso di inserire un database temporaneo in cui inserire i dati per metterli in seguito nel listbox...

In particolare,

Dim sqlQ As String = "SELECT pezzo, modello, prezzo, marca FROM temporal WHERE pezzo = 'processore'"
        Dim command As New System.Data.SqlServerCe.SqlCeCommand(sqlQ, conn)
        conn.Open()
        Dim reader As System.Data.SqlServerCe.SqlCeDataReader = command.ExecuteReader()

Qui mi connetto al database per leggere se esiste il campo 'pezzo' nella colonna 'processore', e se non ci sono li inserisce lui e li visualizza nella list box, precisamente qui --->

 ElseIf IsDBNull((reader(("pezzo")))) Then
                Dim cmd As New System.Data.SqlServerCe.SqlCeCommand
                cmd.CommandText = "INSERT INTO temporal(pezzo, modello, prezzo, marca) VALUES ('processore' , '" & Label15.Text & "' , '" & Label17.Text & "' , '" & Label14.Text & "')"
                conn.Open()
                cmd.Connection = conn
                cmd.ExecuteNonQuery()
                While (reader.Read())
                    ListBox4.Items.Add(UCase((reader("pezzo"))) & " - " & UCase((reader("marca"))) & " " & UCase((reader("modello"))) & " - " & (reader("prezzo")) & "€")
                End While
                conn.Close()

gli altri due if controllano:
1- se l'utente ha selezionato il processore prima di inserirlo nel listbox
2- se l'utente ha già inserito un processore

[MarcoGG]

Va beh, non ho capito esattamente cosa tu voglia fare, comunque fare 2 cicli while sullo stesso reader ( il Reader che usi dentro è lo stesso che usi fuori, perchè vedo che ne hai dichiarato uno solo ) non può andare.

Quando fai Reader.Read() il reader è partito, è come un cursore, poi gli fai fare ancora .Read() all'interno... E' logico che faccia pasticci, anzi mi sorprende un po' che non ti si pianti tutto.

Se vuoi usare un DataReader interno prova ad istanziarne uno nuovo ! E occhio ai nomi...

[ale09hh]

E' un pò difficile da spiegare e aggiungi che non sono un mostro di eloquenza... va be provero in qualche altro modo..