GetObjectOwner 및 SetObjectOwner 메서드 예제(VB)

이 예제에서는 GetObjectOwner 및 SetObjectOwner 메서드를 보여 줍니다. 이 코드는 그룹 회계가 있다고 가정합니다(이 그룹을 시스템에 추가하는 방법을 보려면 그룹 및 사용자 추가, ChangePassword 메서드 예제(VB) 참조). Categories 테이블의 소유자가 Accounting으로 설정됩니다.

' 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  

참고 항목

카탈로그 개체(ADOX)
GetObjectOwner 메서드(ADOX)
SetObjectOwner 메서드