Ir para conteúdo

POWERED BY:

Arquivado

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

doiddao

Problema insolucionavel. Desafio aos especialistas

Por , em ASP Clássico

Recommended Posts

doiddao    0

doiddao
Postado

Estou com um problema violento, nao consigo resolver e nem encontrar solução para este problema... gostaria de saber se alguem poderia me ajudar a resolver, desde agradeço...Ps.: o codigo e o erro estao abaixo. ****** SCRIPT *******<!-- Código da página que processa: --><html><head><title>Teste de Upload</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body bgcolor="#FFFFFF" text="#000000"><div align="center"><font color="#CCCCCC"> <%' Variáveis' *********Dim mySmartUploadDim arquivoDim oConnDim oRsDim intCountDim strVariavelAuxiliarIdClienteintCount=0id_cliente=session("user_login")' Criar um objeto' ***************Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")' Upload' ******mySmartUpload.Upload' Salva o arquivo no servidor conforme o path escolhido' *****************************************************intCount = mySmartUpload.Save("upload")' Conecta ao Banco de Dados' *************************Set oConn = Server.CreateObject("ADODB.Connection")oConn.Open("Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MAPPATH("sample.mdb")&"")' Cria um recordset' ****************Set Ors = oConn.Execute(strsql)Set oRs = Server.CreateObject("ADODB.recordset")Set oRs.ActiveConnection = oConnoRs.Source = strSQLoRs.LockType = 3oRs.Open strSQL = "SELECT * FROM TFiles",conex,0,3'insert into TFiles "(id_cliente, arquivo,nome,descrição,data VALUES ('"&id_cliente&"','"&arquivo&"','"&arquivo&"','"&nome&"','"&data&"')",oConn' Seleciona cada arquivo caso seja um upload de múltiplos arquivos, não é esse o caso' ***********************************************************************************For each file In mySmartUpload.Files' Somente se existir arquivos' ***************************If not file.IsMissing Then' Adiciona o arquivo e dados do formulário no DB (O erro é pelo fato que estou usando o Request.form aqui)' ****************************************************oRs.AddNewfile.FileToField oRs.Fields("arquivo")oRs("nome") = file.FileName oRs("Id_cliente") = strVariavelAuxiliarIdCliente'oRs("Id_cliente") = Request.form("Id_cliente") oRs.UpdateintCount = intCount + 1End IfNext' Exiba o número de uploaded de arquivos' ************************************** Response.Write(intCount & " arquivo(s) enviado(s).<BR>")' Fecha o DB' **********oRs.CloseoConn.CloseSet oRs = Nothing Set oConn = Nothing %> </font> </div></BODY></HTML>******* ERRO ********Microsoft OLE DB Provider for ODBC Drivers erro '80040e0c' O comando de texto não foi definido para o objeto de comando. /teste/tt/script/Sample4.asp, line 49

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ulisses.BR    0

Ulisses.BR
Postado

Esse trecho do teu código tá parecendo fora de ordem,vou colocar em ordem, FORA DE ORDEM' Cria um recordset' ****************Set Ors = oConn.Execute(strsql)Set oRs = Server.CreateObject("ADODB.recordset")Set oRs.ActiveConnection = oConnoRs.Source = strSQLoRs.LockType = 3oRs.Open strSQL = "SELECT * FROM TFiles",conex,0,3'insert into TFiles "(id_cliente, arquivo,nome,descrição,data VALUES ('"&id_cliente&"','"&arquivo&"','"&arquivo&"','"&nome&"','"&data&"')",oConnEM ORDEM' Cria um recordset' ****************strSQL = "SELECT * FROM TFiles"Set oRs = Server.CreateObject("ADODB.recordset")oRs.Open strSQL,oConn,1,3

Compartilhar este post

Link para o post
Compartilhar em outros sites

alphamek    2

alphamek
Postado

E ae Brother, Faz essas mudanças. ' Cria um recordset ' **************** strSQL = "SELECT * FROM TFiles" Set oRs = Server.CreateObject("ADODB.recordset") oRs.Open strSQL, conex, 3,3 Apenas isso.....

Compartilhar este post

Link para o post
Compartilhar em outros sites

doiddao    0

doiddao
Postado

Deu erro: Microsoft OLE DB Provider for ODBC Drivers erro '80040e0c' O comando de texto não foi definido para o objeto de comando. /teste/tt/script/Sample4.asp, line 49

Compartilhar este post

Link para o post
Compartilhar em outros sites

cowboy    0

cowboy
Postado

pronto, ta resolvido seu problema.

 

 

ERRO 1

Ali no campo ID_CLIENTE, a id está como autonumeração:

 

'insert into TFiles "(id_cliente, arquivo,nome,descrição,data VALUES ('"&id_cliente&"','"&arquivo&"','"&arquivo&"','"&nome&"','"&data&"')",oConn

 

 

Campos de autonumeração não podem ser chamados ou adicionados com apóstrofe (') tira o apóstrofe que está resolvido!!

 

 

ERRO 2

 

Na mesma linha de comando o código está:

 

'insert into TFiles "(id_cliente, arquivo,nome,descrição,data VALUES ('"&id_cliente&"','"&arquivo&"','"&arquivo&"','"&nome&"','"&data&"')",oConn

 

As vezes fechar os parenteses ajuda: <_<

 

'insert into TFiles "(id_cliente, arquivo,nome,descrição,data) VALUES ('"&id_cliente&"','"&arquivo&"','"&arquivo&"','"&nome&"','"&data&"')",oConn

Compartilhar este post

Link para o post
Compartilhar em outros sites

doiddao    0

doiddao
Postado

Continua dando erro...Erro de tempo de execução do Microsoft VBScript erro '800a01a8' Objeto necessário: 'SELECT * FROM TFiles' /teste/tt/script/Sample4.asp, line 51

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