Discussion :

[petitcoucou31]

Bonjour a tous,

Je suis en train de créer une table dans une base ACCESS depuis delphi 7,et donc je commence a me pencher sur le langage SQL.

Cette table peut avoir un besoin supplémentaire de colonnes en fonction des données d'entrées (un fichier).

Avant d'envoyer les données dans ma table, je voudrais donc vérifier que toutes les colonnes dans lesquelles je vais envoyer mes données existes.

Existe t il une méthode, requête , pour contrôler l'existence d'une colonne dans une table.
Que ce passe t il ? si je crée une colonne qui existe déjà, rien de change ou les données de l'ancienne sont supprimées et on a une nouvelle colonne vide ?

merci pour votre aide...

bonne aprem .

[Cl@udius]

Salut

Existe t il une méthode, requête , pour contrôler l'existence d'une colonne dans une table.

Tu peux utiliser FindField de TxxxTable ou TxxxQuery.

Que ce passe t il ? si je crée une colonne qui existe déjà, rien de change ou les données de l'ancienne sont supprimées et on a une nouvelle colonne vide ?

Tu auras, en toute logique, une erreur d'exécution, donc la structure de la table restera inchangée.

@+ Claudius.

[petitcoucou31]

salut cl@udius

j'ai bien trouvé la méthode FindField dans le TADOQuery que j'utilise. mais elle me retourne nil que ma colonne existe ou pas ! ceci marche t il aussi pour les noms de colonne ou seulement pour les champs de données de la table?

voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 ....
   if ADOQuery1.FindField(NomColonne[i]) = nil then 
   begin
        With ADOQuery1.SQL do
        begin
             Clear;
             Add('ALTER TABLE '+ TableName +' ADD '+ NomColonne[i] + genre );
             ADOQuery1.ExecSQL;
         end;
   end;
....

Merci..

[Cl@udius]

Re,

J'avais oublié qu'il existait la méthode GetFieldNames de TADOConnection.
Tu peux donc faire quelque chose comme cela:

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
function FieldExists(Cnx: TADOConnection; const TableName, FieldName: string): Boolean;
var
  SL: TStringList;
  I: Integer;
begin
  SL := TStringList.Create;
  try
    Cnx.GetFieldNames(TableName, SL);
    Result := SL.Find(FieldName, I);
  finally
    SL.Free;
  end;
end;
 
// appel
begin
  if FieldExists(ADOConnection1, 'MaTable', 'MonChamp') then
    ShowMessage('Trouvé')
  else
    ShowMessage('Non trouvé  !');
end;

@+ Claudius

[petitcoucou31]

merci Cl@udius .. ça marche comme il faut !!

bye