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

Kod: Zaznacz cały

select lekarz, avg(ocena) as "średnia"
    from lekarze left join oceny using(id_lekarza)
    group by id_lekarza, lekarz
    order by ...

Kod: Zaznacz cały

Sub OtworzFormularz(oEvent)
	openform(oEvent.Source.Model.Name)
End Sub

function openform(sNewFormName as string ) as object
	' Give the name of the form you want open.
	' It will only work with OO03.1 or higher
	'Don't be scared of this long sub.
	' Most is for testing if all things are good
	dim oNewForm ' This object is for subdocument.
	dim oNewFormopen ' This is the text document. Now you can reach the forms and the controls
	' Test if your version of OOo is capabel for this code
	if  GetSolarVersion < 310 then 
		print "Twoja wersja Open Offica jest za stara zainstaluj nowszą"
		end
	end if
	' Go for the object of the subdocument
	if  ThisDatabaseDocument.FormDocuments.hasbyname(sNewFormName) then 
			oNewForm=ThisDatabaseDocument.FormDocuments.getbyname(sNewFormName)
		else
			 Print "Ta baza danych nie posiada formularza o tej nazwie"
			end
	end if
	
	if not HasUnoInterfaces(oNewForm,"com.sun.star.sdb.XSubDocument") then
		' It is possible that you use a mapname and this is not good working
		' for that reason I did not work it out.
		msgbox "Twoja wersja Open Offica jest niekompatybilna z tym kodem" & chr(13) _
		& "Program zostanie zatrzymany"
		end
	end if
	' All things are tested and good open the form
	openform = oNewForm.open ' This give also back an object with is the same as thiscomponent
end function

Kod: Zaznacz cały

select id_lekarza, avg(ocena) from oceny group by id_lekarza

Kod: Zaznacz cały

select imie, nazwisko, avg(ocena) from oceny join lekarze using(id_lekarza) group by id_lekarza, imie, nazwisko