如何用SQL语句来判断已知表是否存在

『本文地址:http://v1.djasp.net/Static/nb/1947.stm

如何判断库中已知表是否存在今日受人之托,帮他解决这个问题,代码为通常的引用Dao做的一模块:  
★点击设计★ http://www.djasp.Net 全力打造WEB技术站点,欢迎大家访问!
Function fExistTable(strTableName As String) As Integer
Dim db As Database
Dim i As Integer    
    Set db = DBEngine.Workspaces(0).Databases(0)    
    fExistTable = False
    db.TableDefs.Refresh
    For i = 0 To db.TableDefs.Count - 1
        If strTableName = db.TableDefs(i).Name Then
            ’Table Exists
            fExistTable = True
            Exit For
        End If
    Next i
    Set db = Nothing
End Function 
本文由 ★点击设计★ http://www.djasp.Net 收集整理。谢绝无聊之人转载!
Private Sub 命令0_Click()
fExistTable
End Sub 
★点击设计★ http://www.djasp.Net 全力打造WEB技术站点,欢迎大家访问!
用该事件出现‘参数不可选’的错误。仔细研究,发现fExistTable缺少参数,即已知表名没有在代码中反应。 
盗版它人网站的内容可耻,您查看的内容来源于★点击设计★www.djasp.Net
修改为: 
本文由 ★点击设计★ http://www.djasp.Net 收集整理。谢绝无聊之人转载!

Private Sub 命令0_Click()
fExistTable(”需判断的已知表名”)
End Sub 
请勿盗版 ★点击设计★ http://www.djasp.Net 网站上的内容,谢谢合作!
End Sub不再报错。仔细分析,其实是用 ”已知表名” 通过Dao判断数据库中是否存在,如果fExistTable的值为True就是存在,否则就是不存在。 
本文由 点击设计 http://www.djasp.Net 收集整理。谢绝无聊之人转载!
解决问题之余,想起Access数据库也有系统表,存放有对象名,可否做一查询来判定? 
盗版它人网站的内容可耻,您查看的内容来源于★点击设计★www.djasp.Net
经验证: 
本文由 ★点击设计★ http://www.djasp.Net 收集整理。谢绝无聊之人转载!

SELECT Count(*) AS Qty
FROM MSysObjects
WHERE (((MSysObjects.Name) Like "需判断的已知表名")); 
本文由 ★点击设计★ http://www.djasp.Net 收集整理。谢绝无聊之人转载!
可以实现需求。如果Qty>0,就表示表已存在,否则就不存在。

本文统计
上一篇: 怎么导出SQL所有用户表的字段信息
下一篇: 精妙Sql语句摘抄
文章类别:WEB数据库
最后更新:2006-9-23 10:58:23
浏览次数:
本栏最新文章
本栏推荐文章
随机酷站设计秀
网站导航 |走进点击 |点击作品 |服务项目 |联系我们 |设为首页 |加入收藏 |在线留言
点击设计
点击设计© Version: 2.3 WEB执行标准:W3C XHTML 1.1 / CSS 2.0 / Ajax
本站全面兼容 IE、FireFox、Netscape、Opera 等内核的浏览器
版权所有:点击设计 www.djasp.Net E-mail:djasp@qq.com
全程开发:秋水天子(Folier) QQ:39886616
版权所有:点击设计 www.djasp.net
浙ICP备05074939号