对象打开与关闭问题！！！！！达人来看看

[mybelta2]

以下是对修改后记录的保存操作，但是执行的时候总是提示“对象关闭时，不允许操作！”，然后错误提示指向mst.close这一行，若把这一行注释掉再次执行，没有错误提示，但是实际上并没有真正修改到记录，是怎么回事？？？？？？？？到底该如何修改？？


Option Explicit
Dim rs1 As New ADODB.Recordset
Public photoFilename As String
Dim mst As New ADODB.Stream

Private Sub Command1_Click()
'保存修改
rs1.Open "select * from tb_gongylc where huoh='" + Text1(1).text + "'", cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 Then
rs1.Fields("xuant") = Text1(0)
rs1.Fields("huoh") = Text1(1)
rs1.Fields("shejs") = Text1(2)
mst.Type = adTypeBinary
mst.Open
If photoFilename <> "" Then mst.LoadFromFile photoFilename
rs1.Fields("tup") = mst.Read
rs1.Update
End If
rs1.Close
mst.Close
End Sub

[mybelta2]

早解决早结帖！

[神马都能聊]

你的cnn连接打开了吗?

[mybelta2]

cnn连接打开了的啊，是在模块中

保存的代码执行都没有问题，就是修改时出现这样的提示，为什么？？？？？？？？

[Simao]

lz 你的mst.Open "..."这省略号里面不应该为空吧!

[嗷嗷叫的老马]

路过.

一定是在其它地方关闭了.

找找看吧.