急问个问题!高手快帮忙!thx

bluesanke 2003-02-19 04:58:23
Private Sub CmdQuery_Click()
'FindBH是要查找的编号
Dim FindBH As String
'Criteria是查询条件
Dim Criteria As String
'CurrentBookMark是当前记录指针
Dim CurrentBookMark As String
'出现输入框,将输入的内容送到FindBH变量中
FindBH = InputBox$("请输入要查找的土地登记申请书编号:", "查找")
'保存当前记录指针到CurrentBookMark变量中
CurrentBookMark = Adodc1.Recordset.Bookmark
'生成查找条件
Criteria = "编号=" & "'" & FindBH & "'"
'查找满足条件的第一个记录
Adodc1.Recordset.《1》FindFirst Criteria
'如果没有找到
If Adodc1.Recordset.《2》NoMatch Then
'恢复当前记录指针到CurrentBookMark
Adodc1.Recordset.Bookmark = CurrentBookMark
'弹出提示框
MsgBox "没有满足条件的记录!", 0, "查找结果"
End If
End Sub
以上程序用数据控减测试完全通过没有问题,但是要是用ado来实现需要改改〈1〉和〈2〉处,那位高手知道希望告诉我详细的修改方法谢谢! 关键是ado中怎么样定位指针?!
...全文
7 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
bluesanke 2003-02-20
为什么这个问题没人回答呢!很急的说!adodc1.recordet.后面不能和data式的选findfirst和nomatch应该改成什末呀?!
回复
bluesanke 2003-02-19
可是Adodc1.Recordset.不可以选findfirst和nomatch呀!怎么在这基础上修改呀!能详细说说吗
回复
enhydraboy 2003-02-19
1 bind you control a recordset

dim cn as new adodb.connection
dim rs as new adodb.recordset

cn.open ...
rs.open sql,cn,3,3

set txtcontrol.datasource=rs
txtcontrol.datafield="xxx"

2
Private Sub CmdQuery_Click()
'FindBH是要查找的编号
Dim FindBH As String
'Criteria是查询条件
Dim Criteria As String
'CurrentBookMark是当前记录指针
Dim CurrentBookMark As String
'出现输入框,将输入的内容送到FindBH变量中
FindBH = InputBox$("请输入要查找的土地登记申请书编号:", "查找")
'保存当前记录指针到CurrentBookMark变量中
CurrentBookMark = Adodc1.Recordset.Bookmark
'生成查找条件
Criteria = "编号=" & "'" & FindBH & "'"
'查找满足条件的第一个记录
rs.FindFirst Criteria
'如果没有找到
If rs.NoMatch Then
'恢复当前记录指针到CurrentBookMark
Adodc1.Recordset.Bookmark = CurrentBookMark
'弹出提示框
MsgBox "没有满足条件的记录!", 0, "查找结果"
End If
End Sub



回复
相关推荐
发帖

1184

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2003-02-19 04:58
社区公告
暂无公告