对象打开与关闭问题!!!!!达人来看看
以下是对修改后记录的保存操作,但是执行的时候总是提示“对象关闭时,不允许操作!”,然后错误提示指向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