Discussion :

[b.shaka]

Bonjour à tous,

Je cherche à ajouter une champs dans une table paradox (Delphi 6) en mode programmation, le code que je me suis fait est le suivant :

Code :

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

1
2
     MaTable.FieldDefs.Add ('Champs', FtString, 1, False);
     MaTable.CreateTable;

Ce code bien sûr fonnctionne, le problème, ça efface les données dans la table

Est il possible d'ajouter un champs sans effacer les données ???

----------------------------------------------

un autre code que j'ai trouvé sur le net mais j'arrive pas à le faire fonctionner :

Code :

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

1
2
     Qry.Sql.Text  := 'ALTER TABLE "C:\MaTable.Db" Add "Champs" Char(1)';
     Qry.ExecSql;

Merci à vous !!!

[SergioMaster]

Bonjour
La deuxième solution (SQL) est, de loin , la plus efficace !

mais j'arrive pas à le faire fonctionner

Quelle erreur ?

[b.shaka]

Bonjour
La deuxième solution (SQL) est, de loin , la plus efficace !


Quelle erreur ?

Le message d'erreur :

Le projet XXXX.Exe a provoqué une classe d'exception EAccess Violation avec le message "Violation d'acceès à l'adresse XXXXX dans le module XXXX.Exe, lecture de l'adresse 00000248", pocessus stopé


Merci

[ShaiLeTroll]

Qry pointe sur un objet TQuery instancié ?

le SQL est effectivement la solution à la plus facile !

Pour utiliser FieldDefs+IndexDefs :
- il faut faire d'abord un RenameTable
- Faire un CreateTable
- Faire un BatchMove sur la table renommé vers la table vide

Enfin, les fonctions BDE comme DbiDoRestructure

[SergioMaster]

Qry pointe sur un objet TQuery instancié ?

+1

un truc qui devrait fonctionner :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
begin
..
with TQuery.Create(self);
try
  DataBaseName:=monTDataBase;
  Sql.Text  := 'ALTER TABLE "MaTable.Db" Add "Champs" Char(1)';
  ExecSql;
finally
 Free;
end;
...
end;

[ShaiLeTroll]

petite correction de syntaxe
Pas non plus besoin de Onwer, InsertComponent est une opération un peu lente et pas très utile avec le finally qui provoquera un RemoveComponent

Code :

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

1
2
3
4
5
 
...
with TQuery.Create(nil) do
try
...