MS4BI Database

  		 
	
	Start_Ms4BI_USERDB(directory)
	
	

  		   
text :LDriverapp,WWWLpathDataBase,WWwDirDb  ; 
GetDriverSysPath(LDriverapp);
 Str_Cat  LDriverapp,"\MANDRAGOREPLANETE\MS4BI\01-GETTING-STARTED-UNICODE" into WWwDirDb;
  
BEGIN ** 
 Start_Ms4BI_USERDB(WWwDirDb); 
END;
	
	

Definition

- Imports a file or table from an Excel Web
- Creates and adds a table to an MS4DB database

 
  	  	 IMPORT_Excel:   
			option :
			  BEGIN  
				 Input : 
    
				   File    : "#DRIVERSYS+\MandragorePlanete\MS4BI\01-GETTING-STARTED-ULTRASIMPLE\example.xlsx",
					 sheet  : "who","age",
					 File   : .....
                     sheet  : ...					 
    	 		 Output : 
 			       DBconnect {Ms4DB} (NewDb)  , 
		    		  Create : Table("[mytable]") 
 				 Sql : 
				(" SELECT  who.firstname, who.name,  age.age,age.sex  " +
				 " from  [who] ... " +
				 " INNER join  [age] ON who.name =  age.name  " 
				 " Join ............",
				 )  returning(nReturn)
			  END ;			
	if( nReturn =-1)  
	then 
	 display " nReturn ",nReturn;
	 display " Import : problem : exit......";
 		exit;		
	end_if;	

Definition

- Copy/Backup an MS4 DB database.

  		 
			 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_ADONEW DB, DBEXIST, DBCREATE, DBCONNECT, DBDELETE,DBCLOSE,DBBACKUP,TABLEEXIST,VIEWEXIST, MS4_SQL, EXPORT_TABLE, EXPORT_SCHEMA, Sql_DestroyEnv