Typumwandlung bei Interbase

hansa · Beiträge: 3079 Erhaltene Danke: 9

Hi Lothar,

Meinst Du, ich solle DAS HIER :

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:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:

SET SQL DIALECT 3;

SET NAMES ISO8859_1;

INSERT INTO KUNDE8  (
    ID,
    NR,
    ARKGHAUPT,
    ARKGUNTER,
    KUNDEPREISGLEICH,
    ARHAUSEIGENT,
    ARPAECHTER,
    ARSTAMMFAHRER,
    ARVERTRETER,
    ARSTAMMFAHRZEUG,
    RECTEXTNR,
    LIEFTEXTNR,
    STAMMTOUR,
    SKONTO,
    KREDITBETRAG,
    KREDITLIMIT,
    TELEFON,
    TELEFONVERSAND,
    FAX,
    MODEM,
    RUHETAG,
    ANRUFTAG,
    ANRUFZEIT,
    BLZ,
    KONTONR,
    BANK,
    ANREDE,
    NAME,
    STRASSE,
    ORT,
    LIEFANREDE,
    LIEFNAME,
    LIEFSTRASSE,
    LIEFORT,
    PREISGRUPPE,
    RECZEITRAUM,
    ABHOLER,
    ZENTRKUNDE,
    EINZPRDRUCKEN,
    BANKEINZUG,
    BRUTTOPREIS,
    PREISABFRAGE,
    LIEFERSPERRE,
    STATFUEHREN,
    KUNDESEIT,
    LETZTERBEZUG,
    KASSEVORH,
    KUARTNRDRUCKEN,
    EMAIL,
    RVZEITRAUM,
    SAMMELKUNR,
    FREMDKUNR,
    AUFAUSGLISTE,
    ZAHLBEDNR,
    DIVERS)

SELECT CAST (ID AS INTEGER),
       CAST (NR AS INTEGER),
       CAST (ARKGHAUPT AS INTEGER),
       CAST (ARKGUNTER AS INTEGER),
       CAST (KUNDEPREISGLEICH AS INTEGER),
       CAST (ARHAUSEIGENT AS INTEGER),
       CAST (ARPAECHTER AS INTEGER),
       CAST (ARSTAMMFAHRER AS INTEGER),
       CAST (ARVERTRETER AS INTEGER),
       CAST (ARSTAMMFAHRZEUG AS INTEGER),
       CAST (RECTEXTNR AS INTEGER),
       CAST (LIEFTEXTNR AS INTEGER),
       STAMMTOUR,
       CAST (SKONTO AS DECIMAL (10,2)),
       CAST (KREDITBETRAG AS DECIMAL (10,2)),
       CAST (KREDITLIMIT AS DECIMAL (10,2)),
       TELEFON,
       TELEFONVERSAND,
       FAX,
       MODEM,
       RUHETAG,
       ANRUFTAG,
       ANRUFZEIT,
       BLZ,
       KONTONR,
       BANK,
       ANREDE,
       NAME,
       STRASSE,
       ORT,
       LIEFANREDE,
       LIEFNAME,
       LIEFSTRASSE,
       LIEFORT,
       PREISGRUPPE,
       RECZEITRAUM,
       abholer,
       ZENTRKUNDE,
       EINZPRDRUCKEN,
       BANKEINZUG,
       BRUTTOPREIS,
       PREISABFRAGE,
       LIEFERSPERRE,
       STATFUEHREN,
       KUNDESEIT,
       LETZTERBEZUG,
       KASSEVORH,
       KUARTNRDRUCKEN,
       EMAIL,
       RVZEITRAUM,
       SAMMELKUNR,
       FREMDKUNR,
       AUFAUSGLISTE,
       ZAHLBEDNR,
       DIVERS

FROM KUEXP;

COMMIT;

für eine Tabelle, die so erzeugt wurde :

markieren

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:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:

SET SQL DIALECT 3;

SET NAMES ISO8859_1;

/* DROP TABLE KUNDE8; */

CREATE TABLE KUNDE8  (
    ID INTEGER NOT NULL,
    NR INTEGER NOT NULL,
    ARKGHAUPT INTEGER,
    ARKGUNTER INTEGER,
    KUNDEPREISGLEICH INTEGER,
    ARHAUSEIGENT INTEGER,
    ARPAECHTER INTEGER,
    ARSTAMMFAHRER INTEGER,
    ARVERTRETER INTEGER,
    ARSTAMMFAHRZEUG INTEGER,
    RECTEXTNR INTEGER,
    LIEFTEXTNR INTEGER,
    STAMMTOUR CHAR (8),
    SKONTO DECIMAL (10,2),
    KREDITBETRAG DECIMAL (10,2),
    KREDITLIMIT DECIMAL (10,2),
    TELEFON CHAR (20),
    TELEFONVERSAND CHAR (20),
    FAX CHAR (20),
    MODEM CHAR (20),
    RUHETAG CHAR (1),
    ANRUFTAG CHAR (1),
    ANRUFZEIT CHAR (1),
    BLZ CHAR (10),
    KONTONR CHAR (10),
    BANK CHAR (30),
    ANREDE CHAR (30),
    NAME CHAR (30) NOT NULL,
    STRASSE CHAR (30),
    ORT CHAR (30),
    LIEFANREDE CHAR (30),
    LIEFNAME CHAR (30),
    LIEFSTRASSE CHAR (30),
    LIEFORT CHAR (30),
    PREISGRUPPE CHAR (1),
    RECZEITRAUM CHAR (1),
    ABHOLER CHAR (1),
    ZENTRKUNDE CHAR (1),
    EINZPRDRUCKEN CHAR (1),
    BANKEINZUG   CHAR (1),
    BRUTTOPREIS  CHAR (1),
    PREISABFRAGE CHAR (1),
    LIEFERSPERRE CHAR (1),
    STATFUEHREN CHAR (1),
    KUNDESEIT CHAR (10),
    LETZTERBEZUG CHAR (10),
    KASSEVORH CHAR (1),
    KUARTNRDRUCKEN CHAR (1),
    EMAIL CHAR (30),
    RVZEITRAUM CHAR (1),
    SAMMELKUNR CHAR (1),
    FREMDKUNR CHAR (10),
    AUFAUSGLISTE CHAR (1),
    ZAHLBEDNR CHAR (3),
    DIVERS CHAR (1));

COMMIT;

mit Delphi-Befehlen machen ? :hair:

Ja wie denn ? Vielleicht macht sich ja jemand die Mühe, druckt das aus und sieht den Fehler sofort. :mrgreen:

Nein, aber im Ernst : Vermute stark, Du meinst ich solle die externe Table vergessen, die IBconsole auch und direkt in Delphi die Felder aus der Textdatei fischen und direkt in die DB schreiben ?

Wie gesagt ich weiß nicht, ob Du das so meinst und wenn doch, dann habe ich nämlich folgende Bedenken :

1. Wenn ich diese Statements als einen SQL-string behandele, so wird das wohl wiederum eine nichtssagende Fehlermeldung bringen.

2. Wenn ich die Felder einzeln in die DB reinhaue ist das ein Haufen Mehrarbeit. Letztenendes würde wahrscheinlich wiederum erst an der Stelle, an der das Commit durchgeführt wird der Fehler auftauchen. Außerdem wäre da wieder die Frage mit der Typumwandlung.

3. Dann bliebe als Ausweg, nach jedem Feld ein post (? oder womit wird ein Commit ausgelöst ?) durchzuführen, um das Feld zu erwischen, das den Ärger macht: noch aufwendiger.

Wegen solcher und ähnlicher Geschichten wollte ich ja gerade eine kleine Table (Kundengruppen) und eine größere, die die kleinere als Lookup usw. braucht. Wie übergebe ich denn überhaupt direkt mit Delphi einen Teilstring als richtigen Typ an IB ?

Wo ich das hier schreibe, denke ich Methode 3. ist das einzig vernünftige. Denn ist die Fehlerquelle lokalisiert, könnte man das Script entsprechend anpassen und ab dann doch verwenden.

Das sind aber zu viele offene Fragen, bin deshalb im Moment zu unsicher, ob das so überhaupt stimmt / geht.

Gruß
Hansa

LCS · Verfasst: Do 10.10.02 12:36

Hi

Hansa hat folgendes geschrieben:

mit Delphi-Befehlen machen ? Ja wie denn ?

Genau das mein ich.

Datenbank und Tabelle öffnen
Textdatei öffnen
Schleife
Textdatei schliessen
Commit und Datenbank schliessen

Zitat:

Wenn ich die Felder einzeln in die DB reinhaue ist das ein Haufen Mehrarbeit.

table.Fields[x].Value := ....
Ob ich das nun einmal hinschreibe oder 50x kopiere spielt eigentlich keine grossen Rolle.

Zitat:

Außerdem wäre da wieder die Frage mit der Typumwandlung.

Fields[x].AsString
Fields[x].AsInteger
Fields[x].AsDateTime usw.
Wo ist hier das Problem :?!?:

Wenn der Datentyp nicht passt, kriegst du hier an dieser Stelle schon die passende Exception die du abfangen kannst. Methode 3 ist demnach unnötig.

Da die Datenübernahme sowieso nur einmal gemacht wird, spielt der Zeitbedarf auch nicht die grosse Rolle, also kannst du hier auch ohne Probleme IBTable verwenden. Das macht das Leben ein bisschen angenehmer und der Performanceverlust ist an dieser Stelle egal.

Der Hauptgrund für mich war aber folgender: Die Problematik mit Datenübernahme und Konvertierung aus Text oder unterschiedlichen Tabellen taucht immer wieder auf. Und die daraus resultierenden Probleme mit SQL und IBConsole auch.
Also setze ich mich doch lieber einmal hin und schreibe ein vernünftiges Programm mit dem sich sowas flexibel handhaben lässt und hab dann ein für allemal Ruhe.

Gruss Lothar
*derdasallesschonhintersichhat*

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

hansa · Beiträge: 3079 Erhaltene Danke: 9

Zitat:

*derdasallesschonhintersichhat*

->

->

->

->

LCS · Verfasst: Do 10.10.02 14:04

Treffender kann mans kaum beschreiben :lol:

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

hansa · Beiträge: 3079 Erhaltene Danke: 9

Hi,

Sehe das mittlerwiele genauso. Plage mich nicht mehr mit so ner Mist(IB)Console rum.

Zitat:

Da die Datenübernahme sowieso nur einmal gemacht wird, spielt der Zeitbedarf auch nicht die grosse Rolle, also kannst du hier auch ohne Probleme IBTable verwenden. Das macht das Leben ein bisschen angenehmer und der Performanceverlust ist an dieser Stelle egal.

Mit der IBtable habe ich aber ein Problem. Seltsamerweise habe ich die noch nie gebraucht. :?:

Eigentlich alles unter dem Register Interbase hab ich noch nicht gebraucht. Auf jeden Fall sagt er mir, egal was ich mache Database not assigned, invalid property oder so was. Für mich sieht es so aus, als sei die IBtable ein Fremdkörper.

Gruß
Hansa

LCS · Verfasst: Fr 11.10.02 13:03

Hi
ich hab das IBTable nur stellvertretend für eine Tabellenkomponente gemeint, weil ich die in dem Fall verwende. Zu IBTable gehört dann natürlich auch eine IBDatabase und eine IBTransaction.
Wenn du mit FIB (oder wie auch immer die Dinger heissen :wink:

) arbeitest, musst du dir aus diesen Komponenten halt das passende raussuchen.

Gruss Lothar
x - 117 min

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

hansa · Beiträge: 3079 Erhaltene Danke: 9

Hi,

was ich jetzt habe, sowas mußte ja kommen. :angel:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);

VAR k : text;
    zeile : string;
begin
  assign (k,'KGSQL');
  reset (k);
  WHILE NOT EOF (k) DO BEGIN
    readln (k);
    KGdatensatz.insert;
    KGdatensatz.ID := AsInteger
  END;
end;

Wie man sieht, wollte ich mit einfachen Standard-Pascal Mitteln Zeile für Zeile aus der Textdatei lesen und in die DB schreiben. Aber erstens kommt es anders und zweitens, als man denkt. :mahn:

Delphi kennt den Typ text so nicht mehr. Ohne es zu merken habe ich anscheinend diesen Typ schon länger nicht mehr gebraucht. Weiterhin steht irgendwo, man müsse eine Konsolenapplikation haben. Für den gewünschten Zweck brauche ich ja auch keine eigene Benutzeroberfläche, aber was ist dann mit meinen Komponenten auf der Form ? Einen Ersatz für text hab ich bisher nicht gefunden.

Gruß
Hansa

hansa · Beiträge: 3079 Erhaltene Danke: 9

Hi,

text -> TextFile
assign -> AssignFile

soviel zu dem letzten. Jetzt ist aber noch eine Frage aufgetaucht :

Zitat:

table.Fields[x].Value := ....

Worauf bezieht sich eigentlich das x ? Muß ich da etwa die Reihenfolge der Felder aus der IB-DB einhalten ? Kann man die Zuweisung nicht ungefähr so machen ?

markieren

Quelltext

1:	KGdatensatz.Fields.ID := StrToInt (copy (zeile,1,10));

Also den Namen des IB-Feldes direkt ansprechen ? Das wäre eine Fehlerquelle weniger. :wink2:

Gruß
Hansa

hansa · Beiträge: 3079 Erhaltene Danke: 9

Hey,

macht hier alles Urlaub, nur ich nicht ?

Dauert zwar länger, als wenn mir jemand hilft, aber in seltenen Fällen nützt sogar die OH.

Zitat:

withClientDataSet1 do

begin
{ This is the safe way to change 'CustNo' field }
FindField('CustNo').AsString := '1234';
{ This is *not* the safe way to change 'CustNo' field }
Fields[0].AsString := '1234';

end;

Der Array-Index würde irgendwann Ärger machen. Da bin ich mir sicher (simple Tippfehler usw.). Nun denn, weiter gehts. :mrgreen:

Gruß
Hansa

hansa · Beiträge: 3079 Erhaltene Danke: 9

Hi,

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button1Click(Sender: TObject);
VAR k : textfile;
    zeile : string;
begin
  AssignFile (k,'D:\8.0\KGSQL');
  reset (k);
  WHILE NOT EOF (k) DO BEGIN
    readln (k,zeile);
    KGdatenSatz.insert;
    showmessage ('*' + zeile + '*');
    KGdatenSatz.FindField('ID').AsInteger := StrToInt (copy (zeile,1,10));
    KGdatenSatz.FindField('NR').AsString := copy (zeile,11,15);
    KGdatenSatz.FindField('BEZ').AsString := copy (zeile,16,40);
  END;
end;

Soweit sieht das schon mal gut aus. ABER : :idea:

Irgendwo fehlt doch noch was. Die Felder ID und NR sind integer. BEZ ist in IB char (25). In der Textdatei hat ID Länge 10 und nr 5. Kriege aber immer die Beschwerde, nr könne nicht richtig umgewandelt werden. BEZ ist ja sowieso ein string. Das mit AsInteger usw. hab ich ansch. noch nicht kapiert.

Gruß
Hansa
[/quote]

hansa · Beiträge: 3079 Erhaltene Danke: 9

So gehts halt doch (mit der kleinsten Datei, die mir einfiel) :mrgreen:

:
Kopiert man einen Teilstring jedesmal aus einem kompletten und beginnt bei Zeichen 1, so kann es nicht gehen.

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.Button1Click(Sender: TObject);
VAR k : textfile;
    zeile : string;
begin
  AssignFile (k,'D:\8.0\KGSQL');
  reset (k);
  KGdatenSatz.open;
  WHILE NOT EOF (k) DO BEGIN
    readln (k,zeile);
    KGdatenSatz.insert;
    KGdatenSatz.FindField('ID').AsInteger := StrToInt (copy (zeile,1,10));
    KGdatenSatz.FindField('NR').AsString := copy (zeile,11,5);
    KGdatenSatz.FindField('BEZ').AsString := copy (zeile,16,25);
    KGdatenSatz.Post;
  END;
  CloseFile (k);
  DataBase.Commit;
end;

Lasse ich das aber zweimal ablaufen, ist alles doppelt in der DB... also können die Indices nicht stimmen....kein Wunder, da ich die ganze DB gelöscht habe. :angel:

..stimmen die Generatoren und Trigger überhaupt ? :dance2:

Gruß
Hansa

hansa · Beiträge: 3079 Erhaltene Danke: 9

Hi,

jetzt ist noch ein Problem aufgetaucht.

Bei den umzuwandelnden Daten habe ich auch Date und Time-Felder. Die Date-Felder hab ich so behandelt :

markieren

Quelltext

1:	KUdatenSatz.FindField('KUNDESEIT').AsDateTime := StrToDate (copy (zeile,537,10));

Ich schnapp mir also einen Teilstring der Länge 10 und übergeb ihn dem IB-Datensatz. Ist dieser Teilstring z.B.'01.11.2001' steht danach in der DB '01.11.01'. Tag und Monat stehen also in der richtigen Reihenfolge drin, das Jahr ist aber nur 2-stellig. Der Punkt als Datums-Separator scheint ja zu gehen. Das DB - Feld ist aber als char (10) hinterlegt, irgendwo wird trotzdem das Jahr abgeschnitten.

Das mit Char (10) ist aber sowieso eine Übergangslösung, da ich außer Timestamp in IB noch nichts gesehen habe. Aber muß ich wirklich Date und Time-Variablen in solch eine Kiste zwängen ? Falls ja, wie geht denn das.

Jetzt fällt mir noch was auf : in obigem Code steht ja drin AsDateType und StrToDate. Also wird von Delphi der string falsch umgerechnet (zumindest für diesen Fall) oder die IB-DB macht das dann nicht, wie ich es will. Oder irgendwelche Windows-Einstellungen sind dran Schuld. Weiß jemand was ?

Gruß
Hansa

LCS · Verfasst: Do 17.10.02 09:39

Hi
Wenn du das Datum in einem Char-Feld speicherst ist die Zuweisung wie du sie machst unnötig.

markieren

Quelltext

1:	KUdatenSatz.FindField('KUNDESEIT').AsDateTime := StrToDate (copy (zeile,537,10));

Du wandelst zuerst den String in ein Datum um (dadurch entsteht auch deine zweistellige Jahreszahl), dann weist du dieses Datum mit AsDateTime einem Stringfeld zu damit es wieder in einen String umgewandelt wird.
In dem Fall würde genügen:

markieren

Quelltext

1:	KUdatenSatz.FindField('KUNDESEIT').AsString := copy (zeile,537,10);

hansa hat folgendes geschrieben:

Das mit Char (10) ist aber sowieso eine Übergangslösung, da ich außer Timestamp in IB noch nichts gesehen habe.

Alle anderen Datenbanken die ich kenne, verfügen auch nur über einen DatumZeit Typ. Wozu willst du noch was anderes :?!?:

hansa hat folgendes geschrieben:

Aber muß ich wirklich Date und Time-Variablen in solch eine Kiste zwängen ?

Wo ist denn dabei das Problem? In Delphi verwendest du doch auch TDateTime.

hansa hat folgendes geschrieben:

Falls ja, wie geht denn das.

Genauso wie du es in deinem Code schon machst:

markieren

Quelltext

1:	KUdatenSatz.FindField('KUNDESEIT').AsDateTime := StrToDate (copy (zeile,537,10));

Gruss Lothar

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

hansa · Beiträge: 3079 Erhaltene Danke: 9

Hi,

Zitat:

Alle anderen Datenbanken die ich kenne, verfügen auch nur über einen DatumZeit Typ

Wollte jetzt mal die Datum/Zeit-Felder in Ordnung bringen. Als erstes wollte ich die DB-Definition anpassen, danach das Programm.

Aber sieh an ! Ich habe ja zur Auswahl TimeStamp, sowie date und time. :hair:

Was ist denn das jetzt ? Zu der zweistelligen Jahresangabe habe ich jetzt noch folgendes gefunden : DateTimeToSQLTimeStamp function. Das ist in der Unit SQLTIMST. Muß ich mir mal ansehen. Wie gesagt, bin ich davon ausgegangen, daß es nur TimeStamp gibt. Jetzt taucht date und time auf!!

Zitat:

Wozu willst du noch was anderes

Will ich ja gar nicht. Ich kann höchstens eine Ex-Freundin zitieren : "Du bist anders, als die anderen." :mrgreen:

Gruß
Hansa

LCS · Verfasst: Do 17.10.02 13:44

Hi
Date und Time sind die Dialect 1 Felder. Wenn du eine Dialect 3 Datenbank verwendest, solltest du Timestamp verwenden, das kompatibel mit TDateTime ist.
Wenn du eine Dialect 1 Datenbank verwendest, musst du stattdessen Date verwenden. In dem Fall ist Date kompatibel mit TDateTime und ermöglicht damit auch das Speichern von Zeitwerten.
Hat mich allerdings auch einiges an Nerven gekostet, bis ich da drauf gekommen bin. :autsch:

Gruss Lothar

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

hansa · Beiträge: 3079 Erhaltene Danke: 9

Hi Lothar,

Zitat:

Date und Time sind die Dialect 1 Felder

Danke für die Antwort. Sowas steht dann wahrscheinlich auf Seite 899 in einem Buch von 900 Seiten für 50 EUR. :mrgreen:

Gruß
Hansa

hansa · Beiträge: 3079 Erhaltene Danke: 9

Hi,

habe jetzt die entsprechnden Felder der DB auf TimeStamp umgebaut. In der DB stehen jetzt auch 4-stellige Jahreszahlen drin, Uhrzeit ist halt 00:00. Im Quellcode steht das ganze aber noch als TstringField. Da kommt er durcheinander. Im OI finde ich nichts über den Typ eines Feldes. Und den Quelltext, wo halt drin steht, daß es ein TstringField ist traue ich mich im Moment nicht einfach so von Hand zu verändern. Habe von 70 Feldern nur noch 5 übrig die bearbeitet werden müssen.

Wie mach ich denn das jetzt, ohne alles zu versauen. :mahn:

Gruß
Hansa

LCS · Verfasst: Fr 18.10.02 07:49

Hi

Hansa hat folgendes geschrieben:

Im Quellcode steht das ganze aber noch als TstringField. Da kommt er durcheinander. Im OI finde ich nichts über den Typ eines Feldes.

Wenn du an der Stelle persistente Felder verwendet hast, öffnest du einfach noch mal den Feldeditor, löscht das betreffende Feld und fügst es an der gleichen Position wieder neu ein. Dann passt das.

Hansa hat folgendes geschrieben:

Sowas steht dann wahrscheinlich auf Seite 899 in einem Buch von 900 Seiten für 50 EUR.

Nein, danz so krass wars nicht. Das steht irgendwo in der IB Dokumentation so zwischen den Zeilen.

Gruss Lothar

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

hansa · Beiträge: 3079 Erhaltene Danke: 9

Hi,

wie immer hat Lothar Recht. So geht das !

Zitat:

Du löschst das betreffende Feld und fügst es an der gleichen Position wieder neu ein. Dann passt das.

Will das aber etwas präzisieren. Löschen des Feldes ist klar. Aber mit Einfügen ist gemeint die Funktion Add Field zu benutzen und NICHT new Field. Der Unterschied besteht darin, daß bei new Field Name,Typ usw. angegeben werden muß. Bei add field kriegt man eine Liste noch verfügbarer Felder, wo dann der richtige Typ gleich richtig angelegt wird.

Gruß
Hansa

hansa · Beiträge: 3079 Erhaltene Danke: 9

Hi,

stecke wieder mal fest. Habe jetzt mal die Indices definiert :

markieren

Quelltext

1:
2:
3:

ALTER TABLE KUNDE8 ADD PRIMARY KEY (ID);
ALTER TABLE KUNDE8 ADD FOREIGN KEY (ARKGHAUPT) REFERENCES KG8 (ID) ON DELETE CASCADE ON UPDATE CASCADE;
ALTER TABLE KUNDE8 ADD FOREIGN KEY (ARKGUNTER) REFERENCES KG8 (ID) ON DELETE CASCADE ON UPDATE CASCADE;

Die Foreign Keys sind zwei verschiedene Keys aus einer Tabelle.

Will ich die zugehörigen Felder nun folgendermaßen in die Tabelle eintragen :

markieren

Quelltext

1:
2:
3:
4:
5:

    KuDatenSatz.insert;
    KuDatenSatz.FindField ('ID').AsInteger := StrToInt (copy (zeile,1,10));
    KuDatenSatz.FindField ('NR').AsInteger := StrToInt (copy (zeile,11,5));
    KuDatenSatz.FindField ('ARKGHAUPT').AsInteger := StrToInt (copy (zeile,16,10));
    KuDatenSatz.FindField ('ARKGUNTER').AsInteger := StrToInt (copy (zeile,26,10));

so kommt die Fehlermeldung "Access Violation" in der Zeile nach NR.

In der Tabelle steht :

markieren

Quelltext

1:
2:
3:
4:
5:

CREATE TABLE KUNDE8 (
    ID                INTEGER NOT NULL,
    NR                INTEGER NOT NULL,
    ARKGHAUPT         INTEGER,
    ARKGUNTER         INTEGER,

Weiß wer was ? :roll:

In der referenzierten Table stehen keine Null Werte oder so was, die stimmt.

Gruß
Hansa

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme