请大家帮助一下 把窗体中ListView里的数据直接保存到ACCESS里

爱好者369

说明在求助文件的 Excel  表sheet8里  请求高手能出手帮助

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

humengqiang

我没有用过listview，我一般用的是列表框，但是原理是一样的，下面这段代码是我用的把列表框数据录入access的表的，你可以修改下就用。
Sub 录入()
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim sq2 As String
    cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\chxx.mdb"
    sq2 = "select * from 2010参合信息"
    rst.Open sq2, cnn, adOpenKeyset, adLockOptimistic
    for i=1 to rst.RecordCount
       .AddNew
       .Fields("个人编号") = ListBox2.List(i-1, 0)
       .Fields("医疗证号码") = ListBox2.List(i-1, 1)
       .Fields("姓名") = ListBox2.List(i-1, 2)
       .Fields("性别") = ListBox2.List(i-1, 3
       .Fields("身份证号") = ListBox2.List(i-1, 4)
       .Fields("与户主关系") = ListBox2.List(i-1, 5
      .Fields("家庭住址") = ListBox2.List(i-1, 6)
      .Update
    end with
    next i
    rst.Close
    cnn.Close
    Set rst = Nothing
    Set cnn = Nothing
    MsgBox "录入成功！"
End Sub

[ 本帖最后由 humengqiang 于 2010-5-3 13:11 编辑 ]

humengqiang

不用，我也是在home中学的，home中就是相互学习。

爱好者369

谢谢楼上的热心帮助  我已经自己解决了

hqlin65

学习了.......