Function AX_TableType() Professional
Determine whether the current database file is encrypted.
AX_TableType() --> nType
The return value corresponds to one of the following #define constants:
Return | Description |
---|---|
ADS_NO_TABLE | No open database file |
ADS_STANDARD_TABLE | Standard database file |
ADS_ENCRYPTED_TABLE | Encrypted database file |
The function detects if the current database file is encrypted.
#include "ads.ch"
// Install ADSDBE as default database engine.
PROCEDURE DbeSys
IF !DbeLoad( "ADSDBE" )
Alert( "ADSDBE could not be installed!" )
ENDIF
DbeSetDefault( "ADSDBE" )
RETURN
PROCEDURE Main
// Connect to database server.
LOCAL cConnect := "DBE=ADSDBE;SERVER=\\ALASKA\VOL1"
LOCAL oSession := DacSession():new( cConnect )
LOCAL nType
IF .NOT. oSession:isConnected()
Alert( "Connection to server could not be established!" )
QUIT
ENDIF
// Open TEST.DBF and determine whether it is encrypted.
USE Test NEW EXCLUSIVE
nType := AX_TableType()
DO CASE
CASE nType == ADS_NO_TABLE
?? ": No database file in use!"
CASE nType == ADS_STANDARD_TABLE
?? ": Not encrypted."
CASE nType == ADS_ENCRYPTED_TABLE
?? ": Encrypted."
ENDCASE
// Close databases and disconnect from server.
DbCloseAll()
oSession:disconnect()
RETURN
If you see anything in the documentation that is not correct, does not match your experience with the particular feature or requires further clarification, please use this form to report a documentation issue.