Discussion :

[aimer_Delphi]

Bonjour à tous,

je souhaite transférer les données d'une vieille base de données Interbase 7.5 vers une autre Firebird 4.
pour cela j'utilise FDBatchMove .
la table des articles sur Interbase 7.5 ne contient aucun doublon car l'index primaire est sur codeArt.

mais lors du transfert des articles j'obtiens un message d'erreur de violation de clé primaire .

en plus le transfert est un peu lourd (17884 ligne)

voici le bout de code que j'utilise :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TFMain.Button1Click(Sender: TObject);
begin
 
  Screen.Cursor := crHourGlass ;
 
  Application.ProcessMessages ;
  try
     DataModule1.FDBatchMove1.Execute;
     ShowMessage('Terminé');
  finally
     Screen.Cursor := crDefault ;
  end;
end;

Avez vous une idée SVP ?

[SergioMaster]

La première idée qui me vient : la structure et les contraintes ne sont pas les mêmes dans la table destinataire (Firebird).
La seconde, il y a un moyen d'obtenir la liste des erreurs, voir de les ignorer

pour répondre plus, il faut regarder
- la structure de la table Interbase
- la structure de la table Firebird
il doit y avoir des différences, je pense par exemple à une sequence (ou générateur)

[aimer_Delphi]

Bonjour Sergio , et merci pour la réponse et pour le suivi.
bon , voila la structure de la table des articles:

Code SQL :

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

1
2
3
4
5
6
7
8
CREATE TABLE Stock 
(
  CODEART	VARCHAR(15) NOT NULL,
  DESIGNATION	VARCHAR(100),
  STOCKREEL	NUMERIC(15, 2),
  PRIX	NUMERIC(15, 2),
CONSTRAINT PKStock  PRIMARY KEY (CODEART)
);

c'est la même structure pour interbase et pour firebird.
aucun generateur n'est utilisé.

[SergioMaster]

Dans ce cas il faudrait faire une trace des erreurs avec TBatchMove
Peut-être Interbase 7.5 garde t-elle la trace d'enregistrements supprimés ?

[aimer_Delphi]

Dans ce cas il faudrait faire une trace des erreurs avec TBatchMove
Peut-être Interbase 7.5 garde t-elle la trace d'enregistrements supprimés ?

normalement un backup restore de la base interbase regle le probleme.

et aussi j'ai trouvé cette discussion qui ressemble la mienne

How exclude primary key field from FDbatchmove append?

[aimer_Delphi]

en suivant la solution proposée sur ce lien How exclude primary key field from FDbatchmove append?

au lieu d'insert j'ai fait un append.

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
procedure TFMain.Button1Click(Sender: TObject);
var ind:integer;
begin
 
  Screen.Cursor := crHourGlass ;
 
  Application.ProcessMessages ;
  try
     DataModule1.FDBatchMove1.Mappings.Clear;
     DataModule1.FDBatchMove1.Mappings.AddAll;
     ind := DataModule1.FDBatchMove1.Mappings.IndexOfName('PKStock');
     if ind<>-1 then
      DataModule1.FDBatchMove1.Mappings.Delete(ind);
     DataModule1.FDBatchMove1.Execute;
     ShowMessage('Terminé');
  finally
     Screen.Cursor := crDefault ;
  end;
end;

ça a l'air marche bien.
seulement dans la table Interbase j'ai 17884 lignes , mais apres le transfert dans la table firebird j'ai 17877 lignes

[SergioMaster]

seulement dans la table Interbase j'ai 17884 lignes , mais après le transfert dans la table firebird j'ai 17877 lignes

C'est anormal

pour Firebird j'aurai utilisé une structure différente

Code SQL :

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

1
2
3
4
5
6
7
8
9
10
CREATE TABLE Stock 
( ID BIGINT GENERATED BY DEFAULT AS IDENTITY (START WITH 1) NOT NULL,  
  CODEART	VARCHAR(15) NOT NULL,
  DESIGNATION	VARCHAR(100),
  STOCKREEL	NUMERIC(15, 2),
  PRIX	NUMERIC(15, 2),
CONSTRAINT PKStock  PRIMARY KEY (ID)
);
-- et ajouté un index (peut-être après copie pour rechercher ensuite les doublons)  
CREATE UNIQUE INDEX IDX_CODEART ON STOCK  (CODEART);

De plus, il y a encore une possibilité, la sensibilité à la casse. Vérifier les 'Character Set' des 2 bases de données

[aimer_Delphi]

C'est anormal

De plus, il y a encore une possibilité, la sensibilité à la casse. Vérifier les 'Character Set' des 2 bases de données

Pour interbase chartset = none
pour firebird charset = utf8.

en plus j'ai une autre idée ,
1- pour la table firebird , je supprime la clé primaire.
2-apres la copie , je cherche les doublons , et je les supprime sauf une seul ligne.
3- je recrée la clé primaire.

mais pour le deuxième point , comment supprimé les doublons sauf une seul ligne ?

[SergioMaster]

J'ai proposé la même chose !
Il s'agit donc bien d'un problème de charset

mais pour le deuxième point , comment supprimer les doublons sauf une seul ligne ?

avec ma proposition (utilisation d'un ID autogénéré) le choix deviendrait plus facile puisque vous pourriez déceler les différences.

Une autre solution, que je ne conseille pas vraiment, consisterait à mettre la colonne CODEART en Charset NONE pour faire le transfert
étudier ensuite les doublons (en traitant, dans la clause where de la requête, la colonne en charset UTF8)
enfin une fois les corrections faites (par exemple en dupliquant la colonne) il n'y a, après tout, que 7 enregistrements à modifier

[aimer_Delphi]

Bonjour,
Merci beaucoup Sergio pour la réponse et pour le suivi.
je vais mettre cette discussion comme