Question

vb 从listview怎样获取所有内容并保存到数据库中

dim s as string
For ltp = 1 To ListView1.ListItems.Count
strData = ListView1.ListItems.Item(ltp).Text '这一列的值已经取到
Next

Answer 1

(给你参考)
rs.Open SQL, conn, adOpenStatic, adLockOptimistic
For i = 1 To ListView1.ListItems.Count
rs.AddNew
rs.Fields("数据库的列名") = ListView1.ListItems(i).SubItems(1)
'注释:ListItems(i).SubItems(1) 当i=1时,取第一行第2列的值.
rs.Fields("数据库的列名") = ListView1.ListItems(i).SubItems(2)
rs.Fields("数据库的列名") = ListView1.ListItems(i).SubItems(3)

'**********(要获取多少数据这中间自己加)******

rs.Fields("数据库的列名") = ListView1.ListItems(i).SubItems(9)
rs.Fields("数据库的列名") = ListView1.ListItems(i).SubItems(10)
rs.Update
Next i
***********应该很清楚了吧,还有问题联系我***********

追问

我已经在listview中有数据了，只是提出来，然后对应的存到库里。你给我的例子能说明一下吗？还有那个SQL应该是什么 select * from data? 还是什么

追答

SQL="Select * from (你的表名)"