| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 534 人关注过本帖
标题:请问这个程序应该怎么补充啊?!
只看楼主 加入收藏
yuzhangxi
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2014-1-4
结帖率:0
收藏
 问题点数:0 回复次数:2 
请问这个程序应该怎么补充啊?!
Private Sub Command1_Click()
Adodc1.RecordSource = "select*from 产线 where 产线='" & Text1.Text & "'"
Adodc1.Refresh
Text2.Text = Adodc1.Recordset.Fields("电机型号")
Text3.Text = Adodc1.Recordset.Fields("减速机型号")
Text4.Text = Adodc1.Recordset.Fields("辊道型号")
Text5.Text = Adodc1.Recordset.Fields("更换记录")
End Sub
这段程序是个查询数据库程序,但条件是只有在Text1文本框中输入的内容与数据库的内容相符时单击Command1时才能执行命令,当输入的内如与数据库的内容不符时,单击Command1按钮就出错,请问哪位大侠能给小弟加一段判断语句啊,若不符合,则提示“输入的内如不对,请重新输入”,然后清空,再输入。我编了几个判断的语句,都不行,请哪位大侠帮一下啊,在下不胜感激!
搜索更多相关主题的帖子: 减速机型号 数据库程序 电机型号 文本框 Text1 
2014-01-04 19:27
韶志
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
来 自:斗气大陆
等 级:贵宾
威 望:44
帖 子:2223
专家分:13592
注 册:2013-3-22
收藏
得分:0 
在Adodc1.Refresh后面加上下面的代码,    Adodc1.Recordset.EOF = True意思就是没有查询到内容

If Adodc1.Recordset.EOF = True Then
MsgBox "没有此信息!", vbOKOnly + vbInformation, "系统提示"
Exit Sub
End If

三十年河东,三十年河西,莫欺少年穷!
2014-01-04 23:55
yuzhangxi
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2014-1-4
收藏
得分:0 
回复 2楼 韶志
十分感谢您的帮助,非常有用,感激啊!
2014-01-05 11:45
快速回复:请问这个程序应该怎么补充啊?!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.037385 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved