cia a tutti.
io carico una listview nel form load così:
codice:
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:

codice:
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