Méthode de création table Paradox dynamique
var NewTable: TTable;
NewIndexOptions: TIndexOptions;
begin
NewTable := Table3;
NewIndexOptions := [ixPrimary];
with NewTable do
begin
Active := False;
DatabaseName := 'D:\';
TableName := 'Employé.db';
TableType := ttDefault;
FieldDefs.Clear;
FieldDefs.Add('Ntel', ftString, 8, False);
FieldDefs.Add('Nom', ftString, 20, False);
FieldDefs.Add('PRENOM', ftString, 20, False);
FieldDefs.Add('Adresse', ftString, 50, False);
FieldDefs.Add('Ville', ftstring, 25, False);
IndexDefs.Clear;
IndexDefs.Add('PrimaryIndex', 'Ntel', NewIndexOptions);
CreateTable; { créer la table}
Active:=true;
end;
// par la suite je remplit la table avec des enregistrement (500 Enregistrements)
Reprenant l'exemple de la création d'une table
var NewTable: TTable;
NewIndexOptions: TIndexOptions;
begin
NewTable := Table3;
NewIndexOptions := [ixPrimary];
with NewTable do
begin
Active := False;
DatabaseName := 'D:\';
TableName := 'Employé.db';
TableType := ttDefault;
FieldDefs.Clear;
FieldDefs.Add('Ntel', ftString, 8, False);
FieldDefs.Add('Nom', ftString, 20, False);
FieldDefs.Add('PRENOM', ftString, 20, False);
FieldDefs.Add('Adresse', ftString, 35, False);
FieldDefs.Add('Ville', ftFloat, 25, False);
IndexDefs.Clear;
IndexDefs.Add('PrimaryIndex', 'Ntel', NewIndexOptions);
CreateTable; { créer la table}
Active:=true;
end;
// la table employé et remplit par (500 Enregistrements)
je veut ajouter un autre champ a la table employé qui est N° ssocial
FieldDefs.Add('N°ssocial', ftString, 20, False);
son perdre les données est ce que c'est possible cette requette