Hello,
I am new to this list, hello everybody!
I've a problem with a Base-Application (Basic). See below for a codesample.
The code is adding a row to a database (Base-Document with embedded
HSQL-DB) every time it gets called. However the changes are lost after
closing OOO. To make them permanent it's necessary to flush() the
DataSource.
First question: This is not exspected bahaviour, is it? Changes should
be persistently saved without calling flush(), or am I wrong?
But the trouble gets worse... The flush() - workaround works fine on
Linux (Using OOO 3.2.1 and 2.4 on Debian), but it crashes OOO 3.2.1 on
Windows (XP) ungracefully.
Any ideas? Thanx a lot,
Daniel
REM ***** BASIC *****
Option Explicit
REM Sub TestDB
REM Inserts a new row into a database every time it is executed
REM Requires a registered database called "test" with one column: "id"
Sub TestDB
Dim DBContext, DataSource, Connection As Object
Dim Statement, ResultSet As Object
Dim NrOfRows As Integer
REM Establish database connection
DBContext = createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource = DBContext.getByName("test")
Connection = DataSource.GetConnection("","")
REM Insert a new row into database
Statement = Connection.createStatement()
Statement.executeUpdate("INSERT INTO ""test"" (""id"") VALUES (NULL)")
REM Count rows in database, to check if insertion did work
ResultSet = Statement.executeQuery("SELECT COUNT(*) FROM ""test""")
ResultSet.next
NrOfRows = ResultSet.getInt(1)
REM Show result
MsgBox "Rows in database: " & NrOfRows
REM The above code works, but changes to DB are not persistent.
REM That means: after closing OOO the added rows are lost
REM Flushing the DataSource helps, but ... (see mail)
REM DataSource.flush()
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
