Ver Mensaje Individual
  #1 (permalink)  
Antiguo 25/04/2008, 19:54
Mc_Fly
 
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>