全部

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

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框中，怎么加代码呀！大家提供点代码和注释！！！谢谢！！！

...全文

3 点赞收藏 6

写回复

6 条回复

切换为时间正序

当前发帖距今超过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

回复赞

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 这个是什么条件啊

回复赞