Writing BLOBS to pgsql via ODBC using VB

From: Denis Gasparin <denis(at)edinet(dot)it>
To: pgsql-odbc(at)postgresql(dot)org
Subject: Writing BLOBS to pgsql via ODBC using VB
Date: 2001-10-19 16:20:14
Message-ID: 5.1.0.14.0.20011019180458.00a68b90@10.1.1.2
Views: Raw Message | Whole Thread | Download mbox | Resend email
Thread:
Lists: pgsql-odbc

I am having problems while trying to insert a BLOB into a pgsql table using VB.
The error i get is:
S1090: [Microsoft][ODBC Driver Manager] Invalid String or buffer
length

I am using postgresql 7.1.3, Postgresql ODBC driver 7.01.00.07 and RDO 2.0

Have you any idea why i get this error?

Additional infos:

Here is the table definition:
CREATE TABLE MYTABLE (
MAIN INTEGER NOT NULL PRIMARY KEY,
OBJECT LO
);

Here is the code:

Private Sub Command1_Click()

Dim rdoConn As New rdoConnection, rdoRS As rdoResultset, SQL As String
Dim numfile As Integer
Dim filesize As Long
Dim query As rdoQuery
Dim chunk() As Byte

' DB Connection
With rdoConn
.Connect = "uid=myuser;pwd=mypwd;DSN=BLOB_TEST;"
.CursorDriver = rdUseOdbc
.LoginTimeout = 3
.EstablishConnection rdDriverNoPrompt
End With
Set query = rdoConn.CreateQuery("MyQuery", "select * from mytable")
Set rdoRS = query.OpenResultset(rdOpenKeyset, rdConcurRowVer)
If rdoRS Is Nothing Or rdoRS.Updatable = False Then
MsgBox "Cannot create rdoResultSet"
End
End If

' Now insert the record in the table
If rdoRS.EOF Then
' Insert a new record
rdoRS.AddNew

' The MAIN field
rdoRS!MAIN = 2678

' Get a file number
numfile = FreeFile

' Open the file i've to insert in the table
Open "c:\myfile.doc" For Binary Access Read As #numfile
filesize = LOF(numfile)
If filesize = 0 Then
MsgBox "Unable to open the file"
Close
End
End If

ReDim chunk(filesize)

' Read the file into the array
Get #numfile, , chunk()

' Try to insert
rdoRS!OBJECT.AppendChunk chunk()

' In the update statement i get the error
rdoRS.Update
Close #numfile
End If
End Sub

Regards,

Doct. Eng. Denis
Gasparin denis(at)edistar(dot)com
---------------------------------------------------------------------------------------
Programmer & System
Administrator http://www.edistar.com
---------------------------------------------------------------------------------------
Well alas we've seen it all before
Knights in armour, days of yore
The same old fears and the same old crimes
We haven't changed since ancient times

-- Iron Hand -- Dire Straits --
---------------------------------------------------------------------------------------

Browse pgsql-odbc by date

  From Date Subject
Next Message Ryan C. Bonham 2001-10-19 18:15:45 -2147217842 Operation was canceled
Previous Message Ryan C. Bonham 2001-10-19 14:10:04 Re: ODBC ServerSide Cursors Error