Scusate ma riprendo dopo moltissimo tempo a programmare.
vorrei riempire una listview con i record estrapolati con una select da un db di clienti.Quando pero' il cognome ed il nome di due clienti sono uguali ho questo errore "errore di run-time 35602,la chiave non è univoca nell'insieme. per maggiore utilità allego il codice:
" Private Sub cmdcerca_Click()
percorso = App.Path & "\gama.mdb"
cog = txtcognome.Text
nom = txtnome.Text
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& percorso
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
rs.Open "SELECT * FROM clienti where COGNOME like'"& cog & "' and NOME like'"& nom & "' ;", cn, adOpenKeyset, adLockOptimistic
ListView1.ColumnHeaders.Add , , "COGNOME"
ListView1.ColumnHeaders.Add , , "NOME"
ListView1.ColumnHeaders.Add , , "CODICE FISCALE"
Dim itxm As ListItem
Set itxm = ListView1.ListItems.Add(1, "COGNOME", rs("cognome"))
Set itxm = ListView1.ListItems.Add(2, "NOME", rs("nome"))
Set itxm = ListView1.ListItems.Add(3, "CODICE FISCALE", rs("CODICE FISCALE"))
itxm.SubItems(1) = rs("nome")
itxm.SubItems(2) = rs("CODICE FISCALE")
rs.MoveNext
Set cn = Nothing
Set rs = Nothing
End Sub