Hallo Andreas, hallo Frank,
>
> Mit ostamp.Text = now()
> versuchst Du einen Basic-Datentyp als text an ein Datenbankfeld zu
> übergeben.
> http://api.openoffice.org/docs/common/ref/com/sun/star/sdb/XColumnUpdate.ht
>ml#updateTimestamp basicTime = Now()
> unoTime = createUnoStruct("com.sun.star.util.DateTime")
>
> Dann schreibst Du die Zeiteinheiten in das Struct.
> unoTime.Year = Year(basicTime)
> und so weiter, und schließlich:
> updateTimestamp(unoTime)
Danke für die Lösungen. Jetzt klappts. So sieht die ganze Lösung jetzt aus:
Sub Stamp
DIM odoc AS OBJECT
DIM odrawpage AS OBJECT
DIM oform AS OBJECT
DIM ostamp AS OBJECT
odoc=thisComponent
odrawpage=odoc.drawpage
oform=odrawpage.forms.getByName("MainForm")
ostamp=oform.getByName("Stamp")
basicTime = Now()
unoTime = createUnoStruct("com.sun.star.util.DateTime")
REM Dann schreibst Du die Zeiteinheiten in das Struct.
unoTime.Year = Year(basicTime)
unoTime.Month = Month(basicTime)
unoTime.Day = Day(basicTime)
unoTime.Hours = Hour(basicTime)
unoTime.Minutes = Minute(basicTime)
unoTime.Seconds = Second(basicTime)
REM Uebergabe an den FormController
ostamp.BoundField.updateTimestamp(unoTime)
End Sub
Gruß
Robert
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
