aktuális idő hozzáadása

Adatbázis kezelő
villanyos
Hozzászólások: 3
Csatlakozott: 2009. május 12., kedd 14:45

aktuális idő hozzáadása

Hozzászólás 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
Ms Windows XP • 3.0.X • Ms Windows XP
Avatar
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

Hozzászólás 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

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

 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

    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.
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.
villanyos
Hozzászólások: 3
Csatlakozott: 2009. május 12., kedd 14:45

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

Hozzászólás Szerző: villanyos »

Köszönöm
Ms Windows XP • 3.0.X • Ms Windows XP
mytom
Önkéntesek
Hozzászólások: 45
Csatlakozott: 2009. március 19., csütörtök 12:18

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

Hozzászólás 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?
Ms Windows XP/WIN7 • 3.0.X/3.2.1 • Ubuntu 8.x/9X/10X
Válasz küldése