VB中出现实时错误“91”是什么原因？ 5
此为代码PrivateSubCommand1_Click()DimstrsqlAsStringIfText1.Text<>""ThenAdodc1.Recordset.C...
此为代码
Private Sub Command1_Click()
Dim strsql As String
If Text1.Text <> "" Then
Adodc1.Recordset.Close
If Val(Text1.Text) > 0 Then
strsql = "select*from StudInfor where XH=" & Trim(Text1.Text)
Else
strsql = "select*from StudInfor where XM='" & Trim(Text1.Text) & "'"
End If
Adodc1.CommandType = adCmdText
Adodc1.Recordset.Open strsql
Set DataGrid1.DataSource = Adodc1
Else
Set DataGrid1.DataSource = Noting
End If
运行时在Adodc1.Recordset.Close出现实时错误，请教高手，是什么原因，如何修改？谢谢 展开
Private Sub Command1_Click()
Dim strsql As String
If Text1.Text <> "" Then
Adodc1.Recordset.Close
If Val(Text1.Text) > 0 Then
strsql = "select*from StudInfor where XH=" & Trim(Text1.Text)
Else
strsql = "select*from StudInfor where XM='" & Trim(Text1.Text) & "'"
End If
Adodc1.CommandType = adCmdText
Adodc1.Recordset.Open strsql
Set DataGrid1.DataSource = Adodc1
Else
Set DataGrid1.DataSource = Noting
End If
运行时在Adodc1.Recordset.Close出现实时错误，请教高手，是什么原因，如何修改？谢谢 展开
2个回答
展开全部
Adodc控件 没加载任何数据集对象 你就关闭 当然出错啦 有开才有关
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
paykka
2025-08-05 广告
Paykka 从多个环节帮助用户节省时间，开户最快 1 个工作日完成，本地货币结算当日到账，提现更是几秒内就能完成。全流程都极大地缩短了时间成本，减少了用户的等待时间，提高了资金流转效率。...
点击进入详情页
本回答由paykka提供
展开全部
If Adodc1.Recordset.State = 1 Then Adodc1.Recordset.Close
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
