Oldal: 1 / 1

aktuális idő hozzáadása

HozzászólásElküldve: 2009. május 12., kedd 14:51
Szerző: villanyos
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

Re: aktuális idő hozzáadása

HozzászólásElküldve: 2009. május 12., kedd 15:52
Szerző: r4zoli
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:
Kód: Egész kijelölése   KinyitásÖsszecsukás
ALTER TABLE "tabla" ALTER COLUMN "datum" DATE DEFAULT CURRENT_DATE;


Ha dátum/idő a mező formátum:
Kód: Egész kijelölése   KinyitásÖsszecsukás
ALTER TABLE "tabla" ALTER COLUMN "datum_ido" TIMESTAMP DEFAULT CURRENT_TIMESTAMP;


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.
Kód: Egész kijelölése   KinyitásÖsszecsukás
    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


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.

Re: aktuális idő hozzáadása

HozzászólásElküldve: 2009. május 13., szerda 13:11
Szerző: villanyos
Köszönöm

Re: aktuális idő hozzáadása

HozzászólásElküldve: 2013. december 10., kedd 22:59
Szerző: mytom
Ü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?