Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

lezão

[Resolvido] Erro em upload de imagens

Por , em ASP Clássico

Recommended Posts

lezão    0

lezão
Postado

Ola bom dia,

 

Peguei este codigo aki mesmo no site, tem vez q ele funciona tem vez q naun....

 

verificar.asp

<!-- #include file = "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")
valor = UploadRequest.Item("valor").Item("Value")
descricao = UploadRequest.Item("descricao").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

'---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,valor,descricao,foto,data) values ('"& nome &"', '"& valor &"', '"& descricao &"','"& cfoto &"', '"& 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><h2><b>Dados cadastrados com sucesso!</b></h2></center></font>"

' Redireciona após 5 segundos
response.write "<br><br>você será redirecionado em 5 segundos..<br>"
response.write "<meta http-equiv='refresh' content='3; url=cadastrar.asp'/>"
%>
<head>
<title></title>
</head>

<body>
<p align="center">
<img src="../imagens/carregando.gif">

sempre da esse erro

 

erro :unsure: 

Microsoft OLE DB Provider for ODBC Drivers error '80040e07' 

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression. 

/admin/produtos/verificar.asp, line 53

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

qual a linha do erro?

 

tem algum campo sendo tratado com o tipo de dados errado

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

ola Mário boa noite ...

 

 

na linha de erro esta assim

 

Linha 53 >>( Conexao.Execute(sql) ) é aki q esta apresentando o erro .....

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

verifique se os nomes dos campos estao corretos e se o tipo dos campos esta certos, tipo, char, numerico etc

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

este erro [Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression

é que você tem um campo por exemplo tipo numerico e esta tentando gravar texto,é tipo de dados incompatíveis;

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

Cara foi isso mesmo muito obrigado ... http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

precisando de algo estarei por aki......

 

 

Vaaaallleeeeuuuuuuuuuuuuuu.......... http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/grin.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito