Autor
Estoy intentando subir y bajar archivos BLOB en un sistema ORACLE que funciona con VB6.
Estuve buscando métodos en Internet pero no lo logro hacer funcionar.
la función que cree usando de base lo leído es esta pero al llegar al rs.Open da error 80004005 no se admite el tipo de datos. Todos los ejemplos que leí hacen lo mismo con el RS
Si alguien me puede dar una / guía o consejo se lo agradeceré muchísimo.
saludos
Código:
Private Sub Up_BLOB(campo_blob As String, sql As String, Path As String)
Dim rs As ADODB.Recordset
Dim stm As ADODB.Stream
Set rs = New ADODB.Recordset
rs.Open sql, CNN, adOpenKeyset, adLockOptimistic
Set m_stream = New ADODB.Stream
m_stream.type = adTypeBinary
m_stream.Open
m_stream.LoadFromFile Path
rs.Fields(campo_blob).Value = m_stream.Read
rs.Update
rs.Close
End Sub
En línea
