首  页
站长信箱
868搜索
网站登录
免费计数器
免费留言本
IP来源查询
网站技术教程
网站流量统计
文章探索:   分类:    关键字:  
    什么?你还在找兼职?上兼客吧,现在兼客吧平台太火了,知名度和诚信度也很高,注册就送0.5元现金,满3元就能提现,马上到账了!最低3元就能提现,大家可以注册下试试!注册地址:http://www.jiankeba.com/computeryc1688
  + 栏目导航
  + 相关文章
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教程 ->  
检查数据库表是否存在函数
来源:转载   人气:6383   录入时间:2006/2/11


    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



| 网站转让 | 站长信箱 | 网站登录 | 技术教程 | 免费计数器 | 免费留言本 | 868流量统计 | 好帮手网站营销 |
地址:广东省阳江市  联系电话:13725641179 杨先生
Copyright 2004-2019 868资源网- 版权所有    粤ICP备05007330号