Bonjour,

j'essai d'y ajouter un champ a une base de donnée access existante. J'ai le code suivant mais qui me produit un erreur.

Merci pour votre aide.

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
 
  var
  AdoTable1: TAdoTable;
  Field: TField;
  Str1: String;
 
  ...
 
  If ADOTable1.FieldList.Find(Str1) = nil then
  Begin
    ADOTable1.Active := False;
    Field := TIntegerField.Create(AdoTable1);
    Field.FieldName := Str1;
    Field.DataSet := AdoTable1;
    AdoTable1.FieldDefs.Add(Str1, ftInteger);
    AdoTable1.Active := true;  //-> Erreur ici pour dire que le champ (nom dans Str1) n'a pas été trouvé
  End;
 
   ...