Forum społeczności użytkowników OpenOffice i LibreOffice

: **wt sie 04, 2015 2:50 pm**

szukam w necie i nie moge znalezc
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

: **wt sie 04, 2015 8:33 pm**

https://forum.openoffice.org/pl/forum/d ... hp?id=1309

: **śr sie 05, 2015 9:48 am**

dzieki:], w miedzyczasie posiedzialem chwile i wykminilem, moze sie komus przyda

Kod: Zaznacz cały

sub execute_sql(strSQL as string)
   Dim oStatement As Object
   Dim oDoc As Object
		
   oDoc = ThisDatabaseDocument.CurrentController
   if IsNull(oDoc.ActiveConnection) then
      oDoc.connect
   endif
   
   oStatement = oDoc.ActiveConnection.createStatement()
   oStatement.execute(strSQL)
end sub

przykladowe uzycie:

Kod: Zaznacz cały

sub makrotestowe
	execute_sql("UPDATE ""pracownik2"" SET ""imieinazwisko"" = CONCAT (CONCAT(""imiepracownika"", ' '), ""nazwiskopracownika"") ")
end sub

moj poprzedni sposob z jakiegos forum potzrebowal nazwy bazy i mial na sztywno wpisana, ten dziala ok:]

a ten plik obadam dzieki:]

Forum społeczności użytkowników OpenOffice i LibreOffice

szablon do makro wykonujace kod SQL

szablon do makro wykonujace kod SQL

Re: szablon do makro wykonujace kod SQL

Re: szablon do makro wykonujace kod SQL