已解决问题
谷歌dillon60用户在2014.02.08提交了关于“李连杰vb中adodc.refresh出现错误? 对象'Refresh'的方法'IAdodc'失败”的提问,欢迎大家涌跃发表自己的观点。目前共有1个回答,最后更新于2024-09-11T04:22:55。运行程序时,出窗口:实时错误'-2147217900(80040e14)'对象'Refresh'的方法'IAdodc'失败???
程序:
PrivateSubCommand1_Click()
IfCombo1.Text=""Then
MsgBox"请输入查询内容",48,"提示"
ExitSub
EndIf
IfText1.Text=""Then
MsgBox"请输入关键字",48,"提示"
ExitSub
EndIf
Adodc1.Recordset.Close
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\恒通客车销售管理系统.mdb;PersistSecurityInfo=False"
IfCombo1.Text="编号"Then'
Adodc1.RecordSource="select*from销售订单where订单编号='"&Text1.Text&"'"
Adodc1.CommandType=adCmdText
Adodc1.Refresh
Else
IfCombo1.Text="客户姓名"Then
Adodc1.RecordSource="select*from销售订单where客户姓名='"&Text1.Text&"'"
Adodc1.CommandType=adCmdText
Adodc1.Recordset.Requery
EndIf
IfAdodc1.Recordset.EOFThenMsgBox"对不起没有你要找的**!请检查是否输入正确"
EndIf
EndSub希望大家能够帮助她。
详细问题描述及疑问:运行程序时,出窗口:实时错误'-2147217900(80040e14)'
对象'Refresh'的方法'IAdodc'失败???
程序:
PrivateSubCommand1_Click()
IfCombo1.Text=""Then
MsgBox"请输入查询内容",48,"提示"
ExitSub
EndIf
IfText1.Text=""Then
MsgBox"请输入关键字",48,"提示"
ExitSub
EndIf
Adodc1.Recordset.Close
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\恒通客车销售管理系统.mdb;PersistSecurityInfo=False"
IfCombo1.Text="编号"Then'
Adodc1.RecordSource="select*from销售订单where订单编号='"&Text1.Text&"'"
Adodc1.CommandType=adCmdText
Adodc1.Refresh
Else
IfCombo1.Text="客户姓名"Then
Adodc1.RecordSource="select*from销售订单where客户姓名='"&Text1.Text&"'"
Adodc1.CommandType=adCmdText
Adodc1.Recordset.Requery
EndIf
IfAdodc1.Recordset.EOFThenMsgBox"对不起没有你要找的**!请检查是否输入正确"
EndIf
EndSub期待您的答案,真心佩服你,谢谢
!