holas, alguien me pude decir como se trabaja condatos BLOB en Oracle... tengo q hacer una carga a la base de datos, una modificacion y mostrar el grafico en pantalla...
alguien me puede ayudar??
Muchas gracias
03/03/2005, 09:45
| |||
| |||
 novato con datos BLOB - Oracle holas, alguien me pude decir como se trabaja condatos BLOB en Oracle... tengo q hacer una carga a la base de datos, una modificacion y mostrar el grafico en pantalla... alguien me puede ayudar?? Muchas gracias |
|
17/03/2005, 20:06
| |||
| |||
| <%@LANGUAGE="VBSCRIPT"%> <html> <body> <% '************************************************* ************************************' doc_ident = request("doc_ident") response.Expires=0 response.Buffer=true response.Clear() response.ContentType="image/gif" '------------------------------------------------------------------ SET comm = SERVER.CREATEOBJECT("ADODB.CONNECTION") comm.OPEN("Provider=OraOLEDB.Oracle;Data Source=XXX;Persist Security Info=True;User ID=XX;Password=X;PLSQLRSet=1;") '------------------------------------------------------------------- set rs_sys = Server.CreateObject("ADODB.Recordset") rs_sys.ActiveConnection = "Provider=OraOLEDB.Oracle;Data Source=XXX;Persist Security Info=True;User ID=XX;Password=X;PLSQLRSet=1;" rs_sys.Source = "SELECT img_imagen from imagenes where doc_ident= "&doc_ident&" " rs_sys.CursorType = 0 rs_sys.CursorLocation = 2 rs_sys.LockType = 3 rs_sys.Open() rs_sys_numRows = 0 '------------------------------------------------------------------- response.BinaryWrite rs_sys("img_imagen") rs_sys.Close()%> </html> </body> NOTA: TIENES QUE ENVIAR EL CODIGO O NOMBRE DE LA IMAGEN, ESO ES TODO. PREGUNTA?: YO PARA SUBIR LA IMAGEN OCUPE UN CODIGO QUE FUNCIONA , PERO QUE A MI PARECER NO ES MUY OPTIMO POR QUE NO REALIZA UN INSERT NOMAL EN LA BASE DE DATOS.(RECORRE LA TABLA Y AL FINAL UPDETEA ESO ES MUY LENTO ..HABLO DE MILES DE DE ARCHIVOS) , SI SE PUDERA CORREGIR SE LOS AGRADESCO SALUDOS CHARLY KAKAROTO EJ : fileData = load.getFileData("file") Doc_IdentInput = load.getValue("Doc_Ident") Set comm = Server.CreateObject("ADODB.Connection") aa = "Provider=OraOLEDB.Oracle;Data Source=XXX;Persist Security Info=True;User ID=XX;Password=X;PLSQLRSet=1;" comm.ConnectionString = aa comm.CommandTimeout = 1200 comm.Open set rs = Server.CreateObject("ADODB.Recordset") sql="select * from imagenes" rs.Open sql ,aa ,2,2 rs.AddNew rs("doc_ident") = Doc_IdentInput rs("IMG_IMAGEN").AppendChunk fileData rs.Update rs.Close Set rs = Nothing 
__________________ Ariqueño |
