Jetzt hab ich das nächste Problem.

Ich habe Dateien, die ursprünglich aus einer ACU-Cobol Anwendung stammen. Der Aufruf funktioniert über TQuery über ODBC.

Mit Tquery kann ich diese Daten auch z.B. über ein TGRID anzeigen.

Wie funktioniert der Export einer Datei. (KUNDEN) nach Interbase?

Geht es über:

SELECT * into KUNDEN in ???????? from KUNDEN

Wenn ja, wie heißt dann das Ziel (???????). Ich habe verschiedene Schreibweisen ausprobiert, bisher hat es aber nicht geklappt. Ich wäre für die richtige Syntax sehr dankbar, dann habe ich glaub ich das gröbste geschafft.

Josef-B hat folgendes geschrieben:

...Ich habe Dateien, die ursprünglich aus einer ACU-Cobol Anwendung stammen. Der Aufruf funktioniert über TQuery über ODBC...Wie funktioniert der Export einer Datei. (KUNDEN) nach Interbase? ....

Ich gebe Dir einen Tip: schreibe das alles Zeile für Zeile in eine Textdatei und füge das dann in die Interbase-DB ein. Hier kennt sich wohl keiner mit Cobol aus.

Ich denke mal Acu Cobol ist nicht das Problem, oder?

die Quelldaten kann ich ja mit einem einfachen SQL Befehl über TQuery abrufen.

z.B. wie gesagt in eine DBGrid.

Kann ich dann die Daten mit einem SQL Befehl in eine Textdatei schreiben?

Ich habe das Buch Datenbankprogrammierung von Kowalski. Die dort angegbenen SQL Befehle wie zb.

Select * into KUNDEN IN 'C:\' 'TEXT' from KUNDEN funktionieren nicht, da kommt immer die Meldung Syntax Fehler.

Hingegen SELECT * FROM KUNDEN funktioniert optimal.

Woran kann das denn liegen? Man braucht schon viel Geduld für Delphi.

Ich glaube Du verwechselst irgendwie SQl mit Interbase. IB ist ein SQL-DBMS, aber wo kommen die Cobol-Daten denn da her ? Mit Paradox kann ich auch gewisse SQL-Sachen machen. Aber nicht mir nix dir nix auf eine Interbase-DB zugreifen. Schmeiß Feld für Feld jedes Datensatzes in eine Zeile einer Textdatei, von Cobol her. Dann ist das sauber. Diese Textdatei benutzt Du dann um die Daten wieder, allerdings mit Delphi in die IB-DB zu schreiben.

Hi LCS.

Hi

über Cobol kann ich gar nicht programmieren. Das ist so, wir haben eine
Betriebssoftware, die ist in Cobol geschrieben.

Die Datendateien kann man aber über ACU ODBC in Tabellen darstellen, über einen entsprechend installierten ODBC Treiber. Auf diese Tabellen habe ich wie gesagt auch über Delphi Zugriff. Allerdings nur lesen und nicht schreiben

Ich möchte eben diese Daten in eine Interbase Datenbank importieren.

Dann machs doch in 2 Schritten:
Ein Datensatz der ACU-Tabelle in Variablen und dann erst in die Interbase-Tabelle einfügen.
Nächster Datensatz bis EOF.

! Manchmal muß man eine kleine Pause nach jedem Datensatz einfügen !

hwb

hallo hwb,

kannst DU das noch etwas genauer erklären?

ich bin bei Delphi noch ziemlich neu.

So zum Mitschreiben:
ACU-Table: Select * from Tabelle;

Damit du sicher bist, wie die Feldwerte aussehen kanst du mit persistinenten Feldern arbeiten. Also Doppelklick auf Query. Damit geht der Feldeditor auf. Alle Felder hinzufügen. Jetzt kannst du jedes Feld als Objekt ansprechen. Im Objektinspektor kannst du auch auslesen was das für ein Feld ist ( String, Integer usw ). Dann deklarierst du zu jeden Feld eine Variable.
Damit kannst du die Tabelle in eine Variable auslesen:
Query1Feldname.Value := Variable;

Die Var dann in die Interbase speichern.

Und das ganze noch einer Schleife bis Query.EOF.

Das wars.

HWB

Hi Josef-B

hansa hat folgendes geschrieben:

Hier kennt sich wohl keiner mit Cobol aus.

Das halte ich aber für ein Gerücht. Ich bin immer noch MF Cobol auf meinem PC.

hwb hat folgendes geschrieben:

Damit du sicher bist, wie die Feldwerte aussehen kanst du mit persistinenten Feldern arbeiten. Also Doppelklick auf Query. Damit geht der Feldeditor auf. Alle Felder hinzufügen. Jetzt kannst du jedes Feld als Objekt ansprechen. Im Objektinspektor kannst du auch auslesen was das für ein Feld ist ( String, Integer usw ). Dann deklarierst du zu jeden Feld eine Variable.

Für's erste brauchst du das gar net so kompliziert machen. Wenn du über den ODBC-Treiber auf die Tabelle zugreifen kannst, ist das schon die halbe Miete. Ich geh mal davon aus, dass dir die Tabellenstruktur bekannt ist.
Also musst du zuerst mal in deiner IB-Datenbank eine Tabelle mit einer passenden Struktur anlegen. Dann wie schon beschrieben
- Cobol-Tabelle öffnen
- IB-Tabelle öffnen
- Schleife bis EOF
- Satz lesen
- IB Satz einfügen
- Felder übertragen mit
IBTable.Fields[x].Value := CobolTable.Fields[x].Value
- IB Satz speichern.
- Ende

Wenn du in beiden Tabellen eine identische Struktur hast kannst du die Übertragung der Feldinhalte in einer Schleife machen:


Gruss Lothar

Es hat geklappt mit der Übernahme. Allerdings musste ich es doch mit den persistinensischen Feldern machen, weil er das fieldscount nicht ausführen konnte in der Ursprungsdatenbank, die ja eigentlich keine ist.

Danke.