28,390
社区成员
发帖
与我相关
我的任务
分享
<%
sConn = "Provider=SQLOLEDB;Data source=127.0.0.1;Initial Catalog=DB;User ID=sa;Password=sa;"
sTable = "table_name"
Set conn = CreateObject("ADODB.Connection")
conn.Open sConn
Set oCat = CreateObject("ADOX.Catalog")
Set oCat.ActiveConnection = conn
Set colTables = oCat.Tables
b = False
For Each t In colTables
If t.Name = sTable Then
b = True
Exit For
End If
Next
conn.Close
Set conn = Nothing
Set oCat = Nothing
Set colTables = Nothing
If b Then
Response.Write "存在" & sTable
Else
Response.Write "不存在" & sTable
End If
%>