Promotic
WikipediaLinkedInYoutubeTwitterFacebook

GetPersistInfo - method of object PmTrend

Description:
Getting information regarding data saving on the disk
Syntax:
GetPersistInfo(sType As String) As Variant
Calling:
vInfo = oTrend.GetPersistInfo(sType)
Parameters:
sType(String) Type of the required information that has to be returned by the method.
"type" - The method returns system name of the storage technology:
- "promoticcyclic" for Promotic binary file cyclic
- "accesscyclic" for Database Access cyclic
- "mssqlcyclic" for Database MS SQL server cyclic
- "oraclecyclic" for Database Oracle cyclic
- "mysqlcyclic" for Database MySQL cyclic
- "firebirdcyclic" for Database FireBird cyclic
"activefilename" - If in the configurator the Storage type backup type is set to storing to a disk file (Database Access backups (obsolete), Promotic binary file cyclic, Database Access cyclic), then the method returns the file name without path, elsewhere it returns the empty string "".
"activefilepath" - If in the configurator the Storage type backup type is set to storing to a disk file (Database Access backups (obsolete), Promotic binary file cyclic, Database Access cyclic), then the method returns the file name with path, elsewhere it returns the empty string "".
"activedatabase" - If in the configurator the Storage type backup type is set to storing to a database (Database Access backups (obsolete), Database MS SQL server backups (obsolete), Database MS SQL server cyclic, Database Oracle cyclic, Database MySQL cyclic, Database FireBird cyclic, Database Access cyclic), then the method returns the name of the database, where the data are stored, elsewhere it returns the empty string "".
Example:
Dim sType,sFileName,sFilePath,sDatabase
sType = oTrend.GetPersistInfo("type")
sFileName = oTrend.GetPersistInfo("activefilename")
sFilePath = oTrend.GetPersistInfo("activefilepath")
sDatabase = oTrend.GetPersistInfo("activedatabase")
Pm.Debug "Storage technology: " & sType
Pm.Debug "File name: " & sFileName
Pm.Debug "File name with path: " & sFilePath
Pm.Debug "Database: " & sDatabase
© MICROSYS, spol. s r. o.Tavičská 845/21 703 00 Ostrava-Vítkovice