怎么判断oracle数据库里一个视图存在不存在

Question

Dim OraSession1 As Object
Dim OraDatabase1 As Object
Dim sql As StringSet OraSession1 = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase1 = OraSession1.DbOpenDatabase(LIB_strDBServer, LIB_strDBUserID & "/" & LIB_strDBPwd, 0&)
以上是我用DAO方式连接oracle数据库的一段代码，现在我要判断一个叫做test_view的视图存在不存在
语句该怎么写啊请达人指教
一拜谢
二拜谢
三拜谢

Answer 1

'做个错误陷阱
Function ViewExist(byval strViewName as string) as boolean
  On Error Goto ErrorHandler
  strSql="Select * From " & strViewName  & " Where RowNum<2"
 '  以数据库连接操作一下这个语句
 '  ....
 '
 ViewExist=True
 Exit Function
 Errorhandler:
 ViewExist=False
End Function

Answer 2

为什么要用DAO，DAO是VB5.0里的东西。难道？？

Answer 3

private sub list()
set rs=createobject("ADOBC.Recordset")
dim fun as boolean
sql="select * from" & test_view & "where 条件"
rs.open sql,conn,1,3
if not rs.eof then 
'代码
else 
fun=false
end if 
if fun= false then 
msgbox"视图不存在"
end if 
end sub