wkleilby mi ktos szybko makro (szablon) wykonujace kod SQL? tak zebym tylko wklejal swoje zapytanie (moje makra dzialaja prze menu ale chce je podpiac pod przyciski/zdarzenia)
to ponizej nie dziala, pisze ze nie ma metody ActiveConnection
Kod: Zaznacz cały
Sub update_kolumne_imie_i_nazwisko
REM make sure your connected to the database
if IsNull(ThisComponent.CurrentController.ActiveConnection) then
ThisComponent.CurrentController.connect'
endif
REM execute!
Dim oStatement As Object
oStatement = ThisComponent.CurrentController.ActiveConnection.createStatement()
sSQL = "UPDATE pracownik SET imieinazwisko = CONCAT (CONCAT(imiepracownika, 'dasd'), nazwiskopracownika" 'HSQLDB case-sensitive
oStatement.executeUpdate( sSQL ) 'Execute the SQL command
odswiezbiezace()
End Sub