原码修改,分不够再加,在线等待!!!

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

回复
加载更多回复
相关推荐
发帖

1187

社区成员

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