To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=56437
------- Additional comments from [EMAIL PROTECTED] Mon Nov 14 08:24:33 -0800
2005 -------
The actual code i use is as follows:
RowSet = createUnoService("com.sun.star.sdb.RowSet")
RowSet.DataSourceName = "postgresql"
RowSet.CommandType = com.sun.star.sdb.CommandType.COMMAND
RowSet.Command = "SELECT barcode FROM artikel WHERE nummer=" + id
RowSet.execute()
rem MsgBox cURL
oFileAccess = createUnoService("com.sun.star.ucb.SimpleFileAccess")
oFile = oFileAccess.openFileWrite(cURL)
oOutputStream = createUnoService("com.sun.star.io.DataOutputStream")
oOutputStream.setOutputStream(oFile)
' create an inputstream from the tmp-file
rem oOutputStream = oSimpleFileAccess.openFileWrite( cUrl )
' it only returns 1 row
' so we need no loop
if RowSet.next() then
Dim mData()
Dim cData()
mData() = RowSet.getBytes(1)
' Dim oBlob as object
' oBlob = RowSet.getBlob(0)
n=0
Dim cByte as integer
while n<UBound(mData())
cByte = mData(n)
if cByte = 92 then
if mData(n+2) = 92 then
oOutputStream.writeByte(mData(n+1))
n=n+2
else
cByte = 100 * (mData(n+2)-48) + 10 * (mData(n+4)-48) + (mData(n+6)-48)
if (cByte>127) then
cByte = cByte-256
endif
n=n+6
oOutputStream.writeByte(cByte)
endif
else
oOutputStream.writeByte(mData(n))
endif
n=n+2
wend
oOutputStream.flush()
oOutputStream.closeOutput()
---------------------------------------------------------------------
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
