求助如何删除选中Listview表格中数据库记录 附源码参考


[ 本帖最后由 wfiihicyga 于 2011-7-10 19:09 编辑 ]

提供以下方法，试试吧！
先增加定义：
Dim SQL1
Dim newcnn As New Connection
之后在
newcnn.Open cnstr 'cnstr为数据库连接符

For I = ListView1.ListItems.Count To 1 Step -1
   If ListView1.ListItems(I).Checked = True Then
        
   SQL1 = "DELETE 表名 WHERE （与ListView1.AddItem相对应的字段名） ='" & ListView1.List(I) & "'"
   newcnn.Execute SQL1
   
      ListView1.ListItems.Remove (I)
   End If
Next I
如果不行再继续研究！