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 —