Discussion :

[DavKli]

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

[tourlourou]

Peut-être une requête exécutée dans un Query ou la méthode Exec d'un ADOConnection ?

Code SQL :

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

requete := 'ALTER TABLE ' + nom_table + ' ADD COLUMN ' + Str1 + ' INT';

[ALWEBER]

Suivant les bases de données le ALTER TABLE n'est pas forcement disponible donc il vaut mieux passer par une requête SQL
Dans le cas d'une table BDE/PARADOX l'opération de création est possible. Pour l'ajout de champs a une table existante je ne sais pas

Code :

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

1
2
3
4
5
 
      Tb1: TTable;
...
      Tb1.FieldDefs.Add (...
      Tb1.CreateTable;

[SergioMaster]

Bonjour,

Je suis d'accord avec tourlourou utiliser le SQL est tellement plus facile, quoique j'aurai plutôt proposé sans COLUMN requete := 'ALTER TABLE ' + nom_table + ' ADD ' + Str1 + ' INT';maintenant pour ce qui est du code qui ne fonctionne pas peut être est-ce parce que les instructions ne sont pas dans le bon ordre

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
var
  AdoTable1: TAdoTable;
  Field: TField;
  Str1: String;
 
  ...
 
  If ADOTable1.FieldList.Find(Str1) = nil then
  Begin
     // création du champ
     AdoTable1.FieldDefs.Add(Str1, ftInteger);  
     // rafraichir la table  est-ce nécessaire ?
     ADOTable1.Active := False;
     AdoTable1.Active := true;  
     // ajout déclaration pour le dataset, quoique je ne vois pas pour quelle raison ?  
     Field := TIntegerField.Create(AdoTable1);
     Field.FieldName := Str1;
     Field.DataSet := AdoTable1;
     // test
     If ADOTable1.FieldList.Find(Str1) = nil then showmessage('ajout liste des champs raté'); 
 End;

à ce stade, il serait intéressant de vérifier si la colonne a été créée dans la table

ceci dit, je ne suis pas un spécialiste ADO, loin d'être ma tasse de thé

[DavKli]

Merci pour vos recommandations.

Voici la solution trouvé :

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
22
23
24
25
26
27
28
29
 
  var
  AdoTable1: TAdoTable;
  AdoConnection: TADOConnection;
  AdoQuery: TAdoQuery;
  Str1: String;
 
  ...
 
  If ADOTable1.FieldList.Find(Str1) = nil then
  Begin
    ADOTable1.Active := False;
 
    AdoConnection := TADOConnection.Create(Form1);
    AdoQuery := TAdoQuery.Create(Form1);
    AdoConnection.ConnectionString := AdoTable1.ConnectionString ;
    AdoConnection.LoginPrompt := False;
    AdoConnection.Connected := True;
    AdoQuery.Connection := AdoConnection;
    AdoQuery.Active := False;
    AdoQuery.SQL.Clear;
    Adoquery.SQL.Add('ALTER TABLE ' + TableName + ' ADD ' + FieldName + ' INTEGER');
    Adoquery.ExecSQL;
    Adoquery.Free;
    AdoConnection.Connected := False;
    AdoConnection.Free;
 
    AdoTable1.Active := true;
  End;