1187
社区成员
(蓝色情调) 大哥我要接着急问！！！朋友们快来帮忙！
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
现在要是找到编号了，就把编号及和编号在同一个表中的数据发送到界面上对应的text框中，怎么加代码呀！大家提供点代码和注释！！！谢谢！！！
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
现在要是找到编号了，就把编号及和编号在同一个表中的数据发送到界面上对应的text框中，怎么加代码呀！大家提供点代码和注释！！！谢谢！！！
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
bluesanke 2003-03-28
ok了，结帖！！！谢谢大家！！！
VirtualAlloc 2003-03-28
rs.CursorLocation=adUseClient
//指定游标类型为：client。如果程序在本机运行就比较好，如果是通过网络访问的，
//建议rs.CursorLocation=adUseServer
FindBH = InputBox$("请输入要查找的土地登记申请书编号：", "查找")
rs.Open "select * from DJ_BGDJ_HBTDSYQSQS Where 编号= '" & trim(FindBH) & "'",cn
//在表 DJ_BGDJ_HBTDSYQSQS 中找编号为 FindBH 的所有记录
If rs.BOF And rs.EOF Then
MsgBox "没有符合编号的记录"
Else
MsgBox "找到啦"
//显示记录内容
text1.text=rs("编号")
text2.text=rs("登记人")
text1.text=rs("登记日期")
//rs括号里面的是你表中相应的字段的名字
End If
//指定游标类型为：client。如果程序在本机运行就比较好，如果是通过网络访问的，
//建议rs.CursorLocation=adUseServer
FindBH = InputBox$("请输入要查找的土地登记申请书编号：", "查找")
rs.Open "select * from DJ_BGDJ_HBTDSYQSQS Where 编号= '" & trim(FindBH) & "'",cn
//在表 DJ_BGDJ_HBTDSYQSQS 中找编号为 FindBH 的所有记录
If rs.BOF And rs.EOF Then
MsgBox "没有符合编号的记录"
Else
MsgBox "找到啦"
//显示记录内容
text1.text=rs("编号")
text2.text=rs("登记人")
text1.text=rs("登记日期")
//rs括号里面的是你表中相应的字段的名字
End If
pcwak 2003-03-28
rs.CursorLocation=adUseClient
FindBH = InputBox$("请输入要查找的土地登记申请书编号：", "查找")
rs.Open "select * from DJ_BGDJ_HBTDSYQSQS Where 编号= '" & trim(FindBH) & "'",cn
If rst.EOF = True Then<---- 没有找到记录
MsgBox "没有"
Else
text1.text = rs!编号
End If
End Sub
FindBH = InputBox$("请输入要查找的土地登记申请书编号：", "查找")
rs.Open "select * from DJ_BGDJ_HBTDSYQSQS Where 编号= '" & trim(FindBH) & "'",cn
If rst.EOF = True Then<---- 没有找到记录
MsgBox "没有"
Else
text1.text = rs!编号
End If
End Sub
bluesanke 2003-03-28
刚才我看见你的回复了！有些地方还不清楚，因为我的库用的是oracle所以毛病很多！！！
原码是
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
测试已经通过，现在要让界面中的text接受和编号在一个表中的对应数据！！！
Private Sub Form_Load()
Set con = New ADODB.Connection
Set rst = New ADODB.Recordset
With con
.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;Persist Security Info=False"
.Open
End With
rst.CursorLocation = adUseClient
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
rst.ActiveConnection = con
End Sub
这段代码要是和我上面的原码来改改！应该怎么改呢！大哥
原码是
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
测试已经通过，现在要让界面中的text接受和编号在一个表中的对应数据！！！
Private Sub Form_Load()
Set con = New ADODB.Connection
Set rst = New ADODB.Recordset
With con
.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;Persist Security Info=False"
.Open
End With
rst.CursorLocation = adUseClient
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
rst.ActiveConnection = con
End Sub
这段代码要是和我上面的原码来改改！应该怎么改呢！大哥
qqqdong 2003-03-28
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
text1.text = rs!编号
End If
End Sub
FindBH = InputBox$("请输入要查找的土地登记申请书编号：", "查找")
rs.Open "select * from DJ_BGDJ_HBTDSYQSQS Where 编号= '" & trim(FindBH) & "'",cn
If rs.BOF And rs.EOF Then <---- 没有找到记录
MsgBox "没有"
Else
text1.text = rs!编号
End If
End Sub
pcwak 2003-03-28
If rs.BOF And rs.EOF Then 这个是什么条件啊
时尚蓝色情调PowerPoint下载PPT模板 以富有艺术感的白色方块看似松散的布局，构成幻灯片模板的背景图片，整体看来富有科技感，和时尚气息，模板被命名为蓝色情调时尚PowerPoint模板。模板格式为.PPT； 以富有艺术感的白色方块看似松散的布局，构成幻灯...
Julia:成为一名网络探险家并使用 Julia 来探索 Fractal 世界！-matlab开发 交互式生成经典的 Julia 和 Mandlebrot 集以及更多异国情调的形式。 例如，尝试使用 z.^z + cosh(z).... 提取附加的 .zip 文件并确保目录“Functions”和 .m 文件“julia”位于同一位置。 运行 julia.m 并开始探索...
国内最美最豪华图书馆！我一定要考上！ 大家一般都在哪里学习呢？ 图书馆？自习室？家里？宿舍？ 大部分同学应该是选择去图书馆或者自习室复习吧？ 在宿舍、家里复习未免太考验... 来源于网络 您还可以在以下平台找到我们 你点的每个在看，我都认真当成了喜欢
基于stm32蓝牙智能小车设计 前言： 本文描述了一个由STM32微处理器、步进电机、蓝牙，L298N等...控制小车的转动模式通过蓝牙模块来实现，利用手机蓝牙助手和蓝牙模块相通，进而控制小车的各种运转模式。 代码、蓝牙Android apk地址：https://g...
蓝色简洁简约有情调的艺术设计下载PPT模板 蓝色简洁简约有情调的艺术设计PPT模板免费下载； 关键词：蓝色幻灯片背景，简洁，简约，简单，艺术设计PowerPoint模板下载，.PPT格式； 蓝色简洁简约有情调的艺术设计PPT模板免费下载；关键词：蓝色幻灯片背景，简洁...
区块链工程师平均薪资 25~50k？6 个理由告诉你为什么要懂区块链！ 要举办一个以区块链技术为主题的大会，当然要交给专业的人来办这事儿！ 「2019 中国区块链开发者大会」，由 CSDN创始人&董事长、极客帮创投创始合伙人 蒋涛 ， 数字资产研究院副院长、CSDN 副总裁 孟岩 共同出品。...
ROSEBUDDY v1.2 by LOVEWARE!-crx插件 鲜花红色玫瑰绣球花牡丹花店兰花花店百合郁金香雏菊丁香花交付水芋百合康乃馨黄水仙百合花花束蓝色紫色花束白色鲜花加拿大黑色玫瑰非洲菊白色玫瑰蓝色玫瑰美丽鲜花安排玫瑰花粉红色玫瑰玫瑰红花葬礼鲜花插花莉莉斯...
盘点：上海十处最具情调的小资地！（组图） 我摄影、我喜爱、我擅长、我原创，我是独特街拍客；看美女、看时尚、看社会、看人文，真实记录原生泰。 我的更多文章：(2010-12-1708:53:48)(2010-12-1608:34:39)(2010-12-1410:10:37)(2010-12-1010:13:55)(2010-...
时尚蓝色情调PowerPoint模板下载.rar 以富有艺术感的白色方块看似松散的布局，构成幻灯片模板的背景图片，整体看来富有科技感，和时尚气息，模板被命名为蓝色情调时尚PowerPoint模板。模板格式为.PPT；
爱了，爱了，一款拯救直男的开源神器！ 六一八快到了，很多直男程序员肯定开始考虑送礼物，首选的估计都是口红。 男生能分清显卡型号但女生分不清，男生被嘲笑说是懂技术的死肥宅；但女生能分清口红色号而男生分不清，男生却会被嘲笑说是没情调的死直男...
C代码的运行速度总是比Java快，对吧？ 错误！ 因此，我们都知道，Java解释缓慢且C的编译和优化运行速度非常快。 您可能知道，图片截然不同。 TL; DR Java适用于星座，它的速度更快，因为JIT可以执行内联，因为所有方法/功能都是可见的，而C编译器无法跨编译...
重磅剧透！阿里巴巴计划开源 Nacos，为Dubbo生态发展铺路 世界正在变的更快，创新和市场竞争的节奏正在变得愈发剧烈，如何超快速实现业务增长成为商业竞争的主旋律，几乎一夜之间共享单车就火遍全国，不到几年滴滴就改变了我们的打车方式，腾讯三班倒实现全民“吃鸡”，现在...
每个程序员都有着一颗有趣的灵魂，我是说真的！ 万有引力版桌面也非常炫酷啊被程序耽误的艺术家啊如何优雅表现出自己的球迷身份新功能终于上线了看了很久总结出：这一定不是我写的代码这一定是一位爱岗敬业的×××姐当感到工作烦闷的时候，来点小情调也不错这些...
