Cancellazione Record

[sara81it]

cia a tutti.
io carico una listview nel form load così:

inc = 0
ind = 0
Dim entry As String
Dim mItem As ListItem
txtdata.Text = Date
ListView1.Visible = True
Set db = OpenDatabase(App.Path & "\Pizza.mdb")
    sql = "select * from TotaleOrdini"
Set rs = db.OpenRecordset(sql)

   ListView1.ColumnHeaders.Add , , "Nordine", ListView1.Width / 10
   ListView1.ColumnHeaders.Add , , "Ora Presa", ListView1.Width / 10
   ListView1.ColumnHeaders.Add , , "Cliente", ListView1.Width / 4
   ListView1.ColumnHeaders.Add , , "Indirizzo", ListView1.Width / 2.5
   ListView1.ColumnHeaders.Add , , "Telefono", ListView1.Width / 6.5
   ListView1.BorderStyle = ccFixedSingle
   ListView1.View = lvwReport

Do While rs.EOF = False 'Scorro tutta la query
   ind = ind + 1
   If txtdata.Text = (rs!data) Then
     Set mItem = ListView1.ListItems.Add(, , CStr(rs("Id")))
     mItem.ListSubItems.Add , , CStr(rs("Nordine"))  
     mItem.ListSubItems.Add , , CStr(rs("OraPresa"))    
     mItem.ListSubItems.Add , , CStr(rs("Nome"))           
     mItem.ListSubItems.Add , , CStr(rs("Indirizzo"))   
     mItem.ListSubItems.Add , , CStr(rs("Telefono"))
   End If
   rs.MoveNext
Loop
rs.Close
inc = ind

in un pulsante cancella scrivo:

Dim entry As String
Dim mItem As ListItem


Set db = OpenDatabase(App.Path & "\Pizza.mdb")

For inc = 1 To ind
   If ListView1.ListItems.Item(inc).Checked = True Then
     sql = "Delete * from totaleOrdini where NOrdine= " & _
         CLng(ListView1.ListItems.Item(inc).Tag)
     db.Execute (sql)
     sql = "Delete * from OrdCli where Nord = " & _
     CLng(ListView1.ListItems.Item(inc).Tag)
     db.Execute (sql)
   End If
Next inc
ind = 0
inc = 0

ListView1.ColumnHeaders.Clear
ListView1.ListItems.Clear
txtdata.Text = Date
ListView1.Visible = True
Set db = OpenDatabase(App.Path & "\Pizza.mdb")
 sql = "select * from TotaleOrdini"
Set rs = db.OpenRecordset(sql)

   ListView1.ColumnHeaders.Add , , "Id", ListView1.Width / 10
   ListView1.ColumnHeaders.Add , , "Nordine", ListView1.Width / 10
   ListView1.ColumnHeaders.Add , , "Ora Presa", ListView1.Width / 10
   ListView1.ColumnHeaders.Add , , "Cliente", ListView1.Width / 4
   ListView1.ColumnHeaders.Add , , "Indirizzo", ListView1.Width / 2.5
   ListView1.ColumnHeaders.Add , , "Telefono", ListView1.Width / 6.5
   ListView1.BorderStyle = ccFixedSingle
   ListView1.View = lvwReport

Do While rs.EOF = False 'Scorro tutta la query
  ind = ind + 1
  If txtdata.Text = (rs!data) Then
   Set mItem = ListView1.ListItems.Add(, , CStr(rs("Nordine")))       
   mItem.ListSubItems.Add , , CStr(rs("OraPresa"))    
   mItem.ListSubItems.Add , , CStr(rs("Nome"))        
   mItem.ListSubItems.Add , , CStr(rs("Indirizzo"))   
   mItem.ListSubItems.Add , , CStr(rs("Telefono"))
  End If
  rs.MoveNext
Loop
rs.Close
inc = ind

il problema è che quando va per fare la cancellazione si ferma sul primo Sql e mi da errore 13: Tipo non corrispondnte.

Qualcuno può aiutarmi?


Grazie Mille
Sara

[ladyBlu]

quindi il problema è qui:

For inc = 1 To ind
  If ListView1.ListItems.Item(inc).Checked = True Then
    sql = "Delete * from totaleOrdini where NOrdine = " & _
                   CLng(ListView1.ListItems.Item(inc).Tag)
    db.Execute (sql)
    sql = "Delete * from OrdCli where Nord = " & _
                   CLng(ListView1.ListItems.Item(inc).Tag)
    db.Execute (sql)
   End If
Next inc

nel codice che hai postato, prima del ciclo, prima di tutto non vedo il settaggio della variabile ind. :master:
Sei ovviamente sicura che nel Tag sia memorizzato il numero che ti serve vero?

[sara81it]

LadyBlu che significa il settaggio???

Tag mi risporta a Blank così come ListView1.ListItems.Item , mentre in inc vedo il numero relativo alla riga!!

help please.. arriva il cliente e devo consegnare!!

[sara81it]

Dim ind As Integer
Dim inc As Integer

sono dichiarate in Option Explicit!

[ladyBlu]

Se il codice è completo, quando carichi il campo NOrdine nella listview non lo scrivi nel tag ma in un SubItem, guarda:

...
mItem.ListSubItems.Add , , CStr(rs("Nordine"))
...

quindi devi leggere il subitem e non il tag per eseguire la delete.

[sara81it]

Set db = OpenDatabase(App.Path & "\Pizza.mdb")
    sql = "select * from TotaleOrdini"
Set rs = db.OpenRecordset(sql)

   ListView1.ColumnHeaders.Add , , "Nordine", ListView1.Width / 8
   ListView1.ColumnHeaders.Add , , "Ora Presa", ListView1.Width / 7.5
   ListView1.ColumnHeaders.Add , , "Cliente", ListView1.Width / 6
   ListView1.ColumnHeaders.Add , , "Indirizzo", ListView1.Width / 3
   ListView1.ColumnHeaders.Add , , "Telefono", ListView1.Width / 6.5
   ListView1.BorderStyle = ccFixedSingle
   ListView1.View = lvwReport

Do While rs.EOF = False 
   ind = ind + 1
If txtdata.Text = (rs!data) Then
  Set mItem = ListView1.ListItems.Add(, , CStr(rs("NOrdine")))      
mItem.ListSubItems.Add , , CStr(rs("OraPresa"))       'inserisco la prima subcolonna
   mItem.ListSubItems.Add , , CStr(rs("Nome"))               'inserisco anche la seconda
        mItem.ListSubItems.Add , , CStr(rs("Indirizzo"))               'inserisco anche la seconda
   mItem.ListSubItems.Add , , CStr(rs("Telefono"))
ListView1.ListItems(ind).Tag = rs("Nordine")
   End If
   rs.MoveNext
Loop
rs.close

ora mi si blocca sul db.Execute(sql) dell'istruzione di cancellazione.

Il db ha come campi :
Id
NOrdine
Nome
etc...

errore 3464: Tipo dati non corrispondente nell'espressione del criterio.


ora vedo che mi legge il dato correttamente però!!

[sara81it]

ho risolto portando il valore di clng in una variabile.

ho fatto la delete utilizzando quella variabile!
grazie mille a tutti e due!!

Buona giornata!

[ladyBlu]

prova a scrivere diversamente il caricamento nel tag del campo NOrdine:

Do While rs.EOF = False 
   ind = ind + 1
   If txtdata.Text = (rs!data) Then
     Set mItem = ListView1.ListItems.Add(,,CStr(rs("NOrdine")))      
     mItem.ListSubItems.Add , , CStr(rs("OraPresa")) 
     mItem.ListSubItems.Add , , CStr(rs"Nome"))
     mItem.ListSubItems.Add , , CStr(rs("Indirizzo")) 
     mItem.ListSubItems.Add , , CStr(rs("Telefono"))
     mItem.Tag = rs("Nordine")
   End If
   rs.MoveNext
Loop