dbf Tabelle per BatchMove füllen

[blutigerAnfänger]

Hallo DPler

Ich möchte eine dbf Tabelle per BatchMove mit Daten aus einer Tabulator-getrennten Quell Datei füllen.

Hier mein Ansatz:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 with Table1 do
 begin
   Active := false;
   DataBaseName := 'C:\';
   TableName    := 'Quell.txt';
    TableType := ttASCII;
    Table1.Open;
  end;

 with Table2 do
 begin
   Active := false;
   DataBaseName := 'C:\';
   TableName    := 'Ziel.dbf';
    TableType := ttDbase;
  end;

    with Table2.FieldDefs do  //Benenne Tabellenfeld
    begin
      Clear;
      Add('Feld001', ftString, 50, false);
      Add('Feld002', ftString, 250, False);
    end;

    Table2.CreateTable;      //Erzeuge Tabelle

    Table2.BatchMove(Table1, batAppend);


Form1.Close;
end;

Leider preßt BatchMove alle Datensätze in ein Feld.

Also wie mache ich BatchMove begreiflich den Tabulator als Feldtrennzeichen zu verwenden.

[mkinzler]

Hier scheinen Tabs nicht als Feldtrenner erkannt zu werden.

Btw:
-Paradox <> dBase
-die BDE ist total veraltet

[Bernhard Geyer]

Datenbankdateien direkt unter "C:\". Du kennst scheinbar Vista/Win7 auch nur vom hörensagen bzw. schaltest generell UAC ab?

[peterlepan]

Hi,

da gab es vor Urzeiten mal eine Schrift, wie der TXT-Treiber mit der BDE zu benutzen ist, hab ihn mal angehängt.

Gruß Peter

[blutigerAnfänger]

Zitat:

Zitat von Bernhard Geyer (Beitrag 1087004)

Datenbankdateien direkt unter "C:\". Du kennst scheinbar Vista/Win7 auch nur vom hörensagen bzw. schaltest generell UAC ab?

C:\ ist doch bloß ein Beispiel. Natürlich steht die Tabelle unter C:\DB

was aber hat das mit Vista oder Win7 zu tun?

Anmerkung: Quell.txt ist eine AnsiDatei BatchMove spricht aber von ASCII.
Bringt mich zur Frage: Ist BatchMove überhaupt geeignet ??

[blutigerAnfänger]

Schade, daß es niemanden gibt der zu diesem Thema etwas zu sagen hat.:cry:

[jobo]

Hast du Dir schon mal den Inhalt der Table1 angeschaut. Wird die in einem Grid richtig dargestellt? Kannst Du normal auf die Felder zugreifen, also getrennt?

[blutigerAnfänger]

Ich habe keine Probleme mit der Quell.txt. Sie ist nur viel zu groß für ein Grid. Dafür benötige ich wenigstens 4 Stringgrids. Also geviertelt und in ein Stringgrid geladen...

Ich hatte die Hoffnung, daß das Ganze mit BatchMove sich wesentlich beschleunigen läßt (Alles in einem Schritt), aber der Tabulator wird halt nicht als Trennzeichen erkannt. BatchMove lädt wie bereits gesagt alle Datensätze in ein Feld. Aber in affenartiger Geschwindigkeit.

[jobo]

Ich weiß nicht, ob wir uns richtig verstehen.
Wofür willst Du 4 String Grids? Was ist zu groß?
Wenn das Grid nicht auf den Monitor passt, brauchst Du vielleicht einen größeren Monitor?! :stupid:

Meine Frage war, ob deine Table1 richtig gelesen wird, also deine Batchmove Quelle. Wenn die schon falsch geöffnet wird, kann BatchMove auch nichts dafür.

Delphi-Quellcode:

 with Table1 do
 begin
   Active := false;
   DataBaseName := 'C:\';
   TableName := 'Quell.txt';
    TableType := ttASCII;
    Table1.Open;
  end;

Ich meine:
Hast Du da einmal ein DBGrid drangebunden, werden deine CSV Daten via Table1 richtig dargestellt?

[blutigerAnfänger]

Zitat:

Zitat von jobo (Beitrag 1087383)

Meine Frage war, ob deine Table1 richtig gelesen wird, also deine Batchmove Quelle. Wenn die schon falsch geöffnet wird, kann BatchMove auch nichts dafür.

Ich meine:
Hast Du da einmal ein DBGrid drangebunden, werden deine CSV Daten via Table1 richtig dargestellt?

Ja, da gibt es kein Problem.

Achso, du meinst: von DBGrid nach dbf wandeln, dafür gibt es ja hier Beispiele.
Das ganze hebelt aber das Thema BatchMove aus. Oder nicht?

[jobo]

Nein, das meinte ich nicht.

Hast Du Dir mal die Datei von peterlepan angeschaut oder hier nach Batchmove gesucht? Was Du schreibst klingt zumindest nicht so.
Zum Üben würde ich Dir empfehlen, eine bestehende DBase oder Paradox Datei nach CSV zu exportieren. Dabei entsteht von allein eine Schema Datei, an die Du Dich halten könntest.

Die ganze Technik ist aber von vorgestern und Du solltest es vielleicht besser anders versuchen. (JetEngine oder so)

[blutigerAnfänger]

Zitat:

Zitat von jobo (Beitrag 1087591)

Nein, das meinte ich nicht.

Hast Du Dir mal die Datei von peterlepan angeschaut oder hier nach Batchmove gesucht? Was Du schreibst klingt zumindest nicht so.
Zum Üben würde ich Dir empfehlen, eine bestehende DBase oder Paradox Datei nach CSV zu exportieren. Dabei entsteht von allein eine Schema Datei, an die Du Dich halten könntest.

Die ganze Technik ist aber von vorgestern und Du solltest es vielleicht besser anders versuchen. (JetEngine oder so)

Welche Datei von peterlepan meinst du?

[BUG]

Zitat:

Zitat von blutigerAnfänger (Beitrag 1087651)

Welche Datei von peterlepan meinst du?

Eventuell die in Beitrag #4 :roll:

[blutigerAnfänger]

Ja, natürlich Entschuldigung

[blutigerAnfänger]

Ich habe mich mittlerweile eine Dbase schemadatei beim Umwandeln einer dBase Tabelle erhalten.

Diese Sch-Datei wurde angepaßt auf die Feldgrößen meiner Quell.txt, Der Feldtrenner wurde mit angegeben

und dennoch funktioniert das nicht. BatchMove erkennt zwar die Feldgrößen der Ziel.dbf, quetscht aber dennoch alles in Feld001.

Frage: 1. Trennzeichen ist ein Tabulator wie muß ich den angeben? Vermutlich als Ascii Zeichen (#09).

2. Die Quell.txt ist eine Ansi-Datei. Wie kann ich das ordnungsgemäße Umwandeln der Umlaute erreichen? Mit BatchMove.Transliterale ?

[jobo]

Der Delimiter wird nicht (wie in einigen Anleitungen gezeigt) per # Codierung angegeben, sondern als Klartext. Wenns richtig gemacht wurde, kann man im Hexeditor hinter dem "=" den Tab Code 9 sehen.

Die gesamte Codierung der Datei kann man notfalls vor dem Import ändern, gute Editoren erlauben diverse Umkodierungsvarianten.

[Franzelchen]

Hallo DPler,Hallo blutiger Anfänger,

Anbei eine Konvertierdatei die deinen Ansprüchen wohl genügt.
Leider zeigt diese Datei einen EinvalidErrorPointer, damit kenne ich mich nicht aus.

Ich hoffe es gibt auf DP einige Cracks, die diesen Fehler beseitigen können.

[blutigerAnfänger]

Hallo

Ich habe diesen Fehler auch.

Delphi-Quellcode:

 with Table2 do begin
   FieldDefs.Clear;
   IndexDefs.Clear;
  end;

        {Get list of all field types in Filename (ASCII), store in Fields}
  EnumerateFieldTypes(Filename, Fields);
         {Write schema file}
  AssignFile(Fil, Copy(Filename,1,Pos('.',Filename)-1) + '.SCH');

Durch das hin und herkopieren von( with Table2 do...)
hinter den Aufruf (EnumerateFieldTypes...)

wird meiner Ansicht nach klar, daß der Fehler in der Routine (EnumerateField...) liegt.

Aber den Fehler zu beseitigen, fehlt mir jede Kenntnis.