Salve ho un piccolo problema, ovvero vorrei fare in modo che se in una colonna di un documento access aperto tramite una listview in vb2015, mi venga impedito di aggiungere o modificare se nella colonna è presente un altro elemento che possiede lo stesso nome:
Button1.Text = "Modifica" Then
Cn.Open()
If TextBox1.Text = "" Then
MsgBox("Il Codice Catastale ed il Comune devono essere necessariamente inseriti", vbInformation, "Valori necessari")
Cn.Close()
Exit Sub
End If
If TextBox2.Text = "" Then
MsgBox("Il Codice Catastale ed il Comune devono essere necessariamente inseriti", vbInformation, "Valori necessari")
Cn.Close()
Exit Sub
End If
Form1.ListView1.FocusedItem.SubItems(0).Text = TextBox1.Text
Form1.ListView1.FocusedItem.SubItems(1).Text = TextBox2.Text
Form1.ListView1.FocusedItem.SubItems(2).Text = TextBox3.Text
Form1.ListView1.FocusedItem.SubItems(3).Text = TextBox4.Text
Form1.ListView1.FocusedItem.SubItems(4).Text = TextBox5.Text
Form1.ListView1.FocusedItem.SubItems(5).Text = TextBox6.Text
Form1.ListView1.FocusedItem.SubItems(6).Text = TextBox7.Text
Form1.ListView1.FocusedItem.SubItems(7).Text = TextBox8.Text
Form1.ListView1.FocusedItem.SubItems(8).Text = TextBox9.Text
Qui dovrei mettere un codice che mi permetta questo controllo e nel caso ci fosse nella colonna "Codice Catastale" un doppione me lo impedisca.
sql = "UPDATE ComuniItaliani SET [Codice Catastale] ='"& TextBox1.Text & "', Comune = '"& TextBox2.Text & "', Regione = '"& TextBox3.Text & "', Prefisso = '"& TextBox4.Text & "', Provincia = '"& TextBox5.Text & "', Nazione = '"& TextBox6.Text & "',Cap = '"& TextBox7.Text & "', [Cap Zonale massimale] = '"& TextBox8.Text & "', Cab = '"& TextBox9.Text & "'"&
"WHERE [Codice Catastale] ='"& newtext & "'"
cmd = New OleDbCommand(sql, Cn)
dr = cmd.ExecuteReader
Cn.Close()
Come potrei fare? Questo devo farlo anche perchè nel caso in cui ci fosse un doppione quando modifico la colonna mi verrebbero modificati tutti i recordset con la stesso valore nella colonna "Codice Catastale", rendendomeli uguali.