VB提示:实时错误3704,对象关闭时,不允许操作。

OptionExplicitPrivateSubCommand1_Click()DimrstBookStyleAsNewADODB.RecordsetDimsqlAsSt... Option Explicit
Private Sub Command1_Click()
Dim rstBookStyle As New ADODB.Recordset
Dim sql As String
Dim msg As String
If Trim(namee.Text) = "" Then
MsgBox "请输入个人姓名!", 0 + 48, "警告!"
namee.SetFocus
Exit Sub
End If
If Trim(sex.Text) = "" Then
MsgBox "请输入性别!", 0 + 48, "警告!"
sex.SetFocus
Exit Sub
End If
sql = "select * from 个人信息 where 姓名='" & namee.Text & "'"
Set rstBookStyle = ExeRecordset(sql, msg)
If rstBookStyle.EOF Then
sql = "insert into 个人信息(姓名,性别) values('" & namee.Text & "','" & sex.Text & "')"
ExeNonQuery sql, msg
MsgBox " 添加个人信息成功!", 0 + 64, "消息!"
rstBookStyle.Close
namee.Text = ""
sex.Text = ""
Else
MsgBox " 个人信息重复!", 0 + 64, "消息!"
namee.SetFocus
namee.Text = ""
rstBookStyle.Close
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
--------------------------------------------------------
If rstBookStyle.EOF Then 这一句显示黄色,出现错误提示.
展开
 我来答
szqaly
2015-05-24 · TA获得超过1745个赞
知道大有可为答主
回答量:2107
采纳率:77%
帮助的人:1524万
展开全部
sql = "select * from 个人信息 where 姓名='" & namee.Text & "'"
Set rstBookStyle = ExeRecordset(sql, msg)

'主要是没有返回对象,先查看sql串有没问题,我看着namee 别扭,是不是name啊? 再查看msg信息。这两句下面打句:debug.print sql,msg ,运行时在立即窗口查看这两个变量。
如果自己找不出原因可以把工程发来让我试试,2978454279@qq.com,代码上实在看不出问题。
大雅新科技有限公司
2024-11-19 广告
这方面更多更全面的信息其实可以找下大雅新。深圳市大雅新科技有限公司从事KVM延长器,DVI延长器,USB延长器,键盘鼠标延长器,双绞线视频传输器,VGA视频双绞线传输器,VGA延长器,VGA视频延长器,DVI KVM 切换器等,优质供应商,... 点击进入详情页
本回答由大雅新科技有限公司提供
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式