zoukankan      html  css  js  c++  java
  • ASP判断数据库中表是否存在

    <!--#include file="../conn.asp" -->
    <%
    Function CheckTable (myTable)
    '列出数据库中的所有表
    dim rs,getTableName
    set rs=conn.openSchema(20)
    rs.movefirst
    do Until rs.EOF
    if rs("TABLE_TYPE")="TABLE" then
    'response.write rs("TABLE_NAME") & ","
    getTableName=getTableName+rs("TABLE_NAME")&","
    end if
    rs.movenext
    loop
    rs.close
    set rs=nothing
    
    '判断数据库中是否存在此表(下面两行代码使待比较表和指定表前后都加上豆号,以精确比较)
    dim getTableName2,myTable2
    getTableName2=","&getTableName '此字符串后面已经有豆号
    myTable2=","&myTable&","
    If instr(getTableName2,myTable2)<>0 Then
    CheckTable=1 '存在
    else
    CheckTable=0 '不存在
    end if
    End Function
    
    Function ChkTable(mytable)
    on error resume next
    dim rs
    set rs = server.CreateObject("adodb.recordset")
    rs.open "select top 1 * from "&mytable,conn,1,1
    if not err.number=0 Then
    'response.write err.number
    Err.Clear '清除该错误
    ChkTable= 0 '"不存在"
    else
    ChkTable=1 '"存在"
    end If
    rs.close
    Set rs=Nothing 
    End Function
    %>
    
    <%
    '下面是测试代码
    If ChkTable("Yao_User")=1 then ' Yao_User 是自己连的数据库中的表
    Response.Write("Yes")
    Else
    Response.Write("No")
    End If
    %>
    

      

  • 相关阅读:
    Java学习:Scanner类
    Java学习:Object类
    js 方法
    ToDictionary
    goto
    删除多列同时重复数据
    linq中使用case when
    sql 学习笔记
    VS2012发布网站详细步骤
    由于权限不足而无法读取配置文件出现的HTTP 500.19解决办法
  • 原文地址:https://www.cnblogs.com/Aiziyou/p/3293158.html
Copyright © 2011-2022 走看看