Salvar imagem no BD e resgatar depois

godoy89 · Setembro 9, 2009

Opa, tenho um código que insere as informações que eu coloco no formulário dentro do banco de dados, mas a imagem que eu faço o upload só está sendo gravada no servidor, não está sendo inserida no banco de dados.

Preciso saber como salvar a imagem no banco (ou pelo menos o caminho dela) e depois como puxar essa imagem juntamente com o "projeto" que foi inserido.

Valeu!

Gelado · Setembro 9, 2009

manda o codigo..

godoy89 · Setembro 10, 2009

Formulário

<!--#include file="in/inc_header.asp"-->
<BODY>
<!--#include file="in/inc_openLogger.asp"-->
<!--#include file="in/inc_checaSenha.asp"-->
<table border=0 cellspacing=0 cellpadding=0 style="margin-left:10px;" align="center">
<tr>
<td style="padding-left:20px;" valign="top">
<br>
<div id="Titulo" style="font-weight:bold;text-align:center;width:100%;">Insere Promoção</div><br><br>

<form method="post" action="Upload_gui.asp" enctype="multipart/form-data">
<b>Nome da Promoção:</b><br>
<input type="text" title="Nome da Promoção" name="nome" style="width:350;"><br><br>

<b>Descrição da Promoção</b><br>
<textarea name="desc" title="Descrição da Promoção" rows="5" cols="10" style="width:350;height:150;"></textarea><br><br>

Thumbnail:<br>
<input size="30" name="thumbnail" type="file"><br><br>

Original:<br>
<input size="30" name="original" type="file"><br><br>

<input type="submit" value="Insere" style="width:170;"><input type="reset" value="Limpa" style="width:170;margin-left:10px;">
</form>
</td>
</tr>
</table><br>
<!--#include file="in/inc_closeLogger.asp"-->

Envia.asp

<!--#include file="in/inc_header.asp"-->
<BODY>
<!--#include file="in/inc_openLogger.asp"-->
<!--#include file="in/inc_checaSenha.asp"-->
<table border=0 cellspacing=0 cellpadding=0 style="margin-left:10px;" align="center">
<tr>
<td style="padding-left:20px;" valign="top">

<%
Set Upload = Server.CreateObject("Persits.Upload")
Server.MapPath("/") & "sysImage/"
Count = Upload.SaveVirtual ("/sysImage/")
%>

<%

'Resgata as variáveis'
varNome = Request.form("nome")
varDesc = Request.form("desc")
varImg1 = Request.form("thumbnail")
varImg2 = Request.form("orginal")

'trata as variáveis necessárias para demonstração'
varDesc = replace(varDesc,"<aspa>","'")
varNome = replace(varNome,"<aspa>","'")
%>

<br>
<b>Promoção inserida com sucesso!</b>

<%

sqlInsere = "INSERT INTO tabfotos (nomePromocao,descricao,thumbnail,original) VALUES ('"&varNome&"','"&varDesc&"','"&varImg1&"','"&varImg2&"')"
set rsquery = conn.execute(sqlInsere)
set rsquery = Nothing
%>

Request object error 'ASP 0207 : 80004005'

Cannot use Request.Form

/admin/envia.asp, line 18

Cannot use Request.Form collection after calling BinaryRead.

Ted k' · Setembro 10, 2009

Movido de Access http://forum.imasters.com.br/public/style_emoticons/default/seta.gif ASP

AlexMoura · Setembro 11, 2009

Formulário

<!--#include file="in/inc_header.asp"-->
<BODY>
<!--#include file="in/inc_openLogger.asp"-->
<!--#include file="in/inc_checaSenha.asp"-->
<table border=0 cellspacing=0 cellpadding=0 style="margin-left:10px;" align="center">
<tr>
<td style="padding-left:20px;" valign="top">
<br>
<div id="Titulo" style="font-weight:bold;text-align:center;width:100%;">Insere Promoção</div><br><br>

<form method="post" action="Upload_gui.asp" enctype="multipart/form-data">
<b>Nome da Promoção:</b><br>
<input type="text" title="Nome da Promoção" name="nome" style="width:350;"><br><br>

<b>Descrição da Promoção</b><br>
<textarea name="desc" title="Descrição da Promoção" rows="5" cols="10" style="width:350;height:150;"></textarea><br><br>

Thumbnail:<br>
<input size="30" name="thumbnail" type="file"><br><br>

Original:<br>
<input size="30" name="original" type="file"><br><br>

<input type="submit" value="Insere" style="width:170;"><input type="reset" value="Limpa" style="width:170;margin-left:10px;">
</form>
</td>
</tr>
</table><br>
<!--#include file="in/inc_closeLogger.asp"-->

Envia.asp

<!--#include file="in/inc_header.asp"-->
<BODY>
<!--#include file="in/inc_openLogger.asp"-->
<!--#include file="in/inc_checaSenha.asp"-->
<table border=0 cellspacing=0 cellpadding=0 style="margin-left:10px;" align="center">
<tr>
<td style="padding-left:20px;" valign="top">

<%
Set Upload = Server.CreateObject("Persits.Upload")
Server.MapPath("/") & "sysImage/"
Count = Upload.SaveVirtual ("/sysImage/")
%>

<%

'Resgata as variáveis'
varNome = Request.form("nome")
varDesc = Request.form("desc")
varImg1 = Request.form("thumbnail")
varImg2 = Request.form("orginal")

'trata as variáveis necessárias para demonstração'
varDesc = replace(varDesc,"<aspa>","'")
varNome = replace(varNome,"<aspa>","'")
%>

<br>
<b>Promoção inserida com sucesso!</b>

<%

sqlInsere = "INSERT INTO tabfotos (nomePromocao,descricao,thumbnail,original) VALUES ('"&varNome&"','"&varDesc&"','"&varImg1&"','"&varImg2&"')"
set rsquery = conn.execute(sqlInsere)
set rsquery = Nothing
%>

Request object error 'ASP 0207 : 80004005'

Cannot use Request.Form

/admin/envia.asp, line 18

Cannot use Request.Form collection after calling BinaryRead.

ao invés de usar Request.Form use só Request

no caso ficaria assim:

varNome = Request("nome")

varDesc = Request("desc")

varImg1 = Request("thumbnail")

varImg2 = Request("orginal")

godoy89 · Setembro 11, 2009

não funcionou =/

ao invés de usar Request.Form use só Request

no caso ficaria assim:

varNome = Request("nome")

varDesc = Request("desc")

varImg1 = Request("thumbnail")

varImg2 = Request("orginal")

Request object error 'ASP 0208 : 80004005'

Cannot use generic Request collection

/admin/Upload_gui.asp, line 18

Cannot use the generic Request collection after calling BinaryRead.

Dee · Setembro 11, 2009

você nao pode usar Request e nem Request.Form para pegar o nome da imagem

Use isso

     Set Upload = Server.CreateObject("Persits.Upload") ' Criando o Objeto   
     PegaNomeCampo = Upload.Files("NomeDoCampo").FileName '  Pegando o conteúdo do campo todo 
     NomeCampo = Right(PegaNomeCampo, Len(PegaNomeCampo) - InstrRev(PegaNomeCampo,"\")) // aqui você trata a string, pegar somente o nome da imagem, dae você pega e salva no banco 
     Response.Write(PegaNomeCampo)

godoy89 · Setembro 11, 2009

onde ta "NomeDoCampo" eu substituo pelo "name" de cada input=file ?

e o que você quer dizer com tratar a string? é que eu não manjo, aih fode o ** do palhaço ;s

Dee · Setembro 11, 2009

Aham, NomeDoCampo eh do input que você pega o endereço da imagem

e na string eh o seguinte:

você tem o caminho inteiro da imagem, por exemplo:

c:\desktop\pasta\image.jpg

dae você trata essa string, pra pegar somente o no campo da imagem que seria ae no caso 'image.jpg' e nao pegar o caminho inteiro

godoy89 · Setembro 11, 2009

o código atual que eu tenho só salva as imagens no servidor, não salva no DB.

<%

Upload.SaveToMemory

Path = Upload.Form(" [name do formulario] ")

For Each File in Upload.Files

File.SaveAs [caminho pra salvar as imagens] & "\" & File.ExtractFileName

Isso serve pra alguma coisa?

PS: O código que você me mandou, não consegui fazer funcionar...

godoy89 · Setembro 11, 2009

Não acho nada pela internet que me ajude

É tão difícil inserir o nome da imagem que você faz o upload no banco de dados? pqp...

Dee · Setembro 11, 2009

Dim objUpload
Dim strFileName
Dim strPath
Dim Name

 
 Dim Upload, PegaNomeCampo, NomeCampo  
  
  Set Upload = Server.CreateObject("Persits.Upload") ' Criando o Objeto  
  Upload.Save Server.MapPath("..\Pasta\" & strFileName) ' Coloca a pasta que você vai salvar a imagem
  PegaNomeCampo = Upload.Files("NomeDoCampo").FileName '  Pegando o conteúdo do campo todo  
   
  NomeCampo = Right(PegaNomeCampo, Len(PegaNomeCampo) - InstrRev(PegaNomeCampo,"\")) ' Pegar os últimos valores do campo

cara eu te juro que nao tem erro... tem alguma coisa a mais no seu, implemente no seu codigo isso que eu postei e se nao der certo, poste o código e o erro que dá.

obgd

godoy89 · Setembro 11, 2009

Não da erro nenhum, em compensação ele não insere o nome da foto no banco de dados.

Tive que mudar o Save pra SaveVirtual, no servidor ele salva, sem problema como antes.

Acho que pode ser na hora de inserir no banco de dados...

Deixo os campos pra serem inseridos com qual tipo de dados? Texto mesmo? (atualmente estão como texto 100 caracteres)

Segue as duas páginas:

Inserir.asp

<form method="post" action="Upload_gui.asp" enctype="multipart/form-data">
<b>Nome da Promoção:</b><br>
<input type="text" title="Nome da Promoção" name="nome" style="width:350;"><br><br>

<b>Descrição da Promoção</b><br>
<textarea name="desc" title="Descrição da Promoção" rows="5" cols="10" style="width:350;height:150;"></textarea><br><br>

Thumbnail:<br>
<input size="30" name="thumbnail" type="file"><br><br>

Original:<br>
<input size="30" name="original" type="file"><br><br>

<input type="submit" value="Insere" style="width:170;"><input type="reset" value="Limpa" style="width:170;margin-left:10px;">
</form>

Upload_gui.asp

<!--#include file="in/inc_header.asp"-->
<BODY>
	<!--#include file="in/inc_openLogger.asp"-->
	<!--#include file="in/inc_checaSenha.asp"-->
<table border=0 cellspacing=0 cellpadding=0 style="margin-left:10px;" align="center">
	<tr>
		<td style="padding-left:20px;" valign="top">

<%
Dim objUpload
Dim strFileName
Dim strPath
Dim Name


  Dim Upload, PegaNomeCampo, NomeCampo  
  
  Set Upload = Server.CreateObject("Persits.Upload") 'Criando o Objeto
  Upload.SaveVirtual ("/sysImage/" & strFileName) 'Coloca a pasta que você vai salvar a imagem
  PegaNomeCampo = Upload.Files("original").FileName 'Pegando o conteúdo do campo todo
   
  NomeCampo = Right(PegaNomeCampo, Len(PegaNomeCampo) - InstrRev(PegaNomeCampo,"\")) ' Pegar os últimos valores do campo

%>

<%

'Resgata as variáveis'
varNome = Upload.form("nome")
varDesc = Upload.form("desc")
varImg1 = Upload.form("thumbnail")
varImg2 = Upload.form("orginal")

'trata as variáveis necessárias para demonstração'
varDesc = replace(varDesc,"<aspa>","'")
varNome = replace(varNome,"<aspa>","'")
%>

		<br>
			<b>Promoção inserida com sucesso!</b>
			<br><br>

<%

sqlInsere = "INSERT INTO tabfotos (nomePromocao,descricao,thumbnail,original) VALUES ('"&varNome&"','"&varDesc&"','"&varImg1&"','"&varImg2&"')"
set rsquery = conn.execute(sqlInsere)
set rsquery = Nothing
%>
			<a href="home.asp">clique aqui</a> para voltar a home!<br>
		</td>
	</tr>
</table><br>
<!--#include file="in/inc_closeLogger.asp"-->

Arquivado

Salvar imagem no BD e resgatar depois

Recommended Posts

godoy89 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Gelado 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

godoy89 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

AlexMoura 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

godoy89 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Dee 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

godoy89 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Dee 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

godoy89 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

godoy89 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Dee 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

godoy89 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Teclas para Salvar (atalho)

Javascript - Passar Parâmetros para uma Função.

Tem como JS executar/chamar um programa externo?

Fóruns

Tempo Real

Informação importante