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

时间:2009-11-07 08:15:29  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:yle="font-size: 9pt"> Function fExistTable(strTableName As String) As IntegerDim db As DatabaseDim 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 ...
  正文:

如何判断库中已知表是否存在今日受人之托,帮他解决这个问题,代码为通常的引用Dao做的一模块: 

Function fExistTable(strTableName As String) As IntegerDim db As DatabaseDim 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 = NothingEnd Function Private Sub 命令0_Click()fExistTableEnd Sub

用该事件出现‘参数不可选’的错误。仔细研究,发现fExistTable缺少参数,即已知表名没有在代码中反应。

修改为:

 

Private Sub 命令0_Click()fExistTable(”需判断的已知表名”)End Sub

End Sub不再报错。仔细分析,其实是用 ”已知表名” 通过Dao判断数据库中是否存在,如果fExistTable的值为True就是存在,否则就是不存在。

解决问题之余,想起Access数据库也有系统表,存放有对象名,可否做一查询来判定? ---www.002pc.com

经验证:

 

SELECT Count(*) AS QtyFROM MSysObjectsWHERE (((MSysObjects.Name) Like "需判断的已知表名"));

可以实现需求。如果Qty>0,就表示表已存在,否则就不存在。

"如何用SQL语句来判断已知表是否存在"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Database/SQLyufajiaocheng/2009-01-07/8840.html


关键字:

关于《如何用SQL语句来判断已知表是否存在》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td