He intentado guardar una imagen en postgresql desde vb6 y no consigo grabar. Estoy usando PostgreSQL 9.3.14, enmi tabla tengo el campo foto tipo bytea, lei que este era el campo para almacenar imagenes.
Estoy usando estas lineas:
Código:
Dim lRst As ADODB.Recordset
Dim lImg As ADODB.Stream
Set lRst = New ADODB.Recordset
Set lRst.ActiveConnection = m_cnn.Conexion
lRst.Open "select * from tb_imagenes", , adOpenDynamic, adLockOptimistic
Set lImg = New ADODB.Stream
lImg.Type = adTypeBinary
lImg.Open
lImg.LoadFromFile m_ruta_imagen
lRst.AddNew
lRst!id = m_id + 1
lRst.Fields("foto").Value = lImg.Read 'Aqui me salta error
lRst.Update
lRst.Close
Set lRst = Nothing
lImg.Close
Set lImg = Nothing
Dim lImg As ADODB.Stream
Set lRst = New ADODB.Recordset
Set lRst.ActiveConnection = m_cnn.Conexion
lRst.Open "select * from tb_imagenes", , adOpenDynamic, adLockOptimistic
Set lImg = New ADODB.Stream
lImg.Type = adTypeBinary
lImg.Open
lImg.LoadFromFile m_ruta_imagen
lRst.AddNew
lRst!id = m_id + 1
lRst.Fields("foto").Value = lImg.Read 'Aqui me salta error
lRst.Update
lRst.Close
Set lRst = Nothing
lImg.Close
Set lImg = Nothing
Alguna pista para solucionarlo?