GetObjectOwner- und SetObjectOwner-Methoden – Beispiel (VB)

In diesem Beispiel werden die Methoden GetObjectOwner und SetObjectOwner veranschaulicht. Dieser Code geht davon aus, dass die Gruppe „Accounting“ (Buchhaltung) vorhanden ist (Informationen zum Hinzufügen dieser Gruppe zum System finden Sie unter Append- und ChangePassword-Methode für Gruppen und Benutzer – Beispiel (VB), um zu sehen, wie diese Gruppe dem System hinzugefügt wird). Der Besitzer der Tabelle „Kategorien“ ist auf „Accounting“ (Buchhaltung) festgelegt.

' BeginOwnersVB  
Sub OwnersX()  
  
    Dim tblLoop As New ADOX.Table  
    Dim cat As New ADOX.Catalog  
    Dim strOwner As String  
  
    ' Open the Catalog.  
    cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _  
        "Data Source=c:\Program Files\" & _  
        "Microsoft Office\Office\Samples\Northwind.mdb;" & _  
        "jet oledb:system database=" & _  
        "c:\Program Files\Microsoft Office\Office\system.mdw"  
  
    ' Print the original owner of Categories  
    strOwner = cat.GetObjectOwner("Categories", adPermObjTable)  
    Debug.Print "Owner of Categories: " & strOwner  
  
    ' Set the owner of Categories to Accounting  
    cat.SetObjectOwner "Categories", adPermObjTable, "Accounting"  
  
    ' List the owners of all tables and columns in the catalog.  
    For Each tblLoop In cat.Tables  
        Debug.Print "Table: " & tblLoop.Name  
        Debug.Print "   Owner: " & _  
            cat.GetObjectOwner(tblLoop.Name, adPermObjTable)  
    Next tblLoop  
  
    ' Restore the original owner of Categories  
    cat.SetObjectOwner "Categories", adPermObjTable, strOwner  
  
End Sub  
' EndOwnersVB  

Weitere Informationen

Catalog-Objekt (ADOX)
GetObjectOwner-Methode (ADOX)
SetObjectOwner-Methode