CREATION D'ENREGISTREMENT D'UN TABLE PARADOX

Commentaire de MAURICIO le 14/09/2006 17:41:57 administrateur CS

Salut abdousoft,
d' abord le programme ne crée pas les enregistrements mais la table elle même ainsi que les champs/indexes d' une table.
Aucune option pour enregistrer la table sur le disque afin de pouvoir la réouvrir ...

Voilà le code pour un TClientDataSet pour se passer du BDE:
with TExample do begin
    Active := False;
//    DatabaseName := '';
//    TableName := 'Etudiant';
//    TableType := ttParadox;

with FieldDefs do begin
      Clear;
      Add('Code', ftString, 10, True);
      Add('Nom', ftString, 40, False);
      Add('Adresse', ftString, 40, False);
      Add('Filere', ftString, 30, False);
      Add('Classe', ftString, 10, False);
      Add('Tel=', ftString, 14, False);
      Add('DataNaiss', ftDate, 0, False);
      Add('Sexe', ftstring, 8, False);
      Add('Info', ftString, 255, False);
    end;
     // creation de l'index primaire
with IndexDefs do begin
      Clear;
      Add('', 'Code', [ixPrimary, ixUnique]);
      end;
  end;

// Creation du Table Etudiant
TExample.CreateDataSet;
TExample.Open;

A+

Commentaire de MAURICIO le 18/09/2006 10:11:25 administrateur CS

Haaa bem oui, tu as raison DelphiProg, j' en oublie que j' ai la version 7 quelques fois :)

Commentaire de dadylle le 02/04/2008 22:42:23

il faut appeler la fonction:
with TTable.create(nil)do
begin
bla.. bla..
....
if not exsits then createTable;
end

Commentaire de Delphiprog le 01/11/2009 19:27:42 administrateur CS

@sidou777 :
merci de poser tes demandes d'aide sur le forum. Ici, tu es sur une discussion à propos d'un code source.