Salve alla lista.. sono alle prese con il problema in oggetto
vorrei fare una ricerca una tabella, riga per riga , e con il dato ottenuto effettuare altre azioni
'VERIFICA_QUANTITA_IN_MAGAZZINO
Dim CODICE_A_BARRA_PER_CONFRONTO_QUANTITA_IN_ARTICOLO As String = Nothing
' qui ricerco i codici che mi interessano e li associo alla variabile CODICE_A_BARRA_PER_CONFRONTO_QUANTITA_IN_ARTICOLO
Using cmd1 As New SqlCommand("SELECT * FROM ORDINI_DA_WEB " _
& " WHERE VERIFICA_CODICE_A_BARRE_UGUALE = @VERIFICA_CODICE_A_BARRE_UGUALE" , CONNESSIONE_AL_DB)
cmd1.Parameters.Add("@VERIFICA_CODICE_A_BARRE_UGUALE", SqlDbType.NVarChar).Value = "SI"
Dim DR As SqlDataReader = cmd1.ExecuteReader
If DR.HasRows Then
Do While DR.Read
CODICE_A_BARRA_PER_CONFRONTO_QUANTITA_IN_ARTICOLO = DR("BARCODE").ToString
' qui con il codice a barre ottenuto vorrei fare una nuova select
'-------------------------------------------------------------------------------
Using cmd2 As New SqlCommand("SELECT * FROM ARTICOLI" _
& " WHERE CODICE_A_BARRE = @CODICE_A_BARRE", CONNESSIONE_AL_DB)
cmd2.Parameters.Add("@CODICE_A_BARRE", SqlDbType.NVarChar).Value = CODICE_A_BARRA_PER_CONFRONTO_QUANTITA_IN_ARTICOLO
Dim DR1 As SqlDataReader = cmd2.ExecuteReader
Do While DR1.Read
MessageBox.Show((DR("QUANTITA").ToString))
Loop
DR1.Close()
End Using
'--------------------------------------------------------------------------------------
Loop
DR.Close()
End If
End Using
ma mi da l'errore Messaggio=A Command è già associato un DataReader aperto, che deve essere chiuso.... e ha ragione
Ma se chiudo DataReader non è possibile più l'azione di ricerca di altri codici.
Help... come ne vengo fuori ?
Grazie Peppe Santagata