sziasztok !
A problémám a következö lenne .
Szeretném ha az adatbázis feltöltésekor a dátum mezőben mindig az aktuális nap dátuma és az órája lenne látható.
Még nem találtam sehol infót hozzá.
admin: leválasztottam, mert az eredeti témától független a kérdés, legközelebb légyszíves indíts új témát
aktuális idő hozzáadása
aktuális idő hozzáadása
Ms Windows XP • 3.0.X • Ms Windows XP
- r4zoli
- Site Admin
- Hozzászólások: 850
- Csatlakozott: 2008. február 17., vasárnap 4:52
- Tartózkodási hely: Budapest
Re: aktuális idő hozzáadása
Ha csak az új rekord hozzáadásakor lényeges, akkor az Eszközök>SQL... alatt elérhető parancsablakban megadni:
Dátum formátumú mező esetében:
Ha dátum/idő a mező formátum:
Az űrlapnál ekkor ezt a mezőt nem kell hozzáadni, vagy a Szerkesztés>Adatbázis>Speciális beállítások alatt a "Űrlap adatbeviteli ellenőrzések " opciót ki kell kapcsolni, de ennek hatását a többi mezőre nem szabad figyelmen kívül hagyni.
Ha a rekordok módosítása is érdekes, akkor az itt megtalálható makrót kell alkalmazni.
A makrót az űrlap MainForm/Tulajdonságok/Események lap/"Rekord művelet előtt" tulajdonságához kell hozzárendelni.
Mindenhol értelem szerűen a "datum" és a "datum_ido" mezőnevek helyett (a makróban is), a saját mezőneveket kell használni.
Dátum formátumú mező esetében:
Kód: Egész kijelölése
ALTER TABLE "tabla" ALTER COLUMN "datum" DATE DEFAULT CURRENT_DATE;
Kód: Egész kijelölése
ALTER TABLE "tabla" ALTER COLUMN "datum_ido" TIMESTAMP DEFAULT CURRENT_TIMESTAMP;
Ha a rekordok módosítása is érdekes, akkor az itt megtalálható makrót kell alkalmazni.
Kó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( "datum_ido" ), oResultSet.getTimestamp( 1 ) )
end if
end if
End Sub
Mindenhol értelem szerűen a "datum" és a "datum_ido" mezőnevek helyett (a makróban is), a saját mezőneveket kell használni.
Olvasd el, és lehetőleg tartsd be az útmutatót a fórum használatához.
AOO 3.4.1 win7, LibO 4.0 win7.
AOO 3.4.1 win7, LibO 4.0 win7.
Re: aktuális idő hozzáadása
Üdvözlet mindenkinek!
Kipróbáltam a 4.1.3 Libre Office-t és a következőbe futottam bele:
MySQL adatbázisban van egy timestamp mező, és ha BASE-el nativ kapcsolat segítségével bemegyek az adatbázisba,
megnyitom a táblát, össze vissza írogat minden féléket a mezőre.
Ezzel kapcsolatban tud valaki segíteni?
Kipróbáltam a 4.1.3 Libre Office-t és a következőbe futottam bele:
MySQL adatbázisban van egy timestamp mező, és ha BASE-el nativ kapcsolat segítségével bemegyek az adatbázisba,
megnyitom a táblát, össze vissza írogat minden féléket a mezőre.
Ezzel kapcsolatban tud valaki segíteni?
Ms Windows XP/WIN7 • 3.0.X/3.2.1 • Ubuntu 8.x/9X/10X