Ir para conteúdo

Arquivado

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

rodrigofaria

Não estou "enxergando" o problema...

Por , em ASP Clássico

Recommended Posts

rodrigofaria    0

rodrigofaria
Postado

Não estou "enxergando" o problema!! Está dando erro na linha que executa o RecordSet:

 

SET RSConsultar = ConBanco.execute(sql)

 

Segue o erro no explorer:

 

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

 

[Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério.

 

/adlez/TMP10gafhehrl.asp, line 33

 

 

O Código:

 

 

<% OPTION EXPLICIT

response.buffer=true

 

Dim ConBanco , RSConsultar , SQL , IDEnquete , RSAtualizar , ID , IP , SQL1 , SQL2 , SQL3 , SQL4

 

const caminho="adlez.mdb"

 

ID=request.querystring("ID")

IDEnquete=request.querystring("IDEnquete")

IP=request.servervariables("REMOTE_ADDR")

 

 

 

SQL = " SELECT * FROM TblEnquete WHERE IDEnquete='"&IDEnquete&"' "

 

SQL1 = " UPDATE TblEnquete SET HitsResp1=HitsResp1+1 , IP='"&IP&"' "&_

" WHERE IDEnquete="&IDEnquete&" "

SQL2 = " UPDATE TblEnquete SET HitsResp2=HitsResp2+1 , IP='"&IP&"' "&_

" WHERE IDEnquete="&IDEnquete&" "

SQL3 = " UPDATE TblEnquete SET HitsResp3=HitsResp3+1 , IP='"&IP&"' "&_

" WHERE IDEnquete="&IDEnquete&" "

SQL4 = " UPDATE TblEnquete SET HitsResp4=HitsResp4+1 , IP='"&IP&"' "&_

" WHERE IDEnquete="&IDEnquete&" "

 

 

SET RSConsultar = Server.CreateObject ("ADODB.RecordSet")

SET RSAtualizar = Server.CreateObject ("ADODB.RecordSet")

 

SET ConBanco = Server.CreateObject ("ADODB.Connection")

 

ConBanco.open("Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(caminho))

 

SET RSConsultar = ConBanco.execute(sql)

 

Select Case ID

 

Case "1"

SET RSAtualizar = ConBanco.Execute (SQL1)

Case "2"

SET RSAtualizar = ConBanco.Execute (SQL2)

Case "3"

SET RSAtualizar = ConBanco.Execute (SQL3)

Case "4"

SET RSAtualizar = ConBanco.Execute (SQL4)

 

 

 

End Select

 

 

 

Pq não está executando a Consulta (sql) ? Alguém tem uma dica?

 

 

rodrigofaria

%>

 

 

<HTML>

<TITLE></TITLE>

 

<BODY>

Aqui ficam os códigos que chamam a Consulta

</BODY>

</HTML>

 

 

<%

SET RSConsultar=NOTHING

SET RSAtualizar=NOTHING

ConBanco.close

SET ConBanco=NOTHING%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

"IDEnquete" é um campo numérico ou texto?

Se for numérico tira as aspas simples " ' ".

Dá uma olhada ai!

 

 

Valeu?

Compartilhar este post

Link para o post
Compartilhar em outros sites

rodrigofaria    0

rodrigofaria
Postado

SALGADO!!!!!!!!!!!!MUITO MUITO MUITO MUITO MUITO MUITO MUITO MUITO MUITO MUITO MUITO MUITO MUITO MUITO MUITO MUITO MUITO MUITO MUITO MUITO MUITO MUITO MUITO MUITO MUITO MUITO MUITO MUITO MUITO MUITO MUITO Obrigado!!!!!!!!!!!Viajei!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!rodrigofaria

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