■如何判断库中已知表是否存在今日受人之托,...... 如何判断库中已知表是否存在今日受人之托,帮他解决这个问题,代码为通常的引用Dao做的一模块: 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 Private Sub 命令0_Click() fExistTable End Sub 用该事件出现‘参数不可选’的错误。仔细研究,发现fExistTable缺少参数,即已知表名没有在代码中反应。 修改为: Private Sub 命令0_Click() fExistTable(”需判断的已知表名”) End Sub End Sub不再报错。仔细分析,其实是用 ”已知表名” 通过Dao判断数据库中是否存在,如果fExistTable的值为True就是存在,否则就是不存在。 解决问题之余,想起Access数据库也有系统表,存放有对象名,可否做一查询来判定? 经验证: SELECT Count(*) AS Qty FROM MSysObjects WHERE (((MSysObjects.Name) Like "需判断的已知表名")); 可以实现需求。如果Qty>0,就表示表已存在,否则就不存在。 |
|小黑屋|最新主题|手机版|微赢网络技术论坛 ( 苏ICP备08020429号 )
GMT+8, 2024-9-30 11:27 , Processed in 0.243672 second(s), 12 queries , Gzip On, MemCache On.
Powered by Discuz! X3.5
© 2001-2023 Discuz! Team.