全部

原码修改，分不够再加，在线等待！！！

bluesanke 2003-03-26 09:51:22

查询按钮的代码，我的这个用ado的话怎么改呀，而且很急的，通过查询编号把和编号在一个表里的数据全部反映到对应的text中,关键是1),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 = data1.Recordset.Bookmark
'生成查找条件
Criteria = "编号=" & "'" & FindBH & "'"
'查找满足条件的第一个记录
1)data1.Recordset.FindFirst Criteria
'如果没有找到
2)If data1.Recordset.NoMatch Then
'恢复当前记录指针到CurrentBookMark
data1.Recordset.Bookmark = CurrentBookMark
'弹出提示框
MsgBox "没有满足条件的记录！", 0, "查找结果"
End If
End Sub

...全文

51 点赞收藏 22

写回复

22 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

Administrator 2003-04-06

回复赞

bluesanke 2003-03-28

多谢兰色情调大哥和各位的帮忙！查询的问题解决了，结帖！然后我就这个问题再提个如何接受查询数据的问题！欢迎大家来帮忙！

回复赞

forrestsun 2003-03-27

引用ADO

回复赞

iget 2003-03-27

要引用 micorosoft activex data object

回复赞

bluesanke 2003-03-27

Private Sub CmdQuery_Click()
dim rs as new adodb.recordset
为什么运行到这里就说“用户定义类型未定义”？？？急死我了，可能就差这点了！！！

回复赞

bluesanke 2003-03-27

按照楼上的从新写了一边到是没报错，可是没反应呀！！！什么反应都没有，怎么回事

回复赞

chenyu5188 2003-03-27

哦，对了，是用Find方法，DATA控件才有findfrist方法。

Private Sub CmdQuery_Click()
dim rs as new adodb.recordset
'FindBH是要查找的编号
Dim FindBH As String
'Criteria是查询条件
Dim Criteria As String
'CurrentBookMark是当前记录指针
Dim CurrentBookMark As String
'出现输入框，将输入的内容送到FindBH变量中
rs.open "select * from XXX表",cn'cn为连接对象
FindBH = InputBox$("请输入要查找的编号：", "查找")
'保存当前记录指针到CurrentBookMark变量中
CurrentBookMark = rs.Bookmark
'生成查找条件
Criteria = "编号=" & "'" & FindBH & "'"
'查找满足条件的第一个记录
rs.Find Criteria
if rs.eof then
'恢复当前记录指针到CurrentBookMark
rs.Bookmark = CurrentBookMark
'弹出提示框
MsgBox "没有满足条件的记录！", 0, "查找结果"
else
msgbox "找到了…！！"
End If
End Sub

回复赞

bluesanke 2003-03-27

1)Adodc1.Recordset.FindFirst Criteria
2)If Adodc1.Recordset.NoMatch Then
这两句都错了adodc后没有findfirst和nomatch属性，
第2段代码rs.FindFirst Criteria也是同样的错误！！！

回复赞

bluesanke 2003-03-27

大哥运行到
rs.Open "select * from DJ_BGDJ_HBTDSYQSQS Where 编号= '" & trim(FindBH) & "'",cn
时说什么“实时问题-2147217900”
好郁闷呀！怎么回事？？？：（

回复赞

pennyzhueng 2003-03-27

up up up up up up up ...!!!

回复赞

chenyu5188 2003-03-27

Private Sub CmdQuery_Click()
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
Dim FindBH As String
cn.Open "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=dytd;PassWord=dytd;Data Source=dytd"
'********************************************************************
rs.CursorLocation=adUseClient
FindBH = InputBox$("请输入要查找的土地登记申请书编号：", "查找")
rs.Open "select * from DJ_BGDJ_HBTDSYQSQS Where 编号= '" & trim(FindBH) & "'",cn
'********************************************************************
'帮你搞定了。你再试试，*号内为关键所在
If rs.BOF And rs.EOF Then
MsgBox "没有"
Else
MsgBox "有"
End If
End Sub

朋友帮你搞定，如果还有错就留言给我~!!!

回复赞

bluesanke 2003-03-27

Private Sub CmdQuery_Click()
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
cn.Open "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=dytd;PassWord=dytd;Data Source=dytd"

'FindBH是要查找的编号
Dim FindBH As String
'Criteria是查询条件
Dim Criteria As String
'CurrentBookMark是当前记录指针
Dim CurrentBookMark As String
'出现输入框，将输入的内容送到FindBH变量中
rs.Open "select * from DJ_BGDJ_HBTDSYQSQS " & crieria, cn
FindBH = InputBox$("请输入要查找的土地登记申请书编号：", "查找")
'保存当前记录指针到CurrentBookMark变量中
If rs.BOF And rs.EOF Then
MsgBox "没有"
Else
MsgBox "有"
End If
End Sub
上个问题已经解决，可是为什么出不来我要的结果呢！！！不论我输入的编号是不是有！一律说没有

回复赞

bluesanke 2003-03-27

Private Sub CmdQuery_Click()
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
cn.Open = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=dytd;PassWord=dytd;Data Source=dytd"

'FindBH是要查找的编号
Dim FindBH As String
'Criteria是查询条件
Dim Criteria As String
'CurrentBookMark是当前记录指针
Dim CurrentBookMark As String
'出现输入框，将输入的内容送到FindBH变量中
rs.Open "select * from DJ_BGDJ_HBTDSYQSQS " & crieria, cn
FindBH = InputBox$("请输入要查找的土地登记申请书编号：", "查找")
'保存当前记录指针到CurrentBookMark变量中
If rs.BOF And rs.EOF Then
MsgBox "没有"
Else
MsgBox "有"
End If
End Sub
运行到 cn.Open = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=dytd;PassWord=dytd;Data Source=dytd"这步的时候，显示“缺少函数或变量”
各位朋友快帮忙呀！！！

回复赞

uvmusic 2003-03-27

关注～～～～～～～～～～～～

回复赞

iget 2003-03-27

dim cn as new adodb.connection
cn.open <连接字符串>

连接字符串可以用adodc生成一个

回复赞

bluesanke 2003-03-27

Private Sub CmdQuery_Click()
dim rs as new adodb.recordset
为什么运行到这里就说“用户定义类型未定义”？？？急死我了，可能就差这点了！！！
这个问题已经解决了！谢谢
现在是rs.open "select * from XXX表",cn'cn为连接对象----这句有问题
请问cn该如何定义，请各位大哥给点代码和注释

回复赞

bluesanke 2003-03-26

rst.open "select * from Table where " & Criteria ,cnn
我按照lisnake的方法改了一下，结果运行到这句时说
实现错误‘3001’
变量或者类型不正确，或者不可以接受范围之内，要不就与其他数据冲突！！！

而且我要从很多编号中选出我指定的那条编号，其他和指定编号在一个表的数据自动在界面上显示！！！where后面跟什么条件语句？？？？

回复赞

bluesanke 2003-03-26

没错以前是用data数据控件，现在要用ado

回复赞

chenyu5188 2003-03-26

楼主你的代码错在哪儿？？？？

回复赞

litsnake1 2003-03-26

Private Sub CmdQuery_Click()
'FindBH是要查找的编号
Dim FindBH As String
'Criteria是查询条件
Dim Criteria As String
'CurrentBookMark是当前记录指针
Dim CurrentBookMark As String
'出现输入框，将输入的内容送到FindBH变量中
FindBH = InputBox$("请输入要查找的编号：", "查找")
'保存当前记录指针到CurrentBookMark变量中
CurrentBookMark = data1.Recordset.Bookmark
'生成查找条件
Criteria = "编号=" & "'" & FindBH & "'"
'查找满足条件的第一个记录
1)dim rst as new adodb.recordset
rst.open "select * from Table where " & Criteria ,cnn
if not rst.eof then
'找到了记录
else
MsgBox "没有满足条件的记录！", 0, "查找结果"
end if
End Sub

回复赞

加载更多回复

彻底弄懂ReentrantLock —— 超详细的原码分析 java1.6 之前， synchronized效率很低，AQS框架就是解决并发问题的首选。我们从 ReentrantLock入手，看下AQS怎么解决并发问题的。如下代码，存在多线程并发问题 // TODO 用 ReentrantLock 加锁，来看下效果，这里...

软件设计师通关宝典（有这一个就够了！）首先庆祝全天下的程序员节日快乐，当然还是不能忘记写博客！今天分享一下我备战软考的一些笔记，后续还会更新的！（01）程序计数器：用于存放指令的地址程序状态寄存器：用于存放指针地址 ...

计算机组成原理笔记(持续更新中!) 我永远喜欢wdky19计组姐姐！ 1 导论文章目录1 导论1.1 计算机的发展历程1.1.1 计算机软硬件的发展1.1.2计算机的分类与发展方向1.2 计算机系统的组成1.2.1 系统结构1.2.2 CPU及其工作过程1.2.3 I/O设备1.2.4 软件...

数据库是什么？数据库详细笔记！带你走进数据库~你想知道的这里都有！一:什么是数据库数据库是一个长期存储在计算机内，有组织的，有共享的，统一化管理数据集合。它简便而言之就是一个数据存储仓库，为了方便数据存储和管理，它将数据按照特定的规律存储在磁盘上。...

硬核！Java集合面经大全——双非上岸阿里巴巴系列东北某不知名双非本，四面成功上岸阿里巴巴，在这里把自己整理的面经分享出来，欢迎大家阅读。序号文章名超链接 1 操作系统面经大全——双非上岸阿里巴巴系列 2021最新版面经——>...传送门4

计算机组成原理：最详细笔记！前言参考：《王道计算机组成原理》学习笔记总目录+思维导图 2019 王道考研计算机组成原理第一章计算机系统概述 1.1 计算机发展历程 1.1.1 计算机硬件的发展计算机系统=硬件+软件计算机硬件的发展： ...

超级空投来袭！！！(web前端面试题) web前端面试题一锅乱炖，包含html，css，js。你品你细品。

最详细的软考网工题解析来啦！ (1)是指按内容访问的存储器。 (1)A.虚拟存储器 B.相联存储器 C.高速缓存（Cache) D....【答案】B 【解析】本题考查计算机系统存储器方面的基础知识。计算机系统的存储器按所处的位置可分为内存和外存。...

金三银四已过，为大家整理一批高频java面试题，花点耐心看完，offer拿到手软！今日分享开始啦，请大家多多指教~ 今日分享 ThreadPoolExecutor 解析大全，现在很多人在许多公司面试中会被问到线程池。为什么面试官这么热衷于问线程池相关的面试题呢？因为这是多线程的基础，ThreadPoolExecutor ...

Java线程池原码分析 Java线程池的实现原理分析 execute()是 java.util.concurrent.Executor接口中唯一的方法，JDK注释中的描述是“在未来的某一时刻执行命令command”，即向线程池中提交任务，在未来某个时刻执行，提交的任务必须实现...