如何判斷庫中已知表是否存在今日受人之托，幫他解決這個問題，代碼為通常的引用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數據庫也有系統表，存放有對象名，可否做一查詢來判定？
經驗證：
SELECT Count(*) AS QtyFROM MSysObjectsWHERE (((MSysObjects.Name) Like "需判斷的已知表名")); |
可以實現需求。如果Qty>0,就表示表已存在，否則就不存在。
作者：http://www.zhujiangroad.com
來源：http://www.zhujiangroad.com
※以上資訊由網路資料整理而成，若有遺誤概以來源為準，本站不負任何相關責任。
※如果您認為網站上資訊侵犯了您的版權，請告訴我們
按這裡，我們將即時將您的版權資料移除。
