Re: [de-users] Makro in Base: ResultSet was set to forward only.

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: users+unsubscribe@de.libreoffice.org
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