Access et colonne d'une table

Version imprimable

01/06/2010, 12h43
petitcoucou31

Access et colonne d'une table

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 .
01/06/2010, 12h57
Cl@udius

Salut

Citation:

Envoyé par petitcoucou31

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.

Citation:

Envoyé par petitcoucou31

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.

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:

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

Re,

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

Code:

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

01/06/2010, 15h46
petitcoucou31

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

bye