Hallo Wolfgang,
>
> ich habe in einem Makro den Versuch gemacht mit so einer Konstruktion
> wie sie im Handbuch beschrieben ist
>
>
> bRichtig = oResult.lastIF oResult.Last THEN
> iZaehler = oResult.getRow
> etc. etc
Ich gehe davon aus, dass wir beim Makrokapitel teilweise noch etwas
nachjustieren und vor allem zusätzlich erklären müssen.
IF oResult.Last THEN ...
geht nicht.
Für oResult.Last müsste den Zeiger auf den letzten Datensatz setzen.
(Steht im Handbuch etwas weiter unten)
IF oResult.IsLast THEN ...
funktioniert hingegen so, dass es nachforscht, ob der Zeiger endlich auf
dem letzten Datensatz sitzt.
Komplett also in etwa so etwas, ausgeführt direkt in dem
Datenbankdokument ...
------------------
SUB Main
DIM oDatasource AS OBJECT
DIM oConnection AS OBJECT
DIM oSQL_Statement AS OBJECT ' das Objekt, das den SQL-Befehl ausführt
DIM stSql AS STRING ' Text des eigentlichen SQL-Befehls
DIM oResult AS OBJECT ' Ergebnis für executeQuery
DIM iResult AS LONG ' Ergebnis für executeUpdate
oDatasource = thisComponent.dataSource
oConnection = oDatasource.getConnection("","")
oSQL_Statement = oConnection.createStatement()
stSql = "SELECT * FROM ""Tabelle"""
oResult = oSQL_Statement.executeQuery(stSql)
WHILE oResult.next ' einen Datensatz nach dem anderen verarbeiten
REM übernimm die benötigten Werte in einzelne Variable
sVar = oResult.getString(2) ' mach etwas mit diesen Werten
IF oResult.IsLast THEN
iResult = oResult.getRow
ELSE
iResult = 0
END IF
WEND
msgbox "Datensätze insgesamt: " + iResult
END SUB
------------------------
Gruß
Robert
--
Liste abmelden mit E-Mail an: [email protected]
Probleme?
http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert
