AFDatabase Class

<SerializableAttribute>
Public NotInheritable Class AFDatabase
	Inherits AFObject
	Implements IAFSecurable, IAFChangedEvent, IComparable(Of AFDatabase)

Dim instance As AFDatabase

[SerializableAttribute]
public ref class AFDatabase sealed : public AFObject, 
	IAFSecurable, IAFChangedEvent, IComparable<AFDatabase^>

[<SealedAttribute>]
[<SerializableAttribute>]
type AFDatabase =  
    class
        inherit AFObject
        interface IAFSecurable
        interface IAFChangedEvent
        interface IComparable<AFDatabase>
    end

' This example demonstrates how to use several properties of the DB object.

' Get the Database
Dim myPISystems As New PISystems
Dim myPISystem As PISystem = myPISystems.DefaultPISystem
Dim myDB As AFDatabase = myPISystem.Databases.DefaultDatabase

' Display information about the Default DB
Console.WriteLine("Name of Default DB = {0}", myDB.Name)
Console.WriteLine("Description of Default DB = {0}", myDB.Description)
Console.WriteLine("UniqueID of Default DB = {0}", myDB.UniqueID)

' Set the DB to the First DB
myDB = myPISystem.Databases(0)

' Display the name, description, and PIServerName of the first db
Console.WriteLine("Name of First DB = {0}", myDB.Name)
Console.WriteLine("Description of First DB = {0}", myDB.Description)
Console.WriteLine("UniqueID of First DB = {0}", myDB.UniqueID)

' Add a new Database
Dim newDB As AFDatabase = myPISystem.Databases.Add("NewDatabase")
newDB.Description = "This is a new Database"

' Display the Database Count
Console.WriteLine("Database Count = {0}", myPISystem.Databases.Count)

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.