Ajouter un champ

Version imprimable

19/08/2006, 03h52
XioN

Ajouter un champ

Salut,

J'ai essayé de chercher avec "la fonction recherche", mais je ne doit pas etre doué:?

J'ai une base de donnée paradox.
sur ma fenêtre, un TDBGrid, un TDataSource, TQuery

Je voudrais ajouter une champ mais je n'y arrive pas.

Voici mon code

Citation:

begin
Query1.Close;
Query1.DatabaseName := CheminBd;
Query1.SQL.Text := 'ALTER TABLE Archiv ADD TESTAJOUT varchar(50)' ;
Query1.ExecSQL;
end;
19/08/2006, 13h27
edam

tu veux ajouter un champ dans la base ou simplement pour des traitement durant la vie de votre application???
19/08/2006, 14h21
XioN

Je veux ajouter un champs de manière permanente
19/08/2006, 20h06
Sunchaser

Bonsoir,

Eventuellement, si tu utilises un objet TTable sur ta table Paradox, tu as la propriété Fields et, avec celle ci la méthode, Add(...).
Tu peut donc essayer en créant un 'objet' TField, spécifiant les paramètres de ce champs, et l'ajouter a la table.

Bon courage,
@ + ;)
19/08/2006, 20h26
XioN

En fait je n'ai pas de TTable

J'ai juste ces composants TDBGrid, TDataSource, TQuery

Est-ce possible ?
19/08/2006, 23h02
Bejaia-In

Code:

ALTER TABLE Archiv ADD TESTAJOUT varchar(50)

la syntaxe utilisée est juste, ou est ton problème ?
20/08/2006, 07h16
XioN

Voilà mon problème, des que j'execute mon code :

http://pix.nofrag.com/de/7f/2f3aa138...569864b8ca.jpg

http://pix.nofrag.com/72/15/15a3bc6b...f688c2d2ad.jpg
20/08/2006, 19h41
Bejaia-In

La table "Archiv" utilisée dans ton programme est déja ouverte sous Delphi; donc soit tu ferme Delphi avant de lancer ton programme, soit tu ferme cette table (dans Delphi) avant de lancer ton application.
20/08/2006, 20h49
XioN

la table n'est pas ouverte en mode conception et dans le programme je fait Query1.Close;

ça ne suffit pas?
21/08/2006, 15h03
dd_garion

N'aurais-tu pas la table ouverte via ton SQL_Explorer ou via ton DATABASE_DESKTOP ?

Cela interfère avec le bon fonctionnement de ton appli.;)
21/08/2006, 20h04
XioN

1 pièce(s) jointe(s)

J'ai mis le projet en piece jointe.
La base n'est pas ouverte par quoi que ce soit

Code:

1
2
3
4
5
6
7
8
9
Procedure TMain.Actualiser;
  begin
    Query1.Close;
    Query1.DatabaseName := CheminBd;
    Query1.SQL.Clear;
    Query1.SQL.Text := 'SELECT * FROM "Archiv";';
    Query1.ExecSQL;// Ligne a supprimer.
    Query1.Open;
  end;

22/08/2006, 06h32
XioN

Merci beaucoup, c'etait bien ça :lol: :merci: