Salve a tutti.
Avrei la necessita di eseguire un confronto di tutti i valori di un campo di una tabella con tutti quelli di un'altra.
Ho provato a scrivere questo codice:
codice:
Dim cn As OleDbConnection
Dim cmd_inca, cmd_righe As OleDbCommand
Dim dr_inca, dr_righe As OleDbDataReader
Dim x As String
Dim i, i2 As Integer
cn = New OleDbConnection(stringaconn)
If cn.State = ConnectionState.Closed Then
cn.Open()
End If
cmd_t1 = New OleDbCommand("SELECT * FROM tab1", cn)
cmd_t2 = New OleDbCommand("SELECT * FROM tab2", cn)
dr_t1 = cmd_inca.ExecuteReader
dr_t2 = cmd_righe.ExecuteReader
While dr_t1.Read()
i = i + 1
While dr_t2.Read()
i2 = i2 + 1
If dr_t1("campo1") = dr_t2(campo2) Then
' ... istruzioni
End If
End While
End While
ma di fatti questo codice svolge un solo ciclo (ovvero quello interno) uscendo alla fine della lettura di tutti i record della tabella dr_t2.
Non capisco come risolvere.
Grazie