Bases de données delphi
Fermé
nadadouaa
Messages postés
34
Date d'inscription
mercredi 12 novembre 2008
Statut
Membre
Dernière intervention
6 août 2010
-
21 nov. 2008 à 18:01
NM - 11 déc. 2008 à 11:34
NM - 11 déc. 2008 à 11:34
A voir également:
- Bases de données delphi
- Telecharger delphi - Télécharger - Langages
- Exemple base de données access à télécharger gratuit - Forum Access
- La base de données de sécurité du serveur n'a pas de compte d'ordinateur pour la relation ✓ - Forum Réseau
- Tnt base de données vide ✓ - Forum TNT
- Célia doit nettoyer le tableau suivant pour l'ajouter à la base de données de son entreprise. les données sont ensuite traitées automatiquement. quelles sont les 4 cellules qui risquent de poser problème ? ✓ - Forum Excel
1 réponse
Salut.
Adapter ce code et le mettre dans l'évenement onclick d'un bouton (ou autre emplacement celon vos besoins) :
var
f : textfile;
begin
assignefile(f, 'chemin\nomfichier.txt');
rewrite(f);
table1.first;
while not table1.eof do
begin
write(f, table1.fiueldvalues['chap1'] + '////'); {un ou plusieurs caractères pour désigner les séparation entre les
valeurs de différents champs de la table }
.....
.....
writeln(f, table1.fiueldvalues['chapN'] );
table1.next;
end;
showmessage('opération terminée avec succès.');
end;
c'est à vous de faire quelques modifications pour adapter le code à vos besoins.
***************
Adapter ce code et le mettre dans l'évenement onclick d'un bouton (ou autre emplacement celon vos besoins) :
var
f : textfile;
begin
assignefile(f, 'chemin\nomfichier.txt');
rewrite(f);
table1.first;
while not table1.eof do
begin
write(f, table1.fiueldvalues['chap1'] + '////'); {un ou plusieurs caractères pour désigner les séparation entre les
valeurs de différents champs de la table }
.....
.....
writeln(f, table1.fiueldvalues['chapN'] );
table1.next;
end;
showmessage('opération terminée avec succès.');
end;
c'est à vous de faire quelques modifications pour adapter le code à vos besoins.
***************