OpenOffice.info

[quote]und wenn es keinen Mitarbeiter gibt, muss man nur die zweite INSERT-Zeile weglassen
[/quote]
das meinte ich mit "Verzweigung", denn im Code ist diese Prüfung (ob ein Mitarbeiter eingetragen werden soll) ja ein If-Then.


Gruß
Stephan

Hallo Robert,
Klasse!
Kann ggf. mal gebraucht werden, meist, per verknüpftem Unterformular, braucht man das ja nicht.

Gruß Rik

Hallo R,

habe ich natürlich direkt in das Handbuch übernommen.

Gruß

Robert

Hallo Stephan,
[quote=Stephan post_id=273305 time=1515949801 user_id=814]
Das ist noch etwas eleganter.
[/quote]denke ich auch, und wenn es keinen Mitarbeiter gibt, muss man nur die zweite INSERT-Zeile weglassen.
Gruß R

Hallo F3K Total,

[quote]Das habe ich versucht, DEFAULT bringt einen Fehler, wenn aber die Auto-ID Felder weggelassen werden, funktioniert es:
[/quote]

Das ist noch etwas eleganter.

Leider muss in Praxis wohl trotzdem eine Verzweigung in den Code, denn "FID" in Mitarbeiter sollte nur geschrieben wenn zumindest ein sonstiges Datenfeld in "Mitarbeiter" Inhalt hat - ich habe das nicht erwähnt, aber in Praxis wird es auch unvollständige Datensätze geben dürfen und hierbei wird es wohl auch Datensätze zu Firmen ganz ohne Mitarbeitereintrag geben.


Gruß
Stephan

Hallo Robert,

[quote=RobertG post_id=273299 time=1515946888 user_id=47077]
Mit
[code]
stSql = "CALL IDENTITY()"
oAbfrageergebnis = oSQL_Anweisung.executeQuery(stSql)
WHILE oAbfrageergebnis.next
inID = oAbfrageergebnis.getLong(1)
WEND
[/code]
erhältst Du den zuletzt vergebenen Wert für ein automatisch vergebenes Primärschlüsselfeld.[/quote]

interessant, das spart Arbeit (ich hatte vor es mit WHERE und diversen AND zu machen)

[quote]Du müsstest bei dem anderen Verfahren also:
Mitarbeiter eingeben (INSERT)
Mitarbeiter ID auslesen (CALL) und als Variable speichern
Firma eingeben (INSERT)
Firma ID auslesen (CALL)
Mitarbeiter Firma ID einfügen (UPDATE für FirmaID WHERE MitarbeiterID = ...)

Folglich: 5 Arbeitsschritte

Umgekehrt:
Firma eingeben (INSERT)
Firma ID auslesen (CALL)
Mitarbeiter eingeben (INSERT)

Nur 3 Arbeitsschritte.
[/quote]

OK, dann lag ich ja richtig.


Gruß
Stephan

INSERT INTO "Firmen" ("Firma","Abteilung",PLZ,"Ort","Strasse") VALUES ('XXX','ABC','DE-12345','M-ORT','S-Strasse');
INSERT INTO "Mitarbeiter"(FID,"Name" ,"Vorname","Email" ,"Durchwahl") VALUES (IDENTITY(),'Meyer', 'Horst','Horst.Meyer@Firma.com','1234567')

Hallo Stephan,
ich habe im HSQL-User Guide noch einen anderen Weg gefunden:
[quote][i]In the following example, the identity value for the first INSERT statement is generated automatically using the DEFAULT
keyword. The second INSERT statement uses a call to the IDENTITY() function to populate a row in the
child table with the generated identity value.[/i]
CREATE TABLE star (id INTEGER GENERATED BY DEFAULT AS IDENTITY PRIMARY KEY,firstname VARCHAR(20),lastname VARCHAR(20))
CREATE TABLE movies (starid INTEGER, movieid INTEGER PRIMARY KEY, title VARCHAR(40))
INSERT INTO star (id, firstname, lastname) VALUES (DEFAULT, 'Felix', 'the Cat')
INSERT INTO movies (starid, movieid, title) VALUES ([color=#0040FF]IDENTITY()[/color], 10, 'Felix in Hollywood')[/quote]
Das habe ich versucht, DEFAULT bringt einen Fehler, wenn aber die Auto-ID Felder weggelassen werden, funktioniert es:
[code]INSERT INTO "Firmen" ("Firma","Abteilung",PLZ,"Ort","Strasse") VALUES ('XXX','ABC','DE-12345','M-ORT','S-Strasse');
INSERT INTO "Mitarbeiter"(FID,"Name" ,"Vorname","Email" ,"Durchwahl") VALUES (IDENTITY(),'Meyer', 'Horst','Horst.Meyer@Firma.com','1234567')[/code]So wird die zunächst erzeugte FID direkt in die Mitarbeitertabelle übernommen.
Gruß R

stSql = "CALL IDENTITY()"
oAbfrageergebnis = oSQL_Anweisung.executeQuery(stSql)
WHILE oAbfrageergebnis.next
inID = oAbfrageergebnis.getLong(1)
WEND

Hallo Stephan,

sofern der Fremdschlüssel in Mitarbeiter auch leer bleiben darf (NULL), dann kannst Du auch anders herum befüllen. Damit erzeugst Du dann aber mehr Abfragen und machst es Dir unnötig kompliziert. Mit
[code]
stSql = "CALL IDENTITY()"
oAbfrageergebnis = oSQL_Anweisung.executeQuery(stSql)
WHILE oAbfrageergebnis.next
inID = oAbfrageergebnis.getLong(1)
WEND
[/code]
erhältst Du den zuletzt vergebenen Wert für ein automatisch vergebenes Primärschlüsselfeld.

Du müsstest bei dem anderen Verfahren also:
Mitarbeiter eingeben (INSERT)
Mitarbeiter ID auslesen (CALL) und als Variable speichern
Firma eingeben (INSERT)
Firma ID auslesen (CALL)
Mitarbeiter Firma ID einfügen (UPDATE für FirmaID WHERE MitarbeiterID = ...)

Folglich: 5 Arbeitsschritte

Umgekehrt:
Firma eingeben (INSERT)
Firma ID auslesen (CALL)
Mitarbeiter eingeben (INSERT)

Nur 3 Arbeitsschritte.

Gruß

Robert

Sub neuer_datensatz()
'Testdaten (zukünftig aus Dialog auslesen)
x1 = "Firma1"
x2 = "Abteilung1"
x3 = "12345"
x4 = "Testort"
x5 = "Teststrasse"

oDatenquelle = thisDatabaseDocument.CurrentController
If NOT (oDatenquelle.isConnected()) THEN
	oDatenquelle.connect()
END IF
oVerbindung = oDatenquelle.ActiveConnection()
oSQL_Anweisung = oVerbindung.createStatement()
stSql = "INSERT INTO ""Firmen"" (""Firma"", ""Abteilung"", ""PLZ"", ""Ort"", ""Strasse"") " _
	& "VALUES ('"+x1+"','"+x2+"','"+x3+"','"+x4+"','"+x5+"')"
oSQL_Anweisung.executeUpdate(stSql)
End Sub

Hallo,

meine Datenbank (interne HSLQB) enthält zwei Tabellen mit folgender Beziehung. Dabei sind FID (nur in Firmen) und MID Primärschlüssel mit Autowerten.


[attachment=0]Tabellen-Beziehungen.gif[/attachment]


Die Datenbank-Tabellen sollen nur aus einem Basic-Dialog (kein Formular) mit Daten befüllt werden, hierzu enthält der Dialog alle nötigen Felder (Firma, Abteilung, PLZ, Ort, Strasse, Name, Vorname, Email, Durchwahl).

Der Eintrag in die Datenbank erfolgt nun zuerst in die Tabelle "Firmen" mittels:

[code]Sub neuer_datensatz()
'Testdaten (zukünftig aus Dialog auslesen)
x1 = "Firma1"
x2 = "Abteilung1"
x3 = "12345"
x4 = "Testort"
x5 = "Teststrasse"

oDatenquelle = thisDatabaseDocument.CurrentController
If NOT (oDatenquelle.isConnected()) THEN
oDatenquelle.connect()
END IF
oVerbindung = oDatenquelle.ActiveConnection()
oSQL_Anweisung = oVerbindung.createStatement()
stSql = "INSERT INTO ""Firmen"" (""Firma"", ""Abteilung"", ""PLZ"", ""Ort"", ""Strasse"") " _
& "VALUES ('"+x1+"','"+x2+"','"+x3+"','"+x4+"','"+x5+"')"
oSQL_Anweisung.executeUpdate(stSql)
End Sub
[/code]

anschliessend würde ich den für diesen Datensatz automatisch erzeugten Wert für "FID" ermiteln indem ich per SQL für den gerade eingetragenen Datensatz die "FID" abfrage.

Die ermittelte "FID" kann ich nun für die zweite Tabelle ("Mitarbeiter") nutzen um dort die restlichen Werte einzutragen.


Ist dieses Vorgehen der einzig mögliche Weg komplette Datensätze per Makro einzutragen, wenn "FID" und "MID" als Autowerte definiert sein sollen, d.h. muss ich immer erst in Tabelle "Firmen" schreiben damit Base den Autowert für "FID" erzeugt, dann den Autowert auslesen und kann dann erst, in Kenntnis von "FID" in der zweiten Tabelle die zugehörigen Werte eintragen? Oder geht das auch anders?

[size=85](ich hoffe ich gehe richtig in der Annahme das das Einbeziehen einer Abfrage prinzipiell nicht helfen kann, weil ja eine Abfrage immer nur Daten aus Tabellen 'zieht' aber nicht Daten in Tabellen übergeben kann)
[/size]


Gruß
Stephan