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 --
---------------------------------------------------------------------------------------
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 |