Private Sub Command1_Click()
If Text1.Text = "" Then MsgBox "请输入需查询的车牌号或车主姓名"
If Combo1.Text = "车牌号码" Then
Adodc1.Refresh
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Password=zy12191023;Persist Security Info=True;User ID=sa;Initial Catalog=ACWKO2;Data Source=MICRO-005151229\SQLEXPRESS"
SQL = "select * from Result where 车牌号码 like " & Text1.Text & ""
Adodc1.Refresh
If Not Adodc1.Recordset.EOF Then
Text2.Text = Adodc1.Recordset.Fields("出厂长")
Text3.Text = Adodc1.Recordset.Fields("出厂宽")
Text4.Text = Adodc1.Recordset.Fields("出厂高")
Else: MsgBox "您所要查询的内容不存在!"
End If
End If
End Sub
你要用循环获取数据,而不是if语句获取数据
您好,我是有问必答小助手,您的问题已经有小伙伴解答了,您看下是否解决,可以追评进行沟通哦~
如果有您比较满意的答案 / 帮您提供解决思路的答案,可以点击【采纳】按钮,给回答的小伙伴一些鼓励哦~~
ps:问答VIP仅需29元,即可享受5次/月 有问必答服务,了解详情>>>https://vip.csdn.net/askvip?utm_source=1146287632
非常感谢您使用有问必答服务,为了后续更快速的帮您解决问题,现诚邀您参与有问必答体验反馈。您的建议将会运用到我们的产品优化中,希望能得到您的支持与协助!
速戳参与调研>>>https://t.csdnimg.cn/Kf0y