Discussion :

[QAYS]

Bonjour,

Je voudrais savoir s'il exite un moyen (méthode de adotable ou autre) qui me permettrais de créer une table en runtime dans une base access.

comme je peut le faire avec une base paradox.

PS: mais sans adocommand et sans SQL, un peu comme le code qui suit:

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
 
bla bla bla
    with FieldDefs do
    begin
          Clear;
          Active := false;
          For j := 1 to EnteteColonne.NombreElements do
          begin
              with AddFieldDef do
              begin
                  Name     := EnteteColonne.GiveOccurence(J);
                  DataType := TFieldType(StrToInt(TypeColonne.GiveOccurence(J)));
                  Size     := ConfirmSize(StrToInt(SizeColonne.GiveOccurence(J)),DataType);
                  Required := False;
              end;
          end;
    end;
    CreateTable;
blablabla

Merci
Qays

[Just-Soft]

je ne pense pas que ça existe mais faut peut-être penser à faire ça par le biais de l'héritage.

une autre solution est envisageable, tu crée ta table sous forme Paradox puis tu utilises le DataPump. Mais faudrait trouver la documentation pour pouvoir exploiter les fonctions du DataPump.

Bon codage.

[chaplin]

En recherchant sur Google, j'ai trouvé ce lien:

http://delphi.about.com/od/database/l/aa072401a.htm

Dans les grandes lignes, il faut créé une bibliothèque de type. Pour ne pas rentrer en conflit avec
des classes existentes de la BDE, il faudra renommer les classes comme indiqué dans le tutoriel.

J'ai essayé avec Delphi 2007, ça marche. Après avoir généré l'unité correspondante avec l'assistant
d'importation de type de bibliothèque, j'ai utilisé la commande Prise en charge Together dans
le menu projet pour pouvoir renommer les classes individuellement. Il faut faire attention à la
procedure Register. En effet, les classes ne subissent pas la modification, il faut le faire à la main.

Dans un deuxième temps, il faut créé un package Delphi puis inclure l'unité générée et modifié.
Il suffit ensuite d'installer le nouveau package dans la palette et suivre les instructions du
toturiel en anglais.