Home > Language Reference > Classes > DatabaseInfo

AttrOpen Property

Indicates if the database is open.

Syntax

Public Property Get AttrOpen() As Boolean
Public Property Let AttrOpen(ByVal bOpen As Boolean)

Remarks

If the AttrOpen property is True, the database is open.

In the following example, we search for the database MySharedPalmDB using the FindByName method and if it is present in memory on the handheld device, we check to see if it is open by verifying the value of its AttrOpen property.

Private Sub Button1_Click()
  dim di as new DatabaseInfo
  'Search the MySharedPalmDb database
  If di.FindByName("MySharedPalmDb") Then
    'Check its Open bit 
    If di.AttrOpen=True Then
      MsgBox "MySharedPalmDb is already open!"
    Else
      MsgBox "MySharedPalmDb is closed."
    End if
  End if
End Sub

System requirements