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

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框中,怎么加代码呀!大家提供点代码和注释!!!谢谢!!!
...全文
7 点赞 收藏 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 这个是什么条件啊
回复
相关推荐
发帖

1187

社区成员

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