Ajouter un champ

**XioN** · 19/08/2006, 03h52

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

begin
Query1.Close;
Query1.DatabaseName := CheminBd;
Query1.SQL.Text := 'ALTER TABLE Archiv ADD TESTAJOUT varchar(50)' ;
Query1.ExecSQL;
end;

**edam** · 19/08/2006, 13h27

tu veux ajouter un champ dans la base ou simplement pour des traitement durant la vie de votre application???

**XioN** · 19/08/2006, 14h21

Je veux ajouter un champs de manière permanente

**Sunchaser** · 19/08/2006, 20h06

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,
@ +

**XioN** · 19/08/2006, 20h26

En fait je n'ai pas de TTable

J'ai juste ces composants TDBGrid, TDataSource, TQuery

Est-ce possible ?

**Bejaia-In** · 19/08/2006, 23h02

Code :

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

ALTER TABLE Archiv ADD TESTAJOUT varchar(50)

la syntaxe utilisée est juste, ou est ton problème ?

**XioN** · 20/08/2006, 07h16

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

**Bejaia-In** · 20/08/2006, 19h41

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.

**XioN** · 20/08/2006, 20h49

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

ça ne suffit pas?

**dd_garion** · 21/08/2006, 15h03

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.

**XioN** · 21/08/2006, 20h04

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

**Bejaia-In** · 22/08/2006, 00h11

Code :

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

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;

**XioN** · 22/08/2006, 06h32

Merci beaucoup, c'etait bien ça

Ajouter un champ

Bases de données Delphi

Discussions similaires

Partager

Partager