vb6 grabar un BLOB en Oracle
Publicado por Miguel (1 intervención) el 12/12/2023 09:51:44
Buenos días, se que es algo antiguo, pero no consigo resolverlo, estoy tratando de grabar en un campo BLOB (CONTENIDO) de una tabla de oracle (REC_FICHEROS_I) con ADODB, este es mi código:
Dim Archivo As String
CommonDialog1.Action = 1
If CommonDialog1.FileName = "" Then Exit Sub
Archivo = CommonDialog1.FileName
Dim st As ADODB.stream
Set st = New ADODB.stream
st.Type = adTypeBinary
st.Open
st.LoadFromFile Archivo
Dim rstUpload As ADODB.Recordset
Set rstUpload = New ADODB.Recordset
rstUpload.Open "SELECT CONTENIDO FROM REC_FICHEROS_I WHERE IDRECLAMACION_I = 0", Cn, adOpenDynamic, adLockOptimistic
rstUpload.Fields("CONTENIDO").Value = st.Read
rstUpload.Update
El error me da al abrir la tabla (en el Open) me dice "error inesperado".
Alguien sabe que estoy haciendo mal, muchísimas gracias por su ayuda.
Dim Archivo As String
CommonDialog1.Action = 1
If CommonDialog1.FileName = "" Then Exit Sub
Archivo = CommonDialog1.FileName
Dim st As ADODB.stream
Set st = New ADODB.stream
st.Type = adTypeBinary
st.Open
st.LoadFromFile Archivo
Dim rstUpload As ADODB.Recordset
Set rstUpload = New ADODB.Recordset
rstUpload.Open "SELECT CONTENIDO FROM REC_FICHEROS_I WHERE IDRECLAMACION_I = 0", Cn, adOpenDynamic, adLockOptimistic
rstUpload.Fields("CONTENIDO").Value = st.Read
rstUpload.Update
El error me da al abrir la tabla (en el Open) me dice "error inesperado".
Alguien sabe que estoy haciendo mal, muchísimas gracias por su ayuda.
Valora esta pregunta
0