Entwickler-Ecke

Dateizugriff - Datenbank in eine CSV Datei Exportieren


NoEon - Di 19.08.03 16:20
Titel: Datenbank in eine CSV Datei Exportieren
Hallo ich bin neu auf diesem Gebiet und hab da keine AHnung von..n
ichhab zwar n dicken Wälzer (assign, Reset und ReadLn etc...) Aber das nuetz mir nichts.

Kann das nichta cuh über eine SQL abfrage funktionieren?
Hölle drei dumme Datensätze zeilenweise auslesen und in eine CSV Datei schreiben und demnach mit semikolohn trennen.

die Datei soll stamm.dat heissen wenn das ghet, kann mir dad jemand mal unter die Armegreifen

Ich habe die Frage unter Datenbanken ähnlich gestellt also bitte, ich soltle doch lieber hier posten wenn es um sowas geht und das mache ich jetzt auch.

Wer hilft mir auch den rechten weg?

Danke
Gruss
Lars


MSCH - Di 19.08.03 21:25

schreib doch bitte einfach mal was du genau für ein Problem hast und welches Ergebnis du möchtest.
Stichwort z.b. welche SQL Datenbank ?
grez
msch


NoEon - Mi 20.08.03 08:52

ich versuch es...
ich habe eine Datenbank, wie oben schon erwähnt in der vorliegenden Struktur.
Mein Problem ich weiss nicht wie ich die oben angesprochenen Teile in eine CSV Datei exportiert bekomme, da sist alles.
Die Datenbank ist ne Paradox Datenbank (unter Delphi)


Das ist auch schon alles!
das soll dann in der csv datei alles schön untereinander sein

bc;beschreibung;preis
.
.
.
usw.
wie gesagt ich weiss nicht wie das gemacht wird!!!

mfg
lars


kiwicht - Mo 25.08.03 18:05


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
var
  f: Textfile; 
 Ziel, Datensatz : String;
begin 

  if SaveDialog1.Execute then begin
  
  Ziel := SaveDialog1.FileName;

  Datensatz := EditFeld1.Text + ',' +
                      EditFeld2.Text + ',' +
                      EditFeldx.Text;

  AssignFile(f, Ziel); 
  try 
    if FileExists(Ziel) = False then begin

      Rewrite(f);
      Writeln(f,'"FELDNAME1","FELDNAME2","FELDNAMEx"');

    end else begin

      Reset(f);
      Append(f);

    end;

    Writeln(f, Datensatz);

  finally
    CloseFile(f);
  end;


Anstatt die Daten aus den EditFeldern zu holen, kannst du sie auch direkt aus der Query oder was auch immer holen. Das sei dir überlassen!

mfG


Logi5 - Di 26.08.03 11:11

Vorsicht bei dieser Variante, wenn die Werte zusammengenommen mehr als 255 Zeichen ergeben!

Logi5


MSCH - Di 26.08.03 13:41

warum? Da kein ShortString kann der durchaus größer sein.
grez
msch