DBEngine 屬性

可以使用 DBEngine 屬性在 Visual Basic 中訪問當前的 DBEngine 對象及其相關(guān)屬性。

expression.DBEngine

expression     必需。返回“應用于”列表中的一個對象的表達式。

說明

DBEngine 由 Microsoft Access 設置，且在所有視圖中都是只讀的。

Application 對象的 DBEngine 代表 Microsoft Jet 數(shù)據(jù)庫引擎。DBEngine 對象是 Data Access Objects (DAO) 模型中的頂層對象，它包含并控制 Data Access Objects 結(jié)構(gòu)中的所有對象。

示例

以下示例在消息框中顯示 DBEngine 屬性。

Private Sub Command1_Click()

    DisplayApplicationInfo Me

End Sub

Function DisplayApplicationInfo(obj As Object) As Integer

    Dim objApp As Object, intI As Integer, strProps As String

    On Error Resume Next

        ' Form Application property.

        Set objApp = obj.Application

        MsgBox "Application Visible property = " & objApp.Visible

        If objApp.UserControl = True Then

        For intI = 0 To objApp.DBEngine.Properties.Count - 1

            strProps = strProps & objApp.DBEngine.Properties(intI).Name & ", "

        Next intI

        End If

        MsgBox Left(strProps, Len(strProps) - 2) & ".", vbOK, "DBEngine Properties"

End Function