DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

Deleting listview checked data using delete button

•

Join Date: Dec 2008

Posts: 292

Reputation: firoz.raj is an unknown quantity at this point

Solved Threads: 1

firoz.raj

Offline

Posting Whiz in Training

Deleting listview checked data using delete button

Feb 16th, 2009

Can anyone tell me how should i delete listview checked data using
delete button. right now i got error object variable or with block
variable not set.

Help with Code Tags

(Toggle Plain Text)

Private Sub Command3_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim x As Integer
For x = ListView1.ListItems.Count To 1 Step -1
If ListView1.ListItems(x).Checked = True Then
   con.BeginTranserror.zip
   con.Execute "DELETE from Supplier where Supplier_Name='" & ListView1.ListItems(x).SubItems(1) & "'"
   ListView1.ListItems.Remove x
   con.CommitTrans
   End If
   Next
   con.Close
   Set con = Nothing
  End Sub

•

Join Date: Feb 2008

Posts: 509

Reputation: selvaganapathy is an unknown quantity at this point

Solved Threads: 88

selvaganapathy selvaganapathy is offline

Offline

Posting Pro

Re: Deleting listview checked data using delete button

Feb 19th, 2009

Hi, Try

For Each Loop instead of For Loop

KSG

•

Join Date: Apr 2007

Posts: 1,101

Reputation: cguan_77 has a little shameless behaviour in the past

Solved Threads: 91

cguan_77

Online

Veteran Poster

Re: Deleting listview checked data using delete button

Feb 20th, 2009

•

Originally Posted by firoz.raj

Can anyone tell me how should i delete listview checked data using
delete button. right now i got error object variable or with block
variable not set.
Help with Code Tags

(Toggle Plain Text)
Private Sub Command3_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim x As Integer

con.BeginTrans
For x = ListView1.ListItems.Count To 1 Step -1
If ListView1.ListItems(x).Checked = True Then
      con.Execute "DELETE from Supplier where Supplier_Name='" & ListView1.ListItems(x).SubItems(1) & "'"
   ListView1.ListItems.Remove x
   con.CommitTrans
   End If
   Next
   con.Close
   Set con = Nothing
  End Sub
Private Sub Command3_Click() Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Dim x As Integer con.BeginTrans For x = ListView1.ListItems.Count To 1 Step -1 If ListView1.ListItems(x).Checked = True Then con.Execute "DELETE from Supplier where Supplier_Name='" & ListView1.ListItems(x).SubItems(1) & "'" ListView1.ListItems.Remove x con.CommitTrans End If Next con.Close Set con = Nothing End Sub

i just re-arrange your code i put the con.begintrans before the for loop.. check if it will help