vb listview删除选中行数据库中数据!

qiuming1 2010-07-01 01:11:35
sql数据库
不仅限于删除listview选中行内容...
包括选中行内容所在数据库中数据...
...全文
747 13 打赏 收藏 转发到动态 举报
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
panyong 2010-07-01
  • 打赏
  • 举报
回复
分不重要 能帮到就行 互相学习
qiuming1 2010-07-01
  • 打赏
  • 举报
回复
10楼的慢了点...分少点了...
qiuming1 2010-07-01
  • 打赏
  • 举报
回复
谢了 ok了!
panyong 2010-07-01
  • 打赏
  • 举报
回复
Dim cn As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim sq1 As String

If MsgBox("是否确认删除数据吗?", vbYesNo + vbExclamation, "删除数据") = vbNo Then Exit Sub
For i = ListView1.ListItems.Count To 1 Step -1
If ListView1.ListItems(i).Checked = True(复选框勾选为TRUE的) Then

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\DATEBASE\数据库.mdb;User ID=; Jet OLEDB:database Password = 密码"
sq1 = "Delete from 表 Where ID=" & ListView1.ListItems(i).SubItems(读出ID的那个列)
cn.Execute (sq1)
cn.Close
Set cn = Nothing
ListView1.ListItems.Remove (i)
End If
Next i
plm310 2010-07-01
  • 打赏
  • 举报
回复
好像是这样子写的!
jhone99 2010-07-01
  • 打赏
  • 举报
回复
如果是第一项,貌似可以省略SubItems,直接ListView1.ListItems(i)
jhone99 2010-07-01
  • 打赏
  • 举报
回复
抱歉,ListView不熟,貌似应该是这个

conn.Execute "delete from my_table where id = '" & ListView1.ListItems(i).SubItems(1) & "' "
id是文本



conn.Execute "delete from my_table where id = " & ListView1.ListItems(i).SubItems(1)
id是数字
qiuming1 2010-07-01
  • 打赏
  • 举报
回复
未找到方法或数据成员...
停留在subitems这里...
jhone99 2010-07-01
  • 打赏
  • 举报
回复
conn.Execute "delete from my_table where id = '" & ListView1.SubItems(1) & "' "
id是文本



conn.Execute "delete from my_table where id = " & ListView1.SubItems(1)
id是数字
qiuming1 2010-07-01
  • 打赏
  • 举报
回复
回一楼...没看懂...
ListView1.GridLines = True
ListView1.ColumnHeaders.Add 1, , "学号", 2000
qiuming1 2010-07-01
  • 打赏
  • 举报
回复
你知道我分不多了...我不是怕你忙吗...
yangxie5201314 2010-07-01
  • 打赏
  • 举报
回复
[Quote=引用楼主 qiuming1 的回复:]
sql数据库
不仅限于删除listview选中行内容...
包括选中行内容所在数据库中数据...
[/Quote]
你分不多了哎,跟我说呗...唉。。
jhone99 2010-07-01
  • 打赏
  • 举报
回复
conn.Execute "delete from my_table where id = '" & Lst.SubItems(1) & "' "
id是文本



conn.Execute "delete from my_table where id = " & Lst.SubItems(1)
id是数字

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧