problema com meu insert into

lezão · Setembro 30, 2008

Ola galera alguém pode me dizer oq esta acontecendo com este script

tenho outro igualzinho só add alguns campos nesse aki e naun esta funcionando

veja ai

into.asp

<!-- #include file = "upload_funcoes.asp" -->
<%
' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

' Recuperando os Dados Digitados ----------------------
nome = UploadRequest.Item("nome").Item("Value")
descricao = UploadRequest.Item("descricao").Item("Value")
valor1 = UploadRequest.Item("valor1").Item("Value")
valor2 = UploadRequest.Item("valor2").Item("Value")
data = (date)

' Tipo de arquivo que esta sendo enviado
tipo_foto = UploadRequest.Item("foto").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("foto").Item("FileName")

' Nome dos arquivos enviados
nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

' Conteudo binario dos arquivos enviados
foto = UploadRequest.Item("foto").Item("Value")

' pasta onde as imagens serao guardadas
pasta = Server.MapPath("imagens/")
nome_foto = "/"&nome_foto

' pasta + nome dos arquivos
cfoto = "imagens/" + nome_foto

'---foto_grd---
' Tipo de arquivo que esta sendo enviado
tipo_foto_grd = UploadRequest.Item("foto_grd").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("foto_grd").Item("FileName")

' Nome dos arquivos enviados
nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

' Conteudo binario dos arquivos enviados
foto = UploadRequest.Item("foto_grd").Item("Value")

' pasta onde as imagens serao guardadas
pasta = Server.MapPath("imagens/")
nome_foto = "/"&nome_foto

' pasta + nome dos arquivos
cfoto_grd = "imagens/" + nome_foto

'---Fim---

' Fazendo o Upload do arquivo selecionado
if foto <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)
For i = 1 to LenB(foto)
MyFile.Write chr(AscB(MidB(foto,i,1)))
Next
MyFile.Close
end if

' Conecta-se ao Banco de Dados
url_conexao = Server.MapPath("../dados/cadastro.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao 

' cadastra os dados no banco de dados
sql = "Insert into produtos (nome,descricao,valor1,valor2,foto,foto_grd,data) values ('"& nome &"', '"& descricao &"', '"& valor1 &"', '"& valor2 &"', '"& cfoto &"', '"& cfoto_grd &"', '"& data &"')"
Conexao.Execute(sql)

' Mostra Mensagem de Confirmação na Tela
Response.write "<center><font face=Verdana, Arial, Helvetica, sans-serif size=2><color= #ff0000><b>Dados cadastrados com sucesso!</b></center></font>"

' Redireciona após 5 segundos

response.write "<meta http-equiv='refresh' content='2; url=prod1.asp'/>"
%>
<p align="center">
<img src="imagens/carregando.gif">

Salgado · Setembro 30, 2008

Por favor, utilize o botão quando for inserir um trecho de código nas postagens, é ele que faz aparecer o código com uma formatação diferenciada e melhorar a visualização do mesmo.

Salgado · Setembro 30, 2008

O que está acontecendo é você que pode dizer. Qual a mensagem de erro aparece? O que deveria acontecer que não acontece?

lezão · Outubro 1, 2008

Ola salgado boa noite

cara este script naun quer add no banco os campos mas eu tenho um igual só q estapara outro uso e funciona este aki naun pq será ?

Jow Xavier · Outubro 1, 2008

Não está gravando nada ou só a foto, posta o seu formulário ai pra ver ...

Manda imprimir a sua sql e posta ai

response.write sql
response.end()

e posta ai o resultado

lezão · Outubro 1, 2008

Ola Jow Xavier bom dia !

Cara naun esta gravando nada

aki esta meu formulario.asp

<!-- #include file = "upload_funcoes.asp" -->

<head>
<title></title>
</head>

<body background="imagens/fundos_azul.gif" link="#0000FF" vlink="#0000FF" alink="#0000FF">

<div align="center" style="width: 670; height: 571">
<table width="385">
  <tr>
	<td height="17" width="377" style="height: 12.75pt">
	  <table cellspacing="0" cellpadding="0" width="454">
		<col width="64" span="2" style="width:48pt">
		<tr height="17" style="height:12.75pt">
		  <td rowspan="2" height="34" class="xl24" width="1" style="height: 25.5pt"><img border="0" src="imagens/prod_g.gif"></td>
		  <td width="604">
			<table cellspacing="0" cellpadding="0" width="393" class="texto" style="border-bottom: 1px solid black">
			  <tr>
				<td height="17" width="391" style="height: 12.75pt">
				  <h3 align="center"><font face="Verdana">Incluir novo produto
				  na loja</font></h3>
				</td>
			  </table>
			</td>
		  </tr>
		  <tr height="17" style="height:12.75pt">
			<td height="17" style="height: 12.75pt" width="604">
			  <p align="right"><a href="java script:window.history.go(-1)" target="_self"><font size="2" face="Verdana"><img border="0" src="imagens/botao-voltar.gif"></font></a>
</td>
		  </tr>
		</table>
		<table width="447">
<form name="form1" action="upload_form2.asp" method="post" enctype="multipart/form-data">
<tr>
<td width="147"><font size="2" face="Verdana"><b>Nome do produto:</b>...</font></td>
<td width="286"><input type="text" name="nome" size="20"></td>
</tr>
<tr>
<td width="147"><font size="2" face="Verdana"><b>Valor normal:</b>......</font></td>
<td width="286"><input type="text" name="valor1" size="20" value="R$:">   <font size="1" color="#FF0000">Ex: de:
  10,00</font></td>
</tr>
<tr>
<td width="147"><font size="2" face="Verdana"><b>Valor estimado:</b>......</font></td>
<td width="286"><input type="text" name="valor2" size="20" value="R$:"><font size="1" color="#FF0000">Ex: por:
  8,50</font></td>
</tr>
<tr>
<td width="147"><font size="2" face="Verdana"><b>Imagem pequena:</b>..</font></td>
<td width="286"><input type="file" name="foto" size="14">  <font size="1" face="Verdana">foto
  pequena</font></td>
</tr>
<td width="147"><font size="2" face="Verdana"><b>Imagem grande:</b>.....</font></td>
<td width="286"><input type="file" name="foto_grd" size="14">  <font size="1" face="Verdana">foto
  grande</font></td>
<tr>
<td width="147"></td>
<td width="286"></td>
</tr>
<tr>
<td colspan="2" width="426"></td>
</tr>
<tr>
<td width="147">
  <p align="center"><b><font size="2" face="Verdana">Descrição:</font></b></td>
<td width="286"><textarea rows="6" name="descricao" cols="33"></textarea></td>
</tr>
<tr>
<td width="147"></td>
<td width="286"></td>
</tr>
<tr>
<td colspan="2" width="426">
<table width="426">
  <tr>
	<td height="17" width="418" style="height: 12.75pt">
	  <p align="center">
<input type="submit" name="submit" value="Enviar">
	</td>
  </table>
</td>
</tr>
</form> 
</table></td>
  </table>
 
  <table width="461">
	<tr>
	  <td height="17" width="453" style="height: 12.75pt">
		<p align="center"></td>
	</table>
</div>

caso queira ver esta pagina esta online

Formulario.asp

Jow Xavier · Outubro 1, 2008

Qual a linha 73 e posta a estrutura do seu banco access ???

lezão · Outubro 1, 2008

estas são as linhas 71, 72, 73

71.. ' cadastra os dados no banco de dados

72.. sql = "Insert into produtos (nome,descricao,valor1,valor2,data,foto) values ('"& nome &"', '"& descricao &"', '"& valor1 &"', '"& valor2 &"', '"& data &"', '"& cfoto &"')"

73.. Conexao.Execute(sql)

lezão · Outubro 1, 2008

seria esta a estrutura do banco?????

' Conecta-se ao Banco de Dados
url_conexao = Server.MapPath("../dados/cadastro.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao 

' cadastra os dados no banco de dados
sql = "Insert into produtos (nome,descricao,valor1,valor2,data,foto) values ('"& nome &"', '"& descricao &"', '"& valor1 &"', '"& valor2 &"', '"& data &"', '"& cfoto &"')"
Conexao.Execute(sql)

http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

Jow Xavier · Outubro 1, 2008

a estrutura do banco seria os campos e o tipo de dados ... Mas ñ precisa postar ñ ...

tenta isso ::

<!-- #include file = "upload_funcoes.asp" -->
<%
' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

' Recuperando os Dados Digitados ----------------------
nome = UploadRequest.Item("nome").Item("Value")
descricao = UploadRequest.Item("descricao").Item("Value")
valor1 = UploadRequest.Item("valor1").Item("Value")
valor2 = UploadRequest.Item("valor2").Item("Value")
data = date()

' Tipo de arquivo que esta sendo enviado
tipo_foto = UploadRequest.Item("foto").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("foto").Item("FileName")

' Nome dos arquivos enviados
nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

' Conteudo binario dos arquivos enviados
foto = UploadRequest.Item("foto").Item("Value")

' pasta onde as imagens serao guardadas
pasta = Server.MapPath("imagens/")
nome_foto = "/"&nome_foto

' pasta + nome dos arquivos
cfoto = "imagens/" + nome_foto

'---foto_grd---
' Tipo de arquivo que esta sendo enviado
tipo_foto_grd = UploadRequest.Item("foto_grd").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto1 = UploadRequest.Item("foto_grd").Item("FileName")

' Nome dos arquivos enviados
nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\"))

' Conteudo binario dos arquivos enviados
foto1 = UploadRequest.Item("foto_grd").Item("Value")

' pasta onde as imagens serao guardadas
pasta = Server.MapPath("imagens/")
nome_foto1 = "/"&nome_foto1

' pasta + nome dos arquivos
cfoto_grd = "imagens/" + nome_foto1

'---Fim---

' Fazendo o Upload do arquivo selecionado
if foto <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)
For i = 1 to LenB(foto)
MyFile.Write chr(AscB(MidB(foto,i,1)))
Next
MyFile.Close
end if

' Conecta-se ao Banco de Dados
url_conexao = Server.MapPath("../dados/cadastro.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao 

' cadastra os dados no banco de dados
sql = "Insert into produtos (nome,descricao,valor1,valor2,foto,foto_grd,data) values ('"& nome &"', '"& descricao &"', '"& valor1 &"', '"& valor2 &"', '"& cfoto &"', '"& cfoto_grd &"', '"& data &"')"
Conexao.Execute(sql)

' Mostra Mensagem de Confirmação na Tela
Response.write "<center><font face=Verdana, Arial, Helvetica, sans-serif size=2><color= #ff0000><b>Dados cadastrados com sucesso!</b></center></font>"

' Redireciona após 5 segundos

response.write "<meta http-equiv='refresh' content='2; url=prod1.asp'/>"
%>
<p align="center">
<img src="imagens/carregando.gif">

lezão · Outubro 1, 2008

naun deu certo !

http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

Jow Xavier · Outubro 1, 2008

ok ... manda mostrar a sua sql

' cadastra os dados no banco de dados
sql = "Insert into produtos (nome,descricao,valor1,valor2,foto,foto_grd,data) values ('"& nome &"', '"& descricao &"', '"& valor1 &"', '"& valor2 &"', '"& cfoto &"', '"& cfoto_grd &"', '"& data &"')"
response.write sql
response.end ()

pra vê o q retorna do seu insert

Jow Xavier · Outubro 1, 2008

manda essa página aí ...

<!-- #include file = "upload_funcoes.asp" -->
<%
' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

' Recuperando os Dados Digitados ----------------------
nome = UploadRequest.Item("nome").Item("Value")
descricao = UploadRequest.Item("descricao").Item("Value")
valor1 = UploadRequest.Item("valor1").Item("Value")
valor2 = UploadRequest.Item("valor2").Item("Value")
data = date()

' Tipo de arquivo que esta sendo enviado
tipo_foto = UploadRequest.Item("foto").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("foto").Item("FileName")

' Nome dos arquivos enviados
nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

' Conteudo binario dos arquivos enviados
foto = UploadRequest.Item("foto").Item("Value")

' pasta onde as imagens serao guardadas
pasta = Server.MapPath("imagens/")
nome_foto = "/"&nome_foto

' pasta + nome dos arquivos
cfoto = "imagens" + nome_foto

'---foto_grd---
' Tipo de arquivo que esta sendo enviado
tipo_foto_grd = UploadRequest.Item("foto_grd").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto1 = UploadRequest.Item("foto_grd").Item("FileName")

' Nome dos arquivos enviados
nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\"))

' Conteudo binario dos arquivos enviados
foto1 = UploadRequest.Item("foto_grd").Item("Value")

' pasta onde as imagens serao guardadas
pasta = Server.MapPath("imagens/")
nome_foto1 = "/"&nome_foto1

' pasta + nome dos arquivos
cfoto_grd = "imagens" + nome_foto1

'---Fim---

' Fazendo o Upload do arquivo selecionado
if foto <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)
For i = 1 to LenB(foto)
MyFile.Write chr(AscB(MidB(foto,i,1)))
Next
MyFile.Close
end if

' Conecta-se ao Banco de Dados
url_conexao = Server.MapPath("../dados/cadastro.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao 

' cadastra os dados no banco de dados
sql = "Insert into produtos_teste (nome,descricao,valor1,valor2,foto,foto_grd,data) values ('"& nome &"', '"& descricao &"', '"& valor1 &"', '"& valor2 &"', '"& cfoto &"', '"& cfoto_grd &"', '"& data &"')"
set rs = conexao.execute(sql)

' Mostra Mensagem de Confirmação na Tela
Response.write "<center><font face=Verdana, Arial, Helvetica, sans-serif size=2><color= #ff0000><b>Dados cadastrados com sucesso!</b></center></font>"

' Redireciona após 5 segundos

response.write "<meta http-equiv='refresh' content='2; url=prod1.asp'/>"
%>
<p align="center">
<img src="imagens/carregando.gif">

Arquivado

problema com meu insert into

Recommended Posts

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Jow Xavier 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Jow Xavier 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Jow Xavier 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Jow Xavier 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Jow Xavier 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Estou criando uma calculadora de m2 e litros de tinta

Cruzamento de Bases

Consulta sem duplicação

Fóruns

Tempo Real

Informação importante