Problema con due DataReader

[spago]

Ah perfetto con due sub separate funziona perfettamente!

Grazie!

[pietro09]

Originariamente inviato da spago
Ah perfetto con due sub separate funziona perfettamente!

Grazie!

Credo che si possa fare pure con una sola procedura :quote:

[spago]

No una sola procedura no, ho già provato e da quell'errore di prima!
Cmq grazie! :metallica

[pietro09]

Originariamente inviato da spago
No una sola procedura no, ho già provato e da quell'errore di prima!
Cmq grazie! :metallica

Prova con questa procedura (una sola). Funziona. Però con due mi sembra più ordinato.

    Private Sub ScansionaProvincieComuni()
        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)
        Dim Comando As New OleDbCommand(StringaSql, Connessione)
        Dim id_provincia As Decimal

        Dim StringaSql1$
        Dim DataReader1 As OleDbDataReader
        Dim Connessione1 As OleDbConnection
        Dim Comando1 As OleDbCommand


        Connessione.Open()

        DataReader = Comando.ExecuteReader()
        Do While (DataReader.Read())
            PrintLn("<u>Provincia: " & DataReader.GetString(1) & "</u>")
            id_provincia = DataReader.GetDecimal(0)

            StringaSql$ = "SELECT NOME_COMUNE FROM COMUNI WHERE ID_PROVINCIA = " & id_provincia & " ORDER BY NOME_COMUNE"
            Connessione1 = New OleDbConnection(Application("connessione_access_prova").ToString)
            Comando1 = New OleDbCommand(StringaSql, Connessione1)
            Connessione1.Open()
            DataReader1 = Comando1.ExecuteReader()
            Do While (DataReader1.Read())
                PrintLn(DataReader1.GetString(0))
            Loop
            PrintLn("")

            DataReader1.Close()
            Connessione1.Close()
            Comando1 = Nothing
            Connessione1 = Nothing
        Loop

        DataReader.Close()
        Connessione.Close()

    End Sub