4D v14

Import basé sur les procédures stockées (exemple)

Accueil

 
4D v14
Import basé sur les procédures stockées (exemple)

Import basé sur les procédures stockées (exemple)  


 

 

L'exemple suivant démontre comment l'import de données peut être accéléré de manière spectaculaire en environnement client/serveur. La méthode Import classique listée ci-dessous vous permet de mesurer combien de temps prend un import d'enregistrements basé sur la commande IMPORTER TEXTE :

  ` Méthode projet Import classique
 $vhDocRef:=Ouvrir document("")
 Si(OK=1)
    FERMER DOCUMENT($vhDocRef)
    FORMULAIRE ENTREE([Table1];"Import")
    $vhStartTime:=Heure courante
    IMPORTER TEXTE([Table1];Document)
    $vhEndTime:=Heure courante
    ALERTE("L'opération a duré "+Chaine(0+($vhEndTime-$vhStartTime))+" secondes.")
 Fin de si

Avec l'import de données classique, 4D analyse le fichier ASCII puis, pour chaque enregistrement, crée un nouvel enregistrement, remplit les champs avec les valeurs importées et envoie l'enregistrement au poste serveur afin qu'il soit ajouté à la base. Par conséquent, de nombreuses requêtes circulent sur le réseau. Afin d'optimiser l'opération, vous pouvez utiliser des procédures stockées pour effectuer l'import localement sur le poste serveur. Le poste client charge le document dans un BLOB et déclenche une procédure stockée en passant le BLOB comme paramètre. La procédure stockée place le BLOB dans un document sur le disque du poste serveur, puis importe le document en local. L'import des données est par conséquent effectué localement à une vitesse comparable à celle d'une version locale de 4D, car la plupart des requêtes transitant sur le réseau ont été éliminées. Voici la méthode projet CLIENT IMPORT. Lancée sur le poste client, elle déclenche l'exécution de la procédure stockée SERVER IMPORT, listée à la suite :

  ` Méthode projet CLIENT IMPORT
  ` CLIENT IMPORT ( Pointeur ; Texte )
  ` CLIENT IMPORT ( -> [Table] ; Formulaire entrée )
 
 C_POINTEUR($1)
 C_TEXTE($2)
 C_HEURE($vhDocRef)
 C_BLOB($vxData)
 C_ENTIER LONG(spErrCode)
 
  ` Sélectionnez le document à importer
 $vhDocRef:=Ouvrir document("")
 Si(OK=1)
  ` Si un document était sélectionné, ne pas le garder ouvert
    FERMER DOCUMENT($vhDocRef)
    $vhStartTime:=Heure courante
  ` Essayons de le charger en mémoire
    DOCUMENT VERS BLOB(Document;$vxData)
    Si(OK=1)
  ` Si le document a pu être chargé dans le BLOB,
  ` Démarrer la procédure stockée qui va importer les données sur le poste serveur
       $spProcessID:=Executer sur serveur("SERVER IMPORT";32*1024;"Serveur Import Services";Table($1);$2;$vxData)
  ` Nous n'avons alors plus besoin du BLOB dans ce process
       EFFACER VARIABLE($vxData)
  ` Attendons l'achèvement de l'opération effectuée par la procédure stockée
       Repeter
          ENDORMIR PROCESS(Numero du process courant;300)
          LIRE VARIABLE PROCESS($spProcessID;spErrCode;spErrCode)
          Si(Indefinie(spErrCode))
  ` Note: si la procédure stockée n'a pas initialisé sa propre instance
  ` de la variable spErrCode, il se peut qu'une variable indéfinie soit retournée
             spErrCode:=1
          Fin de si
       Jusque(spErrCode<=0)
  ` Envoyons un accusé de réception à la procédure stockée
       spErrCode:=1
       ECRIRE VARIABLE PROCESS($spProcessID;spErrCode;spErrCode)
       $vhEndTime:=Heure courante
       ALERTE("L'opération a duré "+Chaine(0+($vhEndTime-$vhStartTime))+" secondes.")
    Sinon
       ALERTE("Il n'y a pas assez de mémoire pour charger le document.")
    Fin de si
 Fin de si

Voici la méthode projet SERVER IMPORT exécutée en tant que procédure stockée :

  ` Méthode projet SERVER IMPORT
  ` SERVER IMPORT ( Entier long ; Texte ; BLOB )
  ` SERVER IMPORT ( Numéro de table ; Formulaire entrée ; Données importées )
 
 C_ENTIER LONG($1)
 C_TEXTE($2)
 C_BLOB($3)
 C_ENTIER LONG(spErrCode)
 
  ` L'opération n'est pas encore terminée, affectons 1 à spErrCode
 spErrCode:=1
 $vpTable:=Table($1)
 FORMULAIRE ENTREE($vpTable->;$2)
 $vsDocName:="Fichier Import "+Chaine(1+Hasard)
 Si(Sous Windows)
    $vsDocName:=$vsDocName+".txt" ` Sous Windows, l'extension est obligatoire
 Fin de si
 SUPPRIMER DOCUMENT($vsDocName)
 BLOB VERS DOCUMENT($vsDocName;$3)
 LECTURE ASCII($vpTable->;$vsDocName)
 SUPPRIMER DOCUMENT($vsDocName)
  ` L'opération est terminée, affectons 0 à spErrCode
 spErrCode:=0
  ` Attendons que le poste client à l'origine de la requête ait reçu les résultats
 Repeter
    ENDORMIR PROCESS(Numero du process courant;1)
 Jusque(spErrCode>0)

Note : La méthode projet Sous Windows est fournie dans la section Présentation des documents système du manuel Langage de 4D.

Une fois que ces deux méthodes projet ont été implémentées dans votre base, vous pouvez effectuer un import basé sur une procédure stockée, en écrivant par exemple :

 CLIENT IMPORT(->[Table1];"Import")

Si vous réalisez quelques tests comparatifs, vous pourrez constater qu'avec ce type de méthode, l'import des enregistrements est jusqu'à 60 fois plus rapide qu'un import "classique".

 
PROPRIÉTÉS 

Produit : 4D
Thème : 4D Server et le langage 4D
Nom intl. : SP-Based Import (Example)

 
VOIR AUSSI  

Procédures stockées
Services basés sur les procédures stockées (exemple)

 
UTILISATION DE L'ARTICLE

4D Server - Référence ( 4D v13)
4D Server - Référence ( 4D Server v12)
4D Server - Référence ( 4D Server v11 SQL Release 6)
4D Server - Référence ( 4D v14 R2)
4D Server - Référence ( 4D v14)
4D Server - Référence ( 4D v14 R3)
4D Server - Référence ( 4D Server v14 R4)