Delphi: Ajouter un champ a une base de donnée AdoTable (MDB)

Version imprimable

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:

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

15/08/2018, 16h11
tourlourou

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

Code:

requete := 'ALTER TABLE ' + nom_table + ' ADD COLUMN ' + Str1 + ' INT';
16/08/2018, 09h07
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:

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

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:

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é

Ajout d'un champs au AdoTable

Merci pour vos recommandations.

Voici la solution trouvé :

Code:

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;