(蓝色情调) 大哥我要接着急问!!!朋友们快来帮忙!

bluesanke 2003-03-28 02:40:57
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框中,怎么加代码呀!大家提供点代码和注释!!!谢谢!!!
...全文
45 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
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
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
这段代码要是和我上面的原码来改改!应该怎么改呢!大哥
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
pcwak 2003-03-28
  • 打赏
  • 举报
回复
If rs.BOF And rs.EOF Then 这个是什么条件啊
一年一度的520就是明天了!兄弟们,你们准备好了吗?用代码表白的浪漫不是每个人的会的哦!!!有的人用鲜花,有的人用戒指,有的人写情书。。。。但是情书也有情书的格式的,不只只是单调的文字,但是用了代码的情书就是截然不同的哈!!!浪漫与情调相结合,制造出专属于你们两个人独有的浪漫气氛,这是金钱都买不到的!!!如果是有情调的书写人,记录这他(她)对于你的专属的记忆和怀念,如果是偷偷暗恋你的人写的话,就更加有一点羞涩的味道了,他(她)会更加会对于你的点点滴滴记录得发自内心的情怀之语!如果是老夫老妻的话,他(她)肯为你写这的话,柴米油盐的生活下,绝对是恩爱的真心,生活的压迫下还能这样留意这你的生活,毋庸置疑的真爱!!!如果只是想玩玩的人,其实他(她)没必要劳眼劳肺得写这东西的,互联网时代,手机看一遍的东西,一般不会看第二遍的了,还不如直接520红包,1314转账,99朵玫瑰花。。。所以,被接收这文件的人,记得好好珍惜发文件的人哈!发文件的人,你是好样的,这虽然没有金钱的味道,但是这比金钱更加有味道,青春羞涩的味道,一起经历风风雨雨的酸甜苦辣的味觉!!!!!!!!!!!!!!!!!!!!!!!!!

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧