Buon giorno, leggendo un po’ qui e un po’ là mi sto facendo una cultura su i vari SELECT però entro in crisi con il SELECT UNION, i codici li scrivo correttamente, però alla visione della tabella come nella foto qui sotto i dati li sovrappone e li raddoppia
Il codice incriminato è il seguente
ds = New DataSet
da = New OleDbDataAdapter("SELECT ID_InfoClienti,Cognome,Nome, Via,Localita FROM tblClienti UNION SELECT Data_Inizio_Prestazioni,Ore,Data_Fine_Prestazioni ORDER BY Cognome,Nome", Archivio)
da.Fill(ds, "tblClienti’,’tblPresnotazioni ")
'Contenuto griglia
lvMostra.Items.Clear()
If ds.Tables("tblClienti’,’tblPresnotazioni ").Rows.Count > 0 Then
For i As Integer = 0 To ds.Tables("tblClienti’,’tblPresnotazioni ").Rows.Count - 1
With lvMostra.Items.Add(ds.Tables("tblClienti’,’tblPresnotazioni").Rows(i).Item(0).ToString)
.SubItems.Add(ds.Tables("tblClienti’,’tblPresnotazioni ").Rows(i).Item(2).ToString)
.SubItems.Add(ds.Tables("tblClienti’,’tblPresnotazioni ").Rows(i).Item(3).ToString)
.SubItems.Add(ds.Tables("tblClienti’,’tblPresnotazioni ").Rows(i).Item(4).ToString)
.SubItems.Add(ds.Tables("tblClienti’,’tblPresnotazioni ").Rows(i).Item(5).ToString)
.SubItems.Add(ds.Tables("tblClienti’,’tblPresnotazioni ").Rows(i).Item(2).ToString)
.SubItems.Add(ds.Tables("tblClienti’,’tblPresnotazioni ").Rows(i).Item(3).ToString)
.SubItems.Add(ds.Tables("tblClienti’,’tblPresnotazioni ").Rows(i).Item(4).ToString)
End With
Next
End If
Quindi il SELECT comunica correttamente con la griglia – DataBase, quello che non è corretto è il seguito , mi puoi aiutare per favore?
Per ovviare al problema che ho scritto in precedenza,l'ho agirato costruendo una Query fisica intervenendo direttamente nel DataBase Access, non mi piace,mi sembra troppo riduttivo così, voglio farlo con codice sqlFill. Grazie di nuovo
Il codice incriminato è il seguente
ds = New DataSet
da = New OleDbDataAdapter("SELECT ID_InfoClienti,Cognome,Nome, Via,Localita FROM tblClienti UNION SELECT Data_Inizio_Prestazioni,Ore,Data_Fine_Prestazioni ORDER BY Cognome,Nome", Archivio)
da.Fill(ds, "tblClienti’,’tblPresnotazioni ")
'Contenuto griglia
lvMostra.Items.Clear()
If ds.Tables("tblClienti’,’tblPresnotazioni ").Rows.Count > 0 Then
For i As Integer = 0 To ds.Tables("tblClienti’,’tblPresnotazioni ").Rows.Count - 1
With lvMostra.Items.Add(ds.Tables("tblClienti’,’tblPresnotazioni").Rows(i).Item(0).ToString)
.SubItems.Add(ds.Tables("tblClienti’,’tblPresnotazioni ").Rows(i).Item(2).ToString)
.SubItems.Add(ds.Tables("tblClienti’,’tblPresnotazioni ").Rows(i).Item(3).ToString)
.SubItems.Add(ds.Tables("tblClienti’,’tblPresnotazioni ").Rows(i).Item(4).ToString)
.SubItems.Add(ds.Tables("tblClienti’,’tblPresnotazioni ").Rows(i).Item(5).ToString)
.SubItems.Add(ds.Tables("tblClienti’,’tblPresnotazioni ").Rows(i).Item(2).ToString)
.SubItems.Add(ds.Tables("tblClienti’,’tblPresnotazioni ").Rows(i).Item(3).ToString)
.SubItems.Add(ds.Tables("tblClienti’,’tblPresnotazioni ").Rows(i).Item(4).ToString)
End With
Next
End If
Quindi il SELECT comunica correttamente con la griglia – DataBase, quello che non è corretto è il seguito , mi puoi aiutare per favore?
Per ovviare al problema che ho scritto in precedenza,l'ho agirato costruendo una Query fisica intervenendo direttamente nel DataBase Access, non mi piace,mi sembra troppo riduttivo così, voglio farlo con codice sqlFill. Grazie di nuovo