Közösségi támogató fórum az Apache OpenOffice, LibreOffice, és az egyéb OpenOffice.org alapú programokhoz
https://forum.openoffice.org/hu/forum/
Megoldás lehetséges, de módosítani kell hozzá a táblát, alapértelmezett értéket kell megadni:Ziuatanejo írta:3.2 -es verzióban még nem lehetett csak fix értéket megadni dátum mezőnek. Nekem arra lenne szükségem, hogy beleírjam a rekordba a rögzítés dátumát és ez jelenjen meg rögtön kezdőértékként. 3.3 -asban van erre megoldás?
Kód: Egész kijelölése
ALTER TABLE "Table1" ALTER COLUMN "LastEdit" SET DEFAULT CURRENT_TIMESTAMPKód: Egész kijelölése
Sub onUpdateRecord( oEvent as object )
dim oDataForm as variant
dim oStatement as variant
dim oResultSet as variant
if oEvent.Source.SupportsService( "com.sun.star.form.component.DataForm" ) then
if oEvent.Action = com.sun.star.sdbc.ChangeAction.UPDATE then
oDataForm = oEvent.Source
oStatement = oDataForm.ActiveConnection.CreateStatement
oStatement.EscapeProcessing = False
oResultSet = oStatement.executequery( "CALL CURRENT_TIMESTAMP" )
oResultSet.next
oDataForm.updateTimeStamp( oDataForm.FindColumn( "LastEdit" ), oResultSet.getTimestamp( 1 ) )
end if
end if
End Sub
Egy szóvalsem említetted, hogy MySQL-hez csatlakoztál az OOo-val. A megadott példa biztosan csak a beépített hsqldb esetében működik.Ziuatanejo írta:A tábla szintű megoldást már próbáltam régebben, de a MySql akkori verziójában nem lehetett megoldani, most abból is újjabb verziót raktam fel, lehet, hogy már lehet, ennek még utána kell néznem.
A makrós megoldás tökéletes lesz nekem, ha működik MySql -el is, de még soha nem csináltam makrót, úgyhogy azzal csak akkor próbálkozom, ha lesz egy kicsit több időm.