con.Open Constr rs.Open "Select Name,Phoneno,Age from Test where SN =" & addEdit.Text, con For a = 1 To ListView1.ListItems.Count If ListView1.ListItems.Item(a).Checked = True Then addEdit.Text = rs("SN") sql = "delete from Test where SN=" & addEdit.Text addEdit.Text = "SN" NameText.Text = "" PhText.Text = "" AgeText.Text = "" NameText.SetFocus con.Execute (sql) End If rs.MoveNextNext con.Close
Loading

Nitin SontakkePosted Feb 3, 2017, 2:13 AM
Jitendra ShekhawatPosted Feb 3, 2017, 7:01 AM
Amit GuptaPosted Feb 3, 2017, 2:03 AM