adodc find循环查找
用adodc 的 find 方法查询表中的数据,如图:根据画方框的text(即text54)中的内容来选择要查找的内容,代码:
Private Sub Text54_Change()
Adodc10.Recordset.Find "时刻=" & Text54.text
End Sub
text54的值是根据其他文本框的值变化而变化的,
Private Sub Text53_Change()
Text54.text = Text53.text
End Sub
现在出现这样的问题,如果初始的text值是6,则根据text值变化,比如7、8、9、...12、15、20等顺序变化,则能够实现查找的目的;如果查找到23或者从6的值往前查找,比如现在的是是6,变化后是3,就查找不到任何内容,不管text54的值怎么变化,查找的内容也不会出现了。高手们,这个问题怎么解决啊?
...全文
相关推荐
VB数据库实例.pdf
VB数据库实例.pdf
vb Access操作
vb Access操作
vb和SQL做学生成绩管理.doc
vb和SQL做学生成绩管理.doc
VB利用变量查询日期型数据.rar
VB利用变量查询日期型数据,结合SQLServer数据库实现的,可根据出生日期查询学生信息。查询部分的具体代码如下: Private Sub Cmd_Find_Click() '【查询】按钮 If Text1.Text = "" Then MsgBox "请输入要查询的出生年月!", , "信息提示" Text1.Text = "" Text1.SetFocus Exit Sub ElseIf Not IsDate(Text1.Text) Then MsgBox "请输入正确的数据类型", , "信息提示" Text1.Text = "" Text1.SetFocus Exit Sub Else MyDate = Format(Text1.Text, "short date") '给变量赋值 Adodc1.RecordSource = "select * from tb_stu where 出生年月= '" Str(MyDate) "'" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 End If 还有更多代码,请您下载完整的实例。
vb和SQL做的学生成绩管理系统.doc
vb和SQL做的学生成绩管理系统.doc


数据库(包含打印,安装,报表)
