Discussion :

[delphino7]

bonjour

j'ai ecris un program pour affiché chaque ligne (enregistrement) d'une table dans un fichier text mais il maffiche seulement le premier champ meme pas le premier enregistrement !!!

par exemple : je veux afficher l'enregistrement Nom et Prenom de la table il m'affiche seulement le Nom et moi je veux ce resultat que voici :

Nom prenom
nom prenom

voila le source

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button11Click(Sender: TObject);
 
var ligne : tstrings;
begin
while table_employ.eof do
begin
ligne := tstringlist.create;
ligne.add(table_employ.FieldByName('Nom_employ').AsString);
ligne.add(table_employ.FieldByName('Prenom_employ').AsString);
ligne.savetofile('D:\table\template\test.txt');
ligne.free;
table_employ.Next;
end;
end;

quelqu'un peu m'aider !!!?

merci

[Andnotor]

Forcement si à chaque ligne tu recrées une nouvelle liste et écrase l'ancien fichier.

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
20
21
22
procedure TForm1.Button11Click(Sender: TObject);
var ligne : tstrings;
 
begin
  ligne := tstringlist.create;
 
  try
    table_employ.First;
 
    while table_employ.eof do
    begin
      ligne.add(table_employ.FieldByName('Nom_employ').AsString +' '
               +table_employ.FieldByName('Prenom_employ').AsString);
 
      table_employ.Next;
    end;
 
    ligne.savetofile('D:\table\template\test.txt');
  finally
    ligne.free;
  end;
end

[alheuredudejeuner]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var ligne : tstrings;
begin
ligne := tstringlist.create;
while table_employ.eof do
begin
ligne.add(table_employ.FieldByName('Nom_employ').AsString) +','+
            table_employ.FieldByName('Prenom_employ').AsString;
table_employ.Next;
ligne.savetofile('D:\table\template\test.txt');
ligne.free;
end;
end;

après tu récupères avec le memory datset de la jvcl, voir même le Tclientdataset, mais une recherche sur Delphi et CVS devrait te donner des renseignement plus précis

André

[delphino7]

avec ce source

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
20
21
22
procedure TForm1.Button11Click(Sender: TObject);
var ligne : tstrings;
 
begin
  ligne := tstringlist.create;
 
  try
    table_employ.First;
 
    while table_employ.eof do
    begin
      ligne.add(table_employ.FieldByName('Nom_employ').AsString +' '
               +table_employ.FieldByName('Prenom_employ').AsString);
 
      table_employ.Next;
    end;
 
    ligne.savetofile('D:\table\template\test.txt');
  finally
    ligne.free;
  end;
end

le fichier text reste vide !!!!!!!!!!!!!!!!!!!!!!!!!! ça marche pas

avec ça aussi ça marche pas le fichier text reste vide!!!:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
var ligne : tstrings;
begin
ligne := tstringlist.create;
while table_employ.eof do
begin
ligne.add(table_employ.FieldByName('Nom_employ').AsString) +','+
            table_employ.FieldByName('Prenom_employ').AsString;
table_employ.Next;
ligne.savetofile('D:\table\template\test.txt');
ligne.free;
end;
end;

[Andnotor]

Alors, c'est que ta table ne contient aucun enregistrement

[delphino7]

si elle contient 5 enregistrement je vous l'ai dit en haut elle m'affiche avec mon premier code source seulement le non du premier enregistrement

[Andnotor]

Bien sûr que la boucle doit être:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

while not table_employ.eof do

Ahh copier/coller

[delphino7]

un message d'erreur quand j'ai ajouté le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

not

l'erreur et comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

exception externe c000001D

!!!!!!!!!!

et il m'affiche seulement le premier enregistrement c tout dans le fichier txt

[Nono40]

Bonsoir,

Je confirme que ceci fonctionne pour la partie fichier texte : (avec le Not)

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
20
21
22
procedure TForm1.Button11Click(Sender: TObject);
var ligne : tstrings;
 
begin
  ligne := tstringlist.create;
 
  try
    table_employ.First;
 
    while Not table_employ.eof do
    begin
      ligne.add(table_employ.FieldByName('Nom_employ').AsString +' '
               +table_employ.FieldByName('Prenom_employ').AsString);
 
      table_employ.Next;
    end;
 
    ligne.savetofile('D:\table\template\test.txt');
  finally
    ligne.free;
  end;
end

L'erreur que tu obtients est certainement lié à l'accès à la base de données.

Sur quelle ligne as-tu l'erreur ? Ca nous aiderait.

=>paulfr
J'ai des tas de mauvaises surprise avec les fichiers Typé et les fichier TextFile depuis le passage à W2000 et XP. Les droits ne sont pas les mêmes. Je conseille le passage par un TStringList ou des Stream et d'oublier nos vieilles habitudes.

[delphino7]

boujour

c'est bon ça marche j'ai trouvé le problème et désolé c'est une erreur de ma par ce source marche trés bien

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
20
21
22
procedure TForm1.Button11Click(Sender: TObject);
var ligne : tstrings;
 
begin
  ligne := tstringlist.create;
 
  try
    table_employ.First;
 
    while Not table_employ.eof do
    begin
      ligne.add(table_employ.FieldByName('Nom_employ').AsString +' '
               +table_employ.FieldByName('Prenom_employ').AsString);
 
      table_employ.Next;
    end;
 
    ligne.savetofile('D:\table\template\test.txt');
  finally
    ligne.free;
  end;
end

le problème été que j'ai ouvert éclipse (java j2EE) et delphi7 au même temps j'ai fermé éclipse et sa marche


merci beaucoup c'est résolu