Re: [de-discuss] SQL mittels Makro auf Schaltfläche legen

Hallo LOUser,

jetzt habe ich aus Versehen gerade einen Antwort-Post aus diesem Thread 
gelöscht. Das tut mir Leid, wollte nur einen Teil des Inhalts löschen..

Jetzt ein nuer Versuch:

Wenn ich dieses Makro bei geöffnetem Forular über den Menüpunkt => 
Makros => ausführen starte, dann werden die Daten richtig übertragen,

wenn ich das Makro allerdings über einen Button, der sich auf dem 
Formular befindet starte, dann passiert nichts.

Wo liegt denn da der Fehler?

MfG  L-H


> Sub Fuett_anfuegen
>
> DIM oForm AS OBJECT
>
> 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 INTEGER       ' Ergebnis für executeUpdate
>
> oForm = thisComponent.Drawpage.Forms.getByName("MainForm")
>
> oConnection = oForm.ActiveConnection()
>
> oSQL_Statement = oConnection.createStatement() 'Statementobjekt erzeugen
>
> stSql = "INSERT INTO ""tbl_Fuetterung_Uebergabe"" ( ""StockNr"", 
> ""Datum"", ""Jahr_ID"", ""Futterart_ID"" ) SELECT 
> ""tbl_StockGrunddaten"".""StockNr"", ""tab_Vorg_Fuet"".""Datum"", 
> ""tab_Vorg_Fuet"".""Jahr_ID"", ""tab_Vorg_Fuet"".""Futterart_ID"" FROM 
> ""tab_Vorg_Fuet"", ""tbl_Vorg_Jahr"", ""tbl_Vorg_Futterart"", 
> ""tbl_StockGrunddaten"" WHERE ""tab_Vorg_Fuet"".""Jahr_ID"" = 
> ""tbl_Vorg_Jahr"".""ID"" AND ""tab_Vorg_Fuet"".""Futterart_ID"" = 
> ""tbl_Vorg_Futterart"".""ID"" AND ""tbl_StockGrunddaten"".""Marke"" = 
> TRUE AND ""tbl_StockGrunddaten"".""Abgangsjahr"" = 0;"
>
> iResult = oSQL_Statement.executeUpdate(stSql) 'Anfügeabfrage ausführen.
>
> End Sub

--
Liste abmelden mit E-Mail an: discuss+unsubscribe@de.libreoffice.org
Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/discuss/
Datenschutzerklärung: https://www.documentfoundation.org/privacy