• 全部
  • Oracle 基础和管理
  • Oracle 高级技术
  • Oracle 认证与考试
  • 职位交流
  • 问答

各位朋友快帮忙,马上结帖,在线等

bluesanke 2003-03-27 04:00:20
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"这步的时候,显示“缺少函数或变量”
各位朋友快帮忙呀!!!
...全文
5 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
bluesanke 2003-03-27
谢谢大哥!!!这30分是你的了
可是我还想问为什么,运行到最后出不来我要的结果呢??!提示总是有!就是我输入没有的编号它还是提示有!!这是为什么呀???
回复
cn.Open "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=dytd;PassWord=dytd;Data Source=dytd"
回复
相关推荐
发帖
Oracle
创建于2007-09-28

1.6w+

社区成员

Oracle开发相关技术讨论
申请成为版主
帖子事件
创建了帖子
2003-03-27 04:00
社区公告
暂无公告