VB6向Access录入数据时，提示对象关闭，怎么回事吗？

hanxing1983

麻烦老师们帮忙看看，我设计了一个VB6的界面，通过它向access数据库录入信息。但现在运行到AddNew时，系统提醒说对象关闭时，不允许操作。但我的VOC.accdb是已经成功打开的，因为我看文件夹中已经多了一个VOC.1accdb。找了半天都没找到原因，请老师指点。
Private Sub Command4_Click()
Dim conn As ADODB.Connection
Dim rst As ADODB.RecordsetSet conn = New ADODB.Connection
With conn
    .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & App.Path & "\VOC.accdb;"
    .Open
End WithSet rst = New ADODB.Recordset
With rst
    .ActiveConnection = conn
End With
                                      
With rst
   .AddNew  （到这里系统就报错了）
            rst.Fields(1) = VBA.Environ("username")
            rst.Fields(2) = Date & ", " & Time
            rst.Fields(3) = Combo1.Text
            rst.Fields(4) = Text1.Text
            rst.Fields(9) = Text2.Text
            rst.Fields(11) = Text3.Text
            rst.Fields(13) = Text4.TextDim z As Integer
For z = 0 To 2
If Option1(z) <> 0 Then rst.Fields(5) = Option1(z).Caption
If Option6(z) <> 0 Then rst.Fields(8) = Option6(z).CaptionNextFor z = 0 To 3
If Option2(z) <> 0 Then rst.Fields(6) = Option2(z).Caption
If Option3(z) <> 0 Then rst.Fields(7) = Option3(z).Caption
If Option7(z) <> 0 Then rst.Fields(12) = Option7(z).Caption
NextFor z = 0 To 1
If Option4(z) <> 0 Then rst.Fields(10) = Option4(z).Caption
Next
    .Update
End With
rst.Close
conn.Close
Set rst = Nothing
Set conn = NothingEnd Sub

NadrsSaber

最好, 搞个附件, 来看看

hanxing1983

问题解决了，我把：
With rst
     .ActiveConnection = conn
End With

改成：
With rst
    .ActiveConnection = conn
    .Open "feedback", LockType:=adLockOptimistic
End With

测试OK，应该是之前只打开了数据库，但没有指定具体的存储路径，所以报错。附上附件。
不过还是不太清楚这个LockType:=adLockOptimistic有什么意义。有高人指点一下吗？

NadrsSaber

Recordset.open
CursorType参数：指定打开Recordset时使用的游标
0(adOpenForwardOnly): 默认，前向游标。只能在Recordset的记录中向前移动，但速度最快。
1(adOpenKeyset):键集游标，可以在Recordset中任意移动，其他用户所做的记录修改可见，但其他用户添加的记录不可见，删除的记录字段值不能被使用。
2(adOpenDynamic):动态游标，可以在Recordset中任意移动，其他用户增、删、改的记录都可见，但速度最慢。
3(adOpenStatic):静态游标，可以在Recordset中任意移动，其他用户增、删、改的记录都不可见。
LockType参数：指定打开记录集时应该使用的锁定类型，它的取值为
0(adLockReadOnly):recordset的记录为只读
1(adLockPessimistic):只要保持Recordset为打开,别人就无法编辑该记录集中的记录.
2(adLockOptimistic):当update recordset中的记录时,将记录加锁
3(adLockBatchOptimistic):以批模式时更新记录时加锁

hanxing1983

谢谢您的指点。
发现一个新的问题，这程序在我的电脑上运行是没问题的，但其他人电脑运行时报错，“VB6 run time error 3706,未找到提供程序，该程序可能未正确安装”
这是什么原因吗？这里面的所有插件都是用的默认插件，没有第三方控件。
而且是最后提交时才报错，是不是我的数据库地址写得不对？
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & App.Path & "\VOC.accdb;"

hanxing1983

NadrsSaber 发表于 2020-2-13 14:00
Recordset.open
CursorType参数：指定打开Recordset时使用的游标
0(adOpenForwardOnly): 默认，前向游标 ...

谢谢您的指点。
发现一个新的问题，这程序在我的电脑上运行是没问题的，但其他人电脑运行时报错，“VB6 run time error 3706,未找到提供程序，该程序可能未正确安装”
其他人电脑没有安装VB6，但我所使用的的所有控件都是用的默认插件，没有第三方控件。
而且是最后提交时才报错，是不是我的数据库地址写得不对？
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & App.Path & "\VOC.accdb;"

hanxing1983

求助啊，怎么会出这种莫名奇妙的问题？？
程序在我的电脑上运行是没问题的，但其他人电脑运行时报错，“VB6 run time error 3706,未找到提供程序，该程序可能未正确安装”
其他人电脑没有安装VB6，但我所使用的的所有控件都是用的默认插件，没有第三方控件。
而且是最后提交时才报错，是不是我的数据库地址写得不对？
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & App.Path & "\VOC.accdb;"