Forum LibreOffice i OpenOffice korisnika

simichmilosh

Pozdrav gospodi na forumu, molio bih za pomoć?
Puno bi mi znacilo kad bi mogao da u vec postojecoj tabeli otvorim određen broj redova u kojima bi se upisali po redu automacki brojevi koji su ujedno i kljuc tabeli. Onda bih ja to već popunio kako mi ogovara... Hvala u napred

***Goran Rakić***

Nisam siguran da sasvim razumem pitanje ali pokušaću da odgovorim primerom.

Pretpostavimo da imamo tabelu Podaci (id, ime, prezime) gde je polje id automatska celobrojna vrednost (0, 1, 2,...) i ujedno primarni ključ tabele. Polja ime i prezime su opciona (Potreban je unos: Ne).

Dalje, recimo da imamo obrazac Obrazac kao na slici:

Klikom na dugme Dodaj 10 redova želimo da dodamo 10 praznih redova, dodeljujući sledeće automatske unose za polje id pri čemu ime i prezime ostaju prazni.

Akciju koja se realizuje klikom na dugme pravimo pomoću makroa. Iz menija kliknemo na Alatke > Makroi > Organizuj makroe > Libreofis bejzik i zatim u datoteci baze napravimo novi modul. U modulu nam je potreban sledeći kod:

REM  *****  BASIC  *****
 
Sub Dodaj10Redova(Event as object)
 
dim Button
dim Form
dim Connection
dim Statement
 
Button = Event.Source.Model
Form = Button.Parent
Connection = Form.ActiveConnection
 
Statement = Connection.CreateStatement
 
For i=1 To 10
	Statement.Execute("INSERT INTO ""Podaci"" (""id"") VALUES (NULL)")
Next i
 
Form.Reload
 
End Sub

Sačuvamo kod i u obrascu u osobinama dugmeta kao akciju dodelimo makro Dodaj10Redova iz novog modula.

Opciono u osobinama formulara možemo da formular vežemo za SQL upit koji broji unose u tabeli (SELECT COUNT(*) AS c FROM "Podaci") i zatim polje za unos vežemo za podatak c iz upita. Tada će se u polju prikazivati broj redova u tabeli.

Primer datoteke baze je u prilogu.