Execute (TQueryExecuteTask )

function Execute(var aReason:string):boolean

Cette méthode exécute l'export.

aReason	Raison de l'échec
Return	True si l'export c'est exécuté

Exemple :

Export dans un fichier:

//Procedure Test;
var qbe:TQueryExecuteTask; doc:TxmlDocument; AStr,AReason:string;
begin
  qbe := TQueryExecuteTask.Create;
 
  doc := CreateDescriptor();
  AStr := doc.SaveToString;
 
  // This will recreate the document with the correct classes
  qbe.Descriptor.Document.LoadFromString(AStr);
 
  qbe.OutputFileName := 'c:\temp\exports\wfclassea.csv'; 
 
  if not qbe.canExecute then
   raise Exception.Create('can''t execute');
 
  if qbe.Execute(aReason) 
   then showMessage('execute OK')
   else showMessage('execute NOK '+aReason) 
end;

Export dans un containeur:

//Procedure Test;
var qbe:TQueryExecuteTask; doc:TxmlDocument; AStr,AReason:string;
begin
  qbe := TQueryExecuteTask.Create;
 
  doc := CreateDescriptor();
  AStr := doc.SaveToString;
 
  // This will recreate the document with the correct classes
  qbe.Descriptor.Document.LoadFromString(AStr);
 
  qbe.OutputContainerName := 'TestSyfre'; 
  qbe.OutputDocumentName := 'wfclassea'; 
 
  if not qbe.canExecute then
   raise Exception.Create('can''t execute');
 
  if qbe.Execute(aReason) 
   then showMessage('execute OK')
   else showMessage('execute NOK '+aReason) 
end;

Export dans une boîte à message:

//Procedure Test;
var qbe:TQueryExecuteTask; doc:TxmlDocument; AStr,AReason:string;
begin
  qbe := TQueryExecuteTask.Create;
 
  doc := CreateDescriptor();
  AStr := doc.SaveToString;
 
  // This will recreate the document with the correct classes
  qbe.Descriptor.Document.LoadFromString(AStr);
 
  // @glbUserName will be translated to current user name
  //
  qbe.OutputMailTo := '@glbUserName';
 
  if not qbe.canExecute then
   raise Exception.Create('can''t execute');
 
  if qbe.Execute(aReason) 
   then showMessage('execute OK')
   else showMessage('execute NOK '+aReason) 
end;

Voir aussi:

— TQueryExecuteTask_(class) — Développement DSM —