文章探索:   分类:    关键字:  
  + 栏目导航
  + 相关文章
SQL字符串函数
SQL函数详解
SQL数据库远程备份到本地
SQL数据库备份的基础知识
让SQL飞起来
常用SQL语句词典
精妙SQL语句大全
SQL语句大全
SQL语言快速入门之三
SQL语言快速入门之二
SQL语言快速入门之一
数据库设计入门-SQL语言及其优点
数据库设计入门-SQL语言的分类及语法
数据库设计入门-ODBC与ADO对象
全面接触SQL语法(二)
全面接触SQL语法(一)
用SQL创建数据库
SQL语言的分类及语法
SQL语言及其优点
SQL语法参考手册
高手是怎样炼成的:精妙SQL语句介绍
检查数据库表是否存在函数
用DateAdd,DateDiff,between实现指定..
sql函数--DATEDIFF
SQL教程(2)
SQL语言教程(1)


技术教程 -> SQL教程 ->  
检查数据库表是否存在函数
来源:转载   人气:1715   录入时间:2007-11-8
    1.
   function existTab(TabName as string) as boolean
    dim TR as new recordset
    dim Adoconn as new adodb.connection
    adoconn.open connstr
    existtab=true
    on error goto Err1
    tr.open "select from testtable"
    tr.close
    adoconn.close
    exit function
    Err1:
    adoconn.close
    existtab=false
   end function
   
   2.
   Function IsExist(tb As String) As Boolean
    Dim adoRst As New ADODB.Recordset
    Dim adoConn As New ADODB.connection
    Dim strConn As String
    Dim sql As String
    strConn = "driver={SQL server};server=lyb;uid=sa;pwd=;database=jppoem"
    adoConn.Open strConn
    sql = "select * from sysobjects where id=object_id('" + tb + "')"
    adoRst.Open sql, adoConn, 3, 3
    If adoRst.EOF Then
    IsExist = False
    Else
    IsExist = True
    End If
   End Function




Copyright(C)2007-2021 广州市佳沛数码科技有限公司 版权所有
公司地址: 广州市荔湾区东漖北路560号511室
电话:020-81803473 传真:020-81544987