DBBACKUP{MS4DB}(string path + DB Name src ) to  (string path + DB Name dest ) return integer (optional);
 	

  
 
Char : LCurrentDir:256, LcurrentDirdb_src :256 ,LcurrentDirdb_dest :256  ;
 integer : yes :=1,msgsql;
Getcurrentdir(LCurrentDir);
str_format( LcurrentDirdb_src,"%s\Ms4BI-DemoExcelCube.db",LCurrentDir);
str_format( LcurrentDirdb_dest,"%s\Ms4BI-DemoExcelCube_backupex.db",LCurrentDir);
 ** pc 
 DBBackup{Ms4db}  (LcurrentDirdb_src) to  (  LcurrentDirdb_dest) return (msgsql);
  if(msgsql= 1)
  then
  display "ok   local  PC backup";
  else
  display "ko  local  PC  backup";
  end_if;
  
  ** server   
 DBBackup{Ms4db}("#WWWMS4BISERVER+\Ms4BI-DemoExcelCube.db") to (  "#WWWMS4BISERVERBACKUP+\Ms4BI-DemoExcelCube.db") return (msgsql);
  if(msgsql= 1)
  then
  display "ok   local WEB backup";
  else
  display "ko  local WEB  backup";
  end_if; 
  
  enter; 
	

Remarks

Only applies to the MS4DB driver.
integer : returns FALSE (0) if there is a problem :backup ko, otherwise TRUE (0) backup Ok

See also

IMPORT NEW DB, DBEXIST, DBCREATE, DBCONNECT, DBDELETE,DBCLOSE,DBBACKUP,TABLEEXIST,VIEWEXIST, MS4_SQL, EXPORT_TABLE, EXPORT_SCHEMA, Sql_DestroyEnv

---

KEYWORD : TABLEEXIST

:

Definition

- Tests if an MS4 DB table or a file is present.

Syntax

  		 
			TableExist (string file Name ) return integer  ; 

		 or   TableExist{Driver}(string DB Name ) return integer  ;
 	

Example 1 FILE

  
 	Concatene  LCurrentDir,"\japaneseExample.xls"     into  Lfile1Excel;
 	Tableexist(Lfile1Excel) return (X) ;
	if (x not_void ) then
              Display " Table Ok : continue  " ,Lfile1Excel Column 40;
	ELSE
               Display "Table not found : database problem !! ",Lfile1Excel;  
	Exit;
	End_if ;
 
	

Example 2 MS4 DB

 	
 	BEGIN
		DBconnect{Ms4db}( LEnvSQLDB);
		Tableexist{Ms4db}("ItabOrder") Return  ( msgsql) ;
		/* 2 return codes : TRUE or FALSE */
 
		if ( msgsql = TRUE) then
		  Ms4_SQL{Ms4db}(  "DROP TABLE  ItabOrder   ");  
			Display " Dropping Table ItabOrder!!";
		else 
 		Display " Table ItabOrder does not exist !!";
		End_if;        
        END;

Remarks

integer : returns TRUE (1) if present, otherwise FALSE (0)
not_void = TRUE void = FALSE

See also

IMPORT NEW DB, DBEXIST, DBCREATE, DBCONNECT, DBDELETE,DBCLOSE,DBBACKUP,TABLEEXIST,VIEWEXIST, MS4_SQL, EXPORT_TABLE, EXPORT_SCHEMA, Sql_DestroyEnv

---

KEYWORD : VIEWEXIST

:

Definition

- Tests for the presence of an MS4 DB view.

Syntax

  		 
			ViewExist{Driver}(string DB Name ) return integer  ;
 	

Example

 	
 BEGIN      ** DB Connect ..    	
              DBconnect{Ms4DB}(LEnvDemoExcelDB);
		 ViewExist{Ms4DB}("ReportTotalID") Return  (msgsql) ;
		/* 2 return codes : TRUE or FALSE */
  
		if ( msgsql = TRUE) then
			Ms4_SQL{Ms4DB}(  "DROP VIEW  ReportTotalID   "); 
		end_if; /* create a new view */
		Ms4_sql{Ms4DB} (" CREATE  VIEW ReportTotalID  as " +
				" select DISTINCT orderID ,employeeid,LastName ,productID,unitprice," +  
                               "  strftime('%Y',orderDate)  as YEARBUSINESS " +
                                "   from  [ms4EmplConsolidationBusiness]   " +
				"  order by  YEARBUSINESS,employeeID,shipcountry ,orderID "); 
END;        
 

Remarks

Only applies to MS4 DB.
integer : returns TRUE (1) if present, otherwise FALSE (0)
not_void = TRUE void = FALSE

See also

IMPORT NEW DB, DBEXIST, DBCREATE, DBCONNECT, DBDELETE,DBCLOSE,DBBACKUP,TABLEEXIST,VIEWEXIST, MS4_SQL, EXPORT_TABLE, EXPORT_SCHEMA, Sql_DestroyEnv

---

KEYWORD : EXPORT_TABLE

:

Definition

- Exports all tables and views for an MS4 DB database in EXCEL, CSV, TXT, HTML, XML format.

Syntax

  		 
			Export_table(string DB Name )    ;
 	

Example

 	
     BEGIN  
 		DBexist{Ms4DB}(LEnvDemoExcelDB) return (X) ;
		/*   return codes */
		** x = 1 : Ok , x = 0 Not ok */
		 if (x void) then
                  Display "DB not found ", LEnvDemoExcelDB; 
				  enter;
				  Exit;
                 End_if;
     END;
		Display " Ms4 Script------------------------------------>Cube : ";
		Display " Export All Tables  : ",LEnvDemoExcelDB;
		Display " Ms4 Script-------------------------------------------> ";
  		       BEGIN **   
	 			    Export_Schema (LEnvDemoExcelDB);
				END;
		Display " End : Go to   :\MandragorePlanete\MS4BI\Ms4BiServer\www\mandragorechart ";
    
 

Remarks

Only applies to MS4 DB
- Exports Excel, txt, html, xlm files to: \MandragorePlanete\MS4BI\Ms4BiServer\www\mandragorechart

See also

IMPORT NEW DB, DBEXIST, DBCREATE, DBCONNECT, DBDELETE,DBCLOSE,DBBACKUP,TABLEEXIST,VIEWEXIST, MS4_SQL, EXPORT_TABLE, Sql_DestroyEnv

---

KEYWORD : EXPORT_SCHEMA

:

Definition

- Exports all table schemas from an MS4 DB database in HTML format

Syntax

  		 
			Export_schema(string DB Name )    ;
 	

Example

 
       BEGIN   
 		DBexist{Ms4DB}(LEnvDemoExcelDB) return (X) ;
		/*   return codes */
		** x = 1 : Ok , x = 0 Not ok */
		 if (x void) then
                  Display "DB  not found ", LEnvDemoExcelDB; 
				  enter;
				  Exit;
                 End_if;
        END;
		Display " Ms4 Script------------------------------------>Cube : ";
		Display " Export All Tables  : ",LEnvDemoExcelDB;
		Display " Ms4 Script-------------------------------------------> ";
  		              BEGIN **   
	 			    Export_Schema(LEnvDemoExcelDB);
				END;
		Display " End : Go to   :\MandragorePlanete\MS4BI\Ms4BiServer\www\mandragorechart ";
    
 

Remarks

Only applies to MS4 DB
- Exports schemas to an html file in : \MandragorePlanete\MS4BI\Ms4BiServer\www\mandragorechart

See also

IMPORT NEW DB, DBEXIST, DBCREATE, DBCONNECT, DBDELETE,DBCLOSE,DBBACKUP,TABLEEXIST,VIEWEXIST, MS4_SQL, EXPORT_TABLE, EXPORT_SCHEMA, Sql_DestroyEnv

---

KEYWORD : Sql_DestroyEnv

:

Definition

- Destroys the connection environment and SQL for MS4 DB, ADO, ODBC databases.

Syntax

  		 
			Sql_DestroyEnv()    ;
 	

Example

 
       BEGIN   
 	DBconnect{Ado:"xls"}(LcurrentDirExcel);
		Ms4_Query: Web {Ado:"xls"}("SELECT * FROM [viewInvoices$]   " );
 
		Sql_DestroyEnv();
        END;
	 

See also

IMPORT NEW DB, DBEXIST, DBCREATE, DBCONNECT, DBDELETE,DBCLOSE,DBBACKUP,TABLEEXIST,VIEWEXIST, MS4_SQL, EXPORT_TABLE, EXPORT_SCHEMA, Sql_DestroyEnv

---

Interested in joining us? contact@mgplanete.com
The Mg Planete team

---

Copyright 2022 by Mandragore Planete

the official sites :
mgplanete.com
getms4bi.com
demos.ms4bi.com
help.ms4bi.com
ms4script.com

---

Download

official site :
getms4bi.com

---

Our purpose : Keep it simple !

written with ms4script

• help 01.010.2022.8

MS4BI in 5 minutes