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

mybelta2 2009-03-14 01:16:11
以下是对修改后记录的保存操作,但是执行的时候总是提示“对象关闭时,不允许操作!”,然后错误提示指向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
...全文
64 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
嗷嗷叫的老马 2009-03-14
  • 打赏
  • 举报
回复
路过.

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

找找看吧.
Simao 2009-03-14
  • 打赏
  • 举报
回复
lz 你的mst.Open "..."这省略号里面不应该为空吧!
mybelta2 2009-03-14
  • 打赏
  • 举报
回复
cnn连接打开了的啊,是在模块中

保存的代码执行都没有问题,就是修改时出现这样的提示,为什么????????
神马都能聊 2009-03-14
  • 打赏
  • 举报
回复
你的cnn连接打开了吗?
mybelta2 2009-03-14
  • 打赏
  • 举报
回复
早解决早结帖!

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧