CREATION D'ENREGISTREMENT D'UN TABLE PARADOX
cs_MAURICIO
Messages postés
2106
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
-
14 sept. 2006 à 17:41
sidou777 Messages postés 2 Date d'inscription jeudi 26 mars 2009 Statut Membre Dernière intervention 1 novembre 2009 - 1 nov. 2009 à 19:56
sidou777 Messages postés 2 Date d'inscription jeudi 26 mars 2009 Statut Membre Dernière intervention 1 novembre 2009 - 1 nov. 2009 à 19:56
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/39550-creation-d-enregistrement-d-un-table-paradox
https://codes-sources.commentcamarche.net/source/39550-creation-d-enregistrement-d-un-table-paradox
1 nov. 2009 à 19:56
pardon Monsieur:Delphiprog je me suis trpmpé
1 nov. 2009 à 19:27
merci de poser tes demandes d'aide sur le forum. Ici, tu es sur une discussion à propos d'un code source.
1 nov. 2009 à 11:08
mon frere mauricio aide moi svp
comment je peut modifier un enregistrement d'une table paradox
accepté monsieur mes salutations.
2 avril 2008 à 22:42
with TTable.create(nil)do
begin
bla.. bla..
....
if not exsits then createTable;
end
13 avril 2007 à 02:08
je voudrai savoir insi cree comment sauvgarder la table en lii donnant un nom :
///////
with ClientDataSet1 do
begin
with FieldDefs.AddFieldDef do
begin
DataType :=ftInteger;
Name :='Field1';
end;
with FieldDefs.AddFieldDef do
begin
DataType :=ftString;
Size :=10;
Name :='Field2';
end;
with FieldDefs.AddFieldDef do
begin
DataType :=ftString;
Size :=10;
Name :='nom';
end;
with IndexDefs.AddIndexDef do
begin
Fields :='Field1';
Name :='IntIndex';
end;
CreateDataSet;
end;
18 sept. 2006 à 10:11
16 sept. 2006 à 21:45
@abdousoft : les remarques habituelles, c'est à dire renommer les composants utilisés dans le code serait apprécié. On ne doit pas avoir besoin de charger le projet dans Delphi pour comprendre le sens des actions. La lecture du code devrait suffire.
14 sept. 2006 à 17:41
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+