已解决问题
谷歌wwwjk123com用户在2013.05.09提交了关于“诛仙vb 对象refresh的方法 iadodc失败”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2024-08-08T17:44:33。一个text1.在**库cwgl的sr表中查询与text1的输入**相同的**并显示在DataGrid1中，代码如下高手帮忙看看PrivateSubCommand1_Click()
DimstrQueryAsString
Command1.Enabled=False
Command2.Enabled=True
Command3.Enabled=True
d1=Trim(Text1.Text)
Adodc1.CommandType=adCmdText
strQuery="select*fromSRwhereSRLX='"&d1&"'"
Adodc1.RecordSource=strQuery
Adodc1.Refresh
IfAdodc1.Recordset.RecordCount=0Then
MsgBox"不存在此记录!"
EndIf
EndSub希望大家能够帮助她。
详细问题描述及疑问：一个text1.在**库cwgl的sr表中查询与text1的输入**相同的**并显示在DataGrid1中，代码如下高手帮忙看看
PrivateSubCommand1_Click()
DimstrQueryAsString
Command1.Enabled=False
Command2.Enabled=True
Command3.Enabled=True
d1=Trim(Text1.Text)
Adodc1.CommandType=adCmdText
strQuery="select*fromSRwhereSRLX='"&d1&"'"
Adodc1.RecordSource=strQuery
Adodc1.Refresh
IfAdodc1.Recordset.RecordCount=0Then
MsgBox"不存在此记录!"
EndIf
EndSub期待您的答案，你是我的宝贝,你是我的花,谢谢你对我的帮助！