Discussion :

[Hammane]

bonjour
J’utilise ce code pour transférer des enregistrements d'une table à l'autre en utilisant des paramètres.
Mais le problème qui me ploque que les dates Nulles transférés dans le champ (date_enr) prenne par défaut 30/12/1899
S’il vous plaît aidez mois à corriger ce code et bon courage
Merci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
var
i : integer;
Begin
 
DM1.Source.close;
DM1.Source.open;
DM1.Source.first;
 
While Not DM1.Source.eof  Do
 
Begin
 With DM1.destination Do
 
     Begin
     Active:=False;
     SQL.Clear;
     SQL.Add('Insert into customer (N°, FIRSTNAME,LASTNAME,CITY,COUNTRY,date_enr)');
     SQL.Add('Values (:b1 , :b2 , :b3 , :b4 , :b5, :b6)');
   for i:= 0 to DM1.Source.FieldCount-1 do
     Params[i].Value := DM1.source.Fields[i].Value;
     ExecSQL;
     End;
   DM1.source.next;
End;

[SergioMaster]

Bonsoir,

avec tout bon SGBD, une copie de table à table peut se faire en un seul SQL pas besoin de tant de code !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
INSERT INTO TABLEDESTINATION(champs destinations) SELECT (champs sources) FROM TABLESOURCE

pour ce qui est de la date c'est une autre histoire qui dépend plus du SGBD qu'autre chose

[Hammane]

Bonsoir

merci pour ta réponse mais le problème j'utilise deux (databaseName) différentes
la table source est dans un serveur à distance
et la table destinataire dans mon serveur

Bon Courage

[Hammane]

bonjour

Je voudrais copier une table d'une base de données à l'autre. Je sais que vous pouvez facilement faire ce qui suit si les bases de données sont sur le même serveur SQL.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

INSERT INTO TABLEDESTINATION(champs destinations) SELECT (champs sources) FROM TABLESOURCE

Existe-t-il un moyen simple de le faire si les bases de données se trouvent sur deux serveurs SQL différents, sans devoir parcourir tous les enregistrements de la table d'origine et les insérer dans la nouvelle table?

[SergioMaster]

Bonjour difficile à dire quand on a aucune indication du dit SGBD ! (à moins que je n'ai besoin de nouvelles lunettes)
Avec Firebird 2.5 c'est possible

[Hammane]

bonjour

le serveur de base de données Source : ingres
et le serveur de base de données destination flashfiler

Comment faire et Merci

[anapurna]

salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Begin
    ... 
    for i:= 0 to DM1.Source.FieldCount-1 do
    begin
       if DM1.source.Fields[i].DataType in [ftDate,ftDateTime]) then
       begin
          if  DM1.source.Fields[i].isnull Then 
          begin 
             Params[i].Clear;
             Params[i].Bound := TRUE;
             Params[i].DataType := ftDateTime;
          end
          else  
             Params[i].Value := DM1.source.Fields[i].Value;
        end
        else
          Params[i].Value := DM1.source.Fields[i].Value;  
     end;
     ExecSQL;
   End;
   DM1.source.next;
End;

[Hammane]

Bonjour
Merci pour votre réponse Monsieur anapurna

J’ai testé votre code Monsieur toute va bien la vitesse du transfert des enregistrements est impeccable ( 30 000 enregistrements dans moins de deux minutes).
Mais le seul problème et je n'étais pas en mesure de trouver une solution en ce qui concerne les domaines qui sont du type datetime.
pour les enregistrements vierges (valeurs nulles) dans la table source sont déplacés vers la table de destination en tant que date du 30/12/1899.
Et pour m'assurer que le problème dans la qualité du champ datetime je l'ai converti en chaîne dans la table de destination et les valeurs de transfert nulles facilement, mais je veux que mon champ dans la table destination de type datetime.
2 - Le second problème est que si le champ entier est vide dans la source, quel que soit son type, même s'il s'agit d'une chaîne, cela nous donne une erreur, c'est à dire qu'il ne reconnaît pas la plateforme à transférer vers destination.
Résumé : La conclusion de ce que j'ai essayé est que le problème dans les valeurs nulles
Comment forcer le code à convertir les valeurs nulles de la source à la destination quel que soit le type de champ datetime, string, integer ........


Merci pour votre attention

[SergioMaster]

Bonjour,

Ingres comme FlashFiler sont pour moi des inconnues.

A mon avis soit vous traitez les valeurs NULL à la source par l'intermédiaire de COALESCE en fournissant alors une valeur par défaut
soit vous traitez ce problème au cours de votre transfert cependant , ce problème est double :
- d'une part et c'est pour moi la première cause vous passez vos paramètres de manières non typées Params[i].Value := DM1.source.Fields[i].Value;, si je reprend le code proposé par anapurna j'aurais écrit Params[i].asDateTime := DM1.source.Fields[i].asDateTime;- d'autre part, en ce qui concerne la date 30/12/1899 c'est certainement le comportement normal de FlashFiler, en tout cas c'est le comportement de Paradox pour le traitement d'une date "nulle"

Pour tout ce qui concerne les NULL vous devez, avant tout, lire la documentation de Flashfiler à ce sujet (non, je n'ai pas cherché) pour des chaines un code du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  if  DM1.source.Fields[i].isNull then 
      begin
        DM1.source.Fields[i].DataType in [ftString] then Params[i].asString:=''; // chaine vide donc avec un 0x00
        ..... 
      end;

réglera certainement le problème du NULL pour les strings (notez que ce n'est ni plus ni moins que de mettre des valeurs par défaut !)

NB. vous pouvez peut être aussi joué avec votre composant de requête mais comme, là également, vous n'avez pas indiqué de quel type de composant il s'agit ...

[Hammane]

bonsoir

D'abord, Monsieur SergioMaster, merci de m'occuper de mon problème
J'ai essayé vos suggestions mais malheureusement le même problème toutes les valeurs nulles dans la tables source sont Convertis par la date par défaut du serveur FlashFiler dans la table testination.

ce qui concerne aux composantes des requêtes utilisés dans mon code sont les suivantes. (TQuery et TffQuery)

[Hammane]

Bonjour,

Merci à tous ceux qui m'ont aidé à trouver la solution, en particulier Monsieur anapurna et Monsieur SergioMaster
Ce code fonctionne très bien en MYSQL

Merci une autre fois et bon courage pour tous le monde

salutations

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Begin
    ... 
    for i:= 0 to DM1.Source.FieldCount-1 do
    begin
       if DM1.source.Fields[i].DataType in [ftDate,ftDateTime]) then
       begin
          if  DM1.source.Fields[i].isnull Then 
          begin 
             Params[i].Clear;
             Params[i].Bound := TRUE;
             Params[i].DataType := ftDateTime;
          end
          else  
             Params[i].Value := DM1.source.Fields[i].Value;
        end
        else
          Params[i].Value := DM1.source.Fields[i].Value;  
     end;
     ExecSQL;
   End;
   DM1.source.next;
End;