HOLA GENTE.
POR FAVOR NECESITO ME AYUDE CON ESTO. ESTOY DESARROLLANDO UNA APLICACION QUE REQUIERO QUE ACTUALICE IMAGENES ALMACENADAS EN ORACLE. QUE PASA?
MIREN, EL MOMENTO QUE ACTUALIZO EL CAMPO IMAGEN, SI EL CAMPO ESTA EN BLANCO LO ACTUALIZA SIN NINGUN PROBLEMA, PERO, SI QUIERO CAMBIAR DE IMAGEN, ES DECIR ACTUALIZARLA, NO SE XQ PERO SIEMPRE ME QUEDA LA PRIMERA IMAGEN QUE CARGE, PARA ACTUALIZAR PRIMERO ELIMINO EL REGISTRO QUE CONTIENE LA IMAGEN Y POSTERIORMENTE LA ADDICIONO NUEVAMENTE CON EL USO DE UN RECORSET.
AL ACTUALIZAR LO UNICO QUE HACE ES COGER LAS CARACTERISTICAS EN TAMAÑO DE LA NUEVA IMAGEN, PERO LA IMAGEN SIEMPRE ES DE LA PRIMERA.
POR FAVOR, ALGUIEN QUE ME AYUDE QUE YA ESTOY ESTANCADO EN ESTO 2 DIAS.
ENVIO EL CODIGO PARA QUE LO MIREN
/***AQUI ELIMINO EL REGISTRO****/
call cn.BeginTrans()
STRSQL = "DELETE FROM sysadm.ps_asset_image where BUSINESS_UNIT = 'GL001' and ASSET_ID = '000000009437'
cn.execute(strsql)
call cn.CommitTrans()
cn.close
Set cn = Nothing
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = 1
rs.LockType = 3
Set cn_carga = Server.CreateObject("ADODB.Connection")
cn_carga.open "Provider=OraOLEDB.Oracle;autocommit=False;Dat a Source=TEST.DOMINIO.com;User ID=PRUEBA; Password=PRUEBA; PLSQLRSet=1;Persist Security Info=True;"
TABLA = "PS_ASSET_IMAGE"
rs.Open TABLA, cn_carga, 2, 2
rs.AddNew
rs("BUSINESS_UNIT") = "GL001"
rs("ASSET_ID") = "000000009437"
rs("PSIMAGEVER") = "0"
rs("ASSET_IMAGE").AppendChunk fileData
rs.Update
rs.Close
Set rs = Nothing
If Err.number = 0 Then
Response.Write "Inserción en la Base de datos completa ...<br>"
Else
Response.Write "Could not insert into Database. Errors occured ...<br>"
End If
Set load = Nothing
cn_carga.close
Set cn_carga = Nothing
