Ich habe diesen CodeSchnippsel gefunden, der fast genau das macht, was ich brauche... leider nur fast. Ich habe ein Base-Formular erzeugt, und auf diesem Formular 2 DB-Objekte (beides sind Queries) geöffnet/verbunden, die über den Formular-Navigator auch "Formular" heissen... was leider ein wenig verwirrend ist. Das erste Datenbank-Objekt ist attached zu einem Grid-Grid-Control, was auch bestens funktioniert.
Mein Problem ist das zweite DB-Objekt, für das ich kein Control auf dem Bildschirm/Formular benötige, sondern welches ich nur einmal von Record 1 bis EOF/NewRec=True durchskippen möchte.
Die Frage ist: Wie verbinde ich ein RowSet direkt mit dem DB-Form ohne das unten stehende SubForm zu haben? Falls es auich ein direktes Recordset (mit Open Query/Close) gibt, ohne den Umweg über das Formular, das wäre auch eine gute Lösung... für die ich leider ebenfalls keine Beispiele finde. Ich hoffe auf ein bisschen Hilfe und bedanke mich im voraus.
mfg
Maddin
https://forum.openoffice.org/en/forum/v ... 30#p408944
Code: Alles auswählen
Sub iterate_through_all_rows
oMainForm = ThisComponent.Drawpage.forms.getbyName("MainForm")
oSubForm = oMainForm.getbyName("SubForm")
oResult = oSubForm.createResultSet
oResult.beforefirst
count = 0
while oResult.next
count = count + 1
sSN = oResult.Columns.getbyName("SN").getstring
sFN = oResult.Columns.getbyName("FN").getstring
print "No. " & count & ": " & sSN & ", "& sFN
wend
End Sub