Problema con due DataReader

[spago]

Ciao ragazzi io ho una sub dove all'interno ci faccio due query, vi mostro subito il codice:

Private sub risorseCommessa()
	tmp = ""
	
	sql = "SELECT id_commesseRisorse, .... FROM tabella ...."
    
    Dim cmd AS New OleDbCommand(SQL, conn)
	Dim rs AS OleDbDataReader
								
	rs = cmd.ExecuteReader()
			
	do while rs.Read()		
		tmp = tmp & "<tr>"
		tmp = tmp & "<td>" & rs("codRisorsa") & "</td>"
		tmp = tmp & "<td>" & rs("codRuolo") & "</td>"
		tmp = tmp & "<td>" & formatDataITA(rs("dataInizio")) & "</td>"
		tmp = tmp & "<td>" & formatDataITA(rs("dataFine")) & "</td>"
		tmp = tmp & "<td>" & daOreAgiorni(rs("orePreviste")) & "</td>"
		
		sql = "SELECT ...." _
		      & " FROM DETTAGLIORISORSA" _
			  & " WHERE id_commesseRisorse=" & rs("commesseRisorse")
		
		Dim cmd1 As New OleDbCommand(sql, conn)		
		Dim rs1 AS OleDbDataReader									
		rs1 = cmd1.ExecuteReader()
		
		rs1.Close()
		
		tmp = tmp & "</tr>"
	loop	
				
	rs.Close()	
	cmd = Nothing
	
	commesseRisorse.Text = tmp			
end sub

Praticamente avendo un DataReader all'interno del ciclo mi da errore dicendomi:

There is already an open DataReader associated with this Connection which must be closed first.

Come posso fare per risolvere questo problema ???

[Umanista]

Purtroppo non puoi aprire un secondo datareader all'interno del ciclo del primo. O recuperi tutti i dati di cui hai bisogno con una stringa SQL più articolata, oppure salvi i dati in un dataSet e poi li disponi come preferisci.

[spago]

Ah capisco!

Cmq mentre aspettavo avevo già fatto la query più articolata, però non capisco perchè non è possibile, a questo punto mi convinco che Asp.Net è proprio un linguaggio di m..... :gren: è troppo ridicolo che non si possano fare queste cose!

[Umanista]

Non sta a me difendere asp.net, tuttavia considera che il dataReader è l'oggetto più elementare per la lettura dei dati, ed assomiglia al Recordset dell'asp classico in modalità forwardOnly.
Per operazioni più complesse, come ti dicevo, hai a disposizione DataSet, e ci fai praticamente tutto.
Ciao

[spago]

E come faccio a fare un ciclo con il dataset?

[Umanista]

Usi o un repeater, o un datalist o un datagrid.

[spago]

Ah beh per quello si ho capito che devo utilizzare una datagrid ecc... ma per fare degli if all'interno di una datagrid o repeater ??? :gren: :gren: :gren:

[Legnetto]

Dal tuo codice vedo che hai la connessione conn, ne dichiari un'altra come conn1 e la usi con il secondo datareader.
Altrimenti usi APPEND e unisci le due query e popoli il secondo Reader come se fosse un Rs.
Ciao
Legnetto

[spago]

E APPEND dove lo devo scrivere ???

[pietro09]

Ti mando un esempio di due cicli con 2 datareader.
In pratica il primo ciclo fa la scansione delle provincie e, all'interno del ciclo, un ciclo annidato che fa la scansione dei comuni per la provincia appena scritta.
Nel mio codice sostituisci PrintLn con Response.write (xxx & "
")
e commenta This = Me

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        This = Me
        ScansionaProvince()

    End Sub

    Private Sub ScansionaProvince()
        Dim StringaSql$ = "SELECT ID_PROVINCIA, NOME FROM PROVINCE ORDER BY NOME"
        Dim DataReader As OleDbDataReader
        Dim Connessione As New OleDbConnection(Application("connessione_access_prova").ToString)
        Connessione.Open()
        Dim Comando As New OleDbCommand(StringaSql, Connessione)
        DataReader = Comando.ExecuteReader(CommandBehavior.CloseConnection)
        Do While (DataReader.Read())
            PrintLn("<u>Provincia: " & DataReader.GetString(1) & "</u>")
            ScansionaComuniPerPrivincia(DataReader.GetDecimal(0))
        Loop

        DataReader.Close()
        Connessione.Close()

    End Sub
    Private Sub ScansionaComuniPerPrivincia(ByVal id_provincia As Decimal)
        Dim StringaSql$ = "SELECT NOME_COMUNE FROM COMUNI WHERE ID_PROVINCIA = " & id_provincia & " ORDER BY NOME_COMUNE"
        Dim DataReader As OleDbDataReader
        Dim Connessione As New OleDbConnection(Application("connessione_access_prova").ToString)
        Connessione.Open()
        Dim Comando As New OleDbCommand(StringaSql, Connessione)
        DataReader = Comando.ExecuteReader(CommandBehavior.CloseConnection)
        Do While (DataReader.Read())
            PrintLn(DataReader.GetString(0))
        Loop
        PrintLn("")

        DataReader.Close()
        Connessione.Close()

    End Sub