Retrieving the Name of the Object Owner : User Account « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. User Account

Retrieving the Name of the Object Owner

 
Sub Get_ObjectOwner()
    Dim conn As ADODB.Connection
    Dim cat As ADOX.Catalog
    Dim strObjName As Variant
    Dim strDB As String
    Dim strSysDb As String

    strDB = CurrentProject.Path & "\mydb.mdb"
    strSysDb = CurrentProject.Path & "\mydb.mdw"
    strObjName = "Customers"

    Set conn = New ADODB.Connection
        With conn
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .Properties("Jet OLEDB:System Database") = strSysDb
            .Properties("User ID") = "Developer"
            .Properties("Password") = "mypass"
            .Open strDB
        End With

    Set cat = New ADOX.Catalog
    cat.ActiveConnection = conn

    Debug.Print "The owner of the " & strObjName & " table is " & vbCr _
      & cat.GetObjectOwner(strObjName, adPermObjTable) & "."
    Set cat = Nothing
    conn.Close
    Set conn = Nothing
End Sub

 

Related examples in the same category