GetObjectOwner- und SetObjectOwner-Methode (Beispiel) (VB)

In diesem Beispiel werden die methoden GetObjectOwner und SetObjectOwner veranschaulicht. Dieser Code setzt voraus, dass die Gruppe Buchhaltung vorhanden ist (siehe Groups and Users Append, ChangePassword Methods Example (VB), um zu sehen, wie diese Gruppe zum System hinzugefügt wird). Der Besitzer der Tabelle "Kategorien" ist auf "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  

Siehe auch

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