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
...

[edam]

hors sujet; il y a encore des gens qui utilise Paradox??

[SergioMaster]

@Shailetroll : TQuery.Create(nil) , exact une mauvaise habitude que j'ai à perdre

@Edam : Il semblerait que oui , au vu des questions souvent posées sur le forum et ce pas seulement par des débutants , paradox semble même être utilisé en exploitation

[edam]

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
...

j'utilise souvent cette méthode avec les IBX, mais j'ai une mauvaise souvenir avec TClientDataset, et les composant ado, avec nil sa plante, mais dés que j'ai mis un owner, sa marche très bien, !!!???????

[ShaiLeTroll]

Surement le même problème du Onwer du TXMLDocument, la durée de vie des interfaces est plus longue avec un objet avec Owner !
Je n'ai jamais bien compris pourquoi les développeurs de la VCL ont fait un tel choix !
ADO et CDS utilisant tous les deux des Interfaces, ce n'est surprenant que cela puisse poser problème, dommage !

J'ai beaucoup utilisé cette syntaxe avec MyDAC de Devart-CoreLab, je n'ai jamais eu de soucis !
Je pense l'avoir aussi fait avec le TClientDataSet, je n'ai pas souvenir de problème mais j'incluais MidasLib ce qui dispensait du déploiement de Midas.DLL

Vous noterez que nous avons perdu a.shaka !

hors sujet; il y a encore des gens qui utilise Paradox??

Quasiment à chaque Code Way Tour, Thierry Laborde essaye d'apporter la lumière des "Embarcadero evangelists" pour la conversion à DBExpress mais c'est une foule aux yeux morts qui le regarde sans écouter

Personnellement, j'ai un projet installé en mars 2003, qu'il a je crois tourner jusqu'en 2006, avec une cadence assez soutenu tout en étant robuste car pilotait un robot, évidemment lors du changement de robot, le client a changé de logiciel ! J'ai pas eu le chance de m'en occuper

la DB du projet : Paradox sur BDE, mono-poste et près de 150 000 opérations DB par heure, quand je parle d'opération, c'est les plus couteux comme Locate ou Query.ExecSQL
Le BDE plantait quasiment systématiquement au bout de 25 heures que cela soit 25 heures continues ou 3 séries de 8h (en 3 jours), une belle EDBEngineError ou un Ecran Bleu de Win2K
Du coup, on avait imposé le reboot journalier, j'avais même proposé de le coder et l'automatiser, le client n'a pas voulu, dommage, un jour, le 4eme, tout a pété

Quand je pense que j'ai eu des serveurs MySQL 4.1 sur Win2K pouvant rester ouvert pendant plus de 400 jours sans broncher !