asp 怎么用语句查询视图是否存在
日期：2014-05-17 浏览次数：20862 次
asp 如何用语句查询视图是否存在？
下面的函数是查询表是否存在，但视图是否存在怎么查？
Function isTableExists(DbConn, TableName ) '检查表是否存在
Dim chkRs
Set chkRs = DbConn.openSchema(20)
chkRs.MoveFirst
Do Until chkRs.EOF
If chkRs("TABLE_TYPE") = "TABLE" then
If chkRs("TABLE_NAME") = TableName Then
isTableExists = True
chkRs.Close
Set chkRs = Nothing
Exit Function
End if
End if
chkRs.MoveNext
Loop
chkRs.Close
Set chkRs = Nothing
isTableExists = False
End Function
------解决方案--------------------
下面的函数是查询表是否存在，但视图是否存在怎么查？
Function isTableExists(DbConn, TableName ) '检查表是否存在
Dim chkRs
Set chkRs = DbConn.openSchema(20)
chkRs.MoveFirst
Do Until chkRs.EOF
If chkRs("TABLE_TYPE") = "TABLE" then
If chkRs("TABLE_NAME") = TableName Then
isTableExists = True
chkRs.Close
Set chkRs = Nothing
Exit Function
End if
End if
chkRs.MoveNext
Loop
chkRs.Close
Set chkRs = Nothing
isTableExists = False
End Function
------解决方案--------------------
- VBScript code
<%
sTable = "view_xxx"
Response.Write isViewExists(sTable)
Function isViewExists(sTable)
On Error Resume Next
Dim conn, sConn, oCat, colTables, oTable
sConn = "Provider=SQLOLEDB;Data source=127.0.0.1;Initial Catalog=db;User ID=sa;Password=xxx;"
Set conn = CreateObject("ADODB.Connection")
conn.Open sConn
Set oCat = CreateObject("ADOX.Catalog")
Set oCat.ActiveConnection = conn
Set colTables = oCat.Tables
Set oTable = colTables(sTable)
If oTable Is Nothing Then
isViewExists = False
Else
isViewExists = True
End If
Set oTable = Nothing
Set colTables = Nothing
Set oCat = Nothing
conn.Close
Set conn = Nothing
End Function
%>
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
