Discussion :

[Evangeline]

Bonjour, je dois retailler une zone d'un fichier pour l'allonger. Je procède donc par duplication des données dans une table en sortie retaillée mais j'ai un souci avec une zone date qui passe mal dans certains cas. A première vue elle contient bien une date mais le format coince quelque part. Le pire c'est que c'est infime genre une date sur 80.000 mais elle génère le plantage et il faut que je la retape manuellement pour que ça passe.
Quelqu'un aurait-t-il une solution pour contourner le problème ? Merci d'avance pour votre aide
Bonne fin de journée

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
26
27
28
 try
 While not TableIn.Eof do
 begin
  TableOut.Append;
  For NbChamp := 0 to TableIn.Fields.Count - 1 do
  begin
   if Not (TableIn.Fields[NbChamp].DataType = ftAutoInc) then
   begin
    NomChamp := TableIn.Fields[NbChamp].FieldName;
    If TableOut.FindField(TableIn.Fields[NbChamp].FieldName) <> Nil then
     TableOut[NomChamp] := TableIn[NomChamp];
   end;
  end;
  try
   TableOut.Post;
  except
   on E:Exception do
   begin
    MessageBox(Application.Handle,
               Pchar('Erreur lors de l''enregistrement dans la base ' + TableOut.TableName + #13 +
               E.Message),
               'Transposition',
               MB_OK or MB_ICONHAND);
    Exit;
   end;
  end;
  TableIn.Next;
 end;

[ShaiLeTroll]

Quel type de fichier ?
TTable ? Paradox, le changement de taille ne nécessite pas normalement de recopie de la table, les fonctions comme dbiRestructure le font très bien

[Evangeline]

Là tu m'intéresses car c'est effectivement du paradox et je n'ai que 2 zones en char à agrandir !

J'ai fait des recherches sur cette fonction de restructuration et je n'ai rien trouvé surtout que je suis nulle en anglais so help me please ! Thanks

[Evangeline]

En fait j'ai des dates farfelues qui ressortent lors de la transposition de la table et Delphi n'aime pas trop ça !
Il faudrait donc protéger ces zones date pour les faire passer en rusant quoi ...
Je serais donc preneuse de toute solution allant dans ce sens
Merci d'avance et bon week-end

[ShaiLeTroll]

J'en ai pas fait depuis longtemps du Paradox mais le SQL est supporté ! non ?

En tout cas les exempels du Module de Base de Données semble le confirmé

Par exemple, l’instruction suivante supprime deux colonnes d’une table Paradox :

Code sql :

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

ALTER TABLE "employes.db" DROP NOM, DROP PRENOM

il évoque aussi le ADD mais pour dbf

Code sql :

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

ALTER TABLE "employes.dbf" ADD NO_CONSTRUCT SMALLINT

tente ceci depuis Module de Base de Données (ça fonctionne)

Code sql :

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

1
2
3
ALTER TABLE "C:\Dossier\2myParadoxEXE.DB" ADD NOUVELLECOL CHAR(255);
UPDATE "C:\Dossier\2myParadoxEXE.DB" SET NOUVELLECOL = ANCIENNECOLTROPPETITE;
ALTER TABLE "C:\Dossier\2myParadoxEXE.DB" DROP ANCIENNECOLTROPPETITE;

puis test sur un TQuery, je crois que si DataBaseName est renseigné, il n'est plus nécessaire de mettre le chemin complet

[SergioMaster]

En fait j'ai des dates farfelues qui ressortent lors de la transposition de la table et Delphi n'aime pas trop ça !

avoir des dates farfelues dans un table devrait quand même t'interpeller ! cela semble anormal !

plutôt que de faire un while not eof do etc... un batchmove aurait été efficace (et plus facile a coder)
mais la solution de Shai est de toute façon bien meilleure que de se taper un programme pour faire le boulot , vive le SQL !

petite remarque : il aurait bien de dire dans le titre de quel type de BDD il s'agissait , j'ai zappé une première fois ce post a cause de ça

[Evangeline]

Les premières commandes passent bien, le programme crée la nouvelle colonne et y copie les données de l'ancienne, mais le alter table drop ou modifiy coincent, désolée !

[Fxg]

Si c'est une utilisation unique pourquoi ne pas utiliser ce bon vieux module de base de données ?

[Evangeline]

Parce qu'il faut faire la transpo sur toutes les bases de tous les utilisateurs de toute la France donc ça n'a rien d'unique malheureusement ...

PS : en fait le drop fonctionne (je m'étais un peu plantée dans la syntaxe) mais pas moyen de renommer le champ comme avant !

[ShaiLeTroll]

Oui pour revenir à la colonne d'origine c'est plus long
tu veux alonger LACOL de 50 à 100 ça donne

Code :

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

1
2
3
4
5
6
ALTER TABLE "C:\2myParadoxEXE.DB" ADD TMPCOL CHAR(255);
UPDATE "C:\2myParadoxEXE.DB" SET TMPCOL = LACOL;
ALTER TABLE "C:\2myParadoxEXE.DB" DROP LACOL;
ALTER TABLE "C:\2myParadoxEXE.DB" ADD LACOL CHAR(100);
UPDATE "C:\2myParadoxEXE.DB" SET LACOL = TMPCOL;
ALTER TABLE "C:\2myParadoxEXE.DB" DROP TMPCOL;

[SergioMaster]

j'approuve shai a une exception près , un retaillage d'une colonne de 255 à 100 risque le lever une erreur de string truncation
donc même procédure mais en gardant la même taille de colonne

Code :

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

1
2
3
4
5
6
7
 
ALTER TABLE "C:\2myParadoxEXE.DB" ADD TMPCOL CHAR(100);
UPDATE "C:\2myParadoxEXE.DB" SET TMPCOL = LACOL;
ALTER TABLE "C:\2myParadoxEXE.DB" DROP LACOL;
ALTER TABLE "C:\2myParadoxEXE.DB" ADD LACOL CHAR(100);
UPDATE "C:\2myParadoxEXE.DB" SET LACOL = TMPCOL;
ALTER TABLE "C:\2myParadoxEXE.DB" DROP TMPCOL;

heureusement qu'il faut agrandir la colonne et non pas la réduire

[Evangeline]

Élémentaires mes chers ! Merci tout plein pour l'astuce