Execute (TQueryExecuteTask ) - Historique des versions

Syfre le 15 janvier 2020 à 07:16

2020-01-15T07:16:36Z

Syfre le 14 janvier 2020 à 16:10

2020-01-14T16:10:52Z

Syfre : Page créée avec « function Execute(var aReason:string):boolean Cette méthode exécute l'export. {|class="wikitable" |- |aReason |Raison de l'échec |- |Ret... »

2020-01-14T15:22:04Z

Page créée avec « <source lang='delphi'>function Execute(var aReason:string):boolean</source> Cette méthode exécute l'export. {|class="wikitable" |- |aReason |Raison de l'échec |- |Ret... »

Nouvelle page

<source lang='delphi'>function Execute(var aReason:string):boolean</source>

Cette méthode exécute l'export.

{|class="wikitable"
|-
|aReason
|Raison de l'échec
|-
|Return
|True si l'export c'est exécuté
|}

Exemple :

<source lang="delphi">
</source>

Voir aussi:

{{Footer|TQueryExecuteTask_(class)}}
[[Category:TQueryExecuteTask]]

@@ Ligne 45 : / Ligne 45 : @@
 var qbe:TQueryExecuteTask; doc:TxmlDocument; AStr,AReason:string;
 begin
-   qbe := TQueryExecuteTask.Create;
+   ...
+   qbe.OutputContainerName := 'MyContainerName';
-  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;
 </source>
@@ Ligne 71 : / Ligne 58 : @@
 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
@@ Ligne 83 : / Ligne 64 : @@
    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;
 </source>
 Voir aussi:

@@ Ligne 13 : / Ligne 13 : @@
 Exemple :
 <source lang="delphi">
 </source>
 Voir aussi: