Foros del Web » Programando para Internet » ASP Clásico »

Insertar imagenes en DB SQL

Estas en el tema de Insertar imagenes en DB SQL en el foro de ASP Clásico en Foros del Web. Hola a todos! por empezar, me presento, soy Cristian y es mi primer participacion en este foro. Tengo una cuestion. Estoy desarrollando un gestor ABM, ...
  #1 (permalink)  
Antiguo 25/04/2008, 19:54
 
Fecha de Ingreso: octubre-2004
Mensajes: 3
Antigüedad: 20 años, 7 meses
Puntos: 0
Insertar imagenes en DB SQL

Hola a todos!
por empezar, me presento, soy Cristian y es mi primer participacion en este foro.

Tengo una cuestion. Estoy desarrollando un gestor ABM, y no logro que se inserten las imagenes en la base de datos. De la manera que lo estoy haciendo, no se inserta nada, solo first name, last name, y profession.
Leí por ahi que lo mejor es guardar el path y luego llamarlo para visualizarlo y demas, pero realmente no lo se hacer.
Quisiera que me ayuden quienes la tengan mas clara por favor.

les dejo el codigo, de ésta forma, funciona, solo que no me carga los 4 datos correspondiente a la imagen.

saludos!!
Gracias de antemano!

Codigo completo:


<% ' superprueba.asp %>
<!--#include file="Loader.asp"-->
<%
Response.Buffer = True

' load object
Dim load
Set load = new Loader

' calling initialize method
load.initialize

' File binary data
Dim fileData
fileData = load.getFileData("file")
' File name
Dim fileName
fileName = LCase(load.getFileName("file"))
' File path
Dim filePath
filePath = load.getFilePath("file")
' File path complete
Dim filePathComplete
filePathComplete = load.getFilePathComplete("file")
' File size
Dim fileSize
fileSize = load.getFileSize("file")
' File size translated
Dim fileSizeTranslated
fileSizeTranslated = load.getFileSizeTranslated("file")
' Content Type
Dim contentType
contentType = load.getContentType("file")
' No. of Form elements
Dim countElements
countElements = load.Count
' Value of text input field "fname"
Dim fnameInput
fnameInput = load.getValue("fname")
' Value of text input field "lname"
Dim lnameInput
lnameInput = load.getValue("lname")
' Value of text input field "profession"
Dim profession
profession = load.getValue("profession")

' destroying load object
Set load = Nothing
%>

<html>
<head>
<title>Inserts Images into Database</title>
<style>
body, input, td { font-family:verdana,arial; font-size:10pt; }
</style>
</head>
<body>
<p align="center">
<b>Inserting Binary Data into Database</b><br>
<a href="show.asp">To see inserted data click here</a>
</p>

<table width="700" border="1" align="center">
<tr>
<td>File Name</td><td><%= fileName %>&nbsp;</td>
</tr><tr>
<td>File Path</td><td><%= filePath %>&nbsp;</td>
</tr><tr>
<td>File Path Complete</td><td><%= filePathComplete %>&nbsp;</td>
</tr><tr>
<td>File Size</td><td><%= fileSize %>&nbsp;</td>
</tr><tr>
<td>File Size Translated</td><td><%= fileSizeTranslated %>&nbsp;</td>
</tr><tr>
<td>Content Type</td><td><%= contentType %>&nbsp;</td>
</tr><tr>
<td>No. of Form Elements</td><td><%= countElements %>&nbsp;</td>
</tr><tr>
<td>First Name</td><td><%= fnameInput %>&nbsp;</td>
</tr><tr>
<td>Last Name</td><td><%= lnameInput %>&nbsp;</td>
</tr>
<tr>
<td>Profession</td><td><%= profession %>&nbsp;</td>
</tr>
</table><br><br>

<p style="padding-left:220;">
<%= fileName %> data received ...<br><br>
<%
dim cnn,rs,SQL
myDSN="Driver={MySQL};Server=200.32.5.61;Port=3306 ;Option=131072;Stmt=; Database=basereyes;Uid=sirbonaparte;Pwd=alquila"
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open(myDSN)
set rs=CreateObject("ADODB.Recordset")
dim varfileName, varfileSize, varfileData, varContenType, varfname, varlname, varprofession
varfileName = Request.QueryString("txtfileName")
varfileSize = Request.QueryString("txtfileSize")
varfileData = Request.QueryString("txtfileData")
varcontenType = Request.QueryString("txtcontenType")
varfname = Request.QueryString("txtfnameInput")
varlname = Request.QueryString("txtlnameInput")
varprofession = Request.QueryString("txtprofession")
SQL = "INSERT INTO Files (File_Name,File_Size,Content_Type,File_Data,First_ Name,Last_Name,Profession) VALUES ( '" & varfileName & "', '" & varfileSize & "', '" & varfileData & "', '" & contentType & "', '" & fnameInput & "', '" & lnameInput & "', '" & profession & "')"

rs.Open SQL, myDSN

cnn.Close
%>
<table border="0" align="center">
<tr>
<form method="POST" enctype="multipart/form-data" action="superprueba.asp">
<td>First Name :</td><td>
<input type="text" name="fname" size="40" ></td>
</tr>
<td>Last Name :</td><td>
<input type="text" name="lname" size="40" ></td>
</tr>
<td>Profession :</td><td>
<input type="text" name="profession" size="40" ></td>
</tr>
<td>File :</td><td>
<input type="file" name="file" size="40"></td>
</tr>
<td> </td><td>
<input type="submit" value="Submit"></td>
</tr>
</form>
</tr>
</table>

</body>
</html>
  #2 (permalink)  
Antiguo 25/04/2008, 20:14
Avatar de gildus  
Fecha de Ingreso: agosto-2003
Mensajes: 1.495
Antigüedad: 21 años, 9 meses
Puntos: 105
Re: Insertar imagenes en DB SQL

Holas,

Con eso de insertar archivos a tu base de datos, te digo por experiencia que se te hara lento poco a poco tu programa, lo que te recomiendo es que solo guardes las rutas de tus archivos y listo, y los archivos los mueves en tu server en un a carpeta.

Saludos
Gildus
__________________
.: Gildus :.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 07:48.