Consulta base

[cesarhtc 0]

Poderiam me ajudar, não estou conseguindo rodar a pagina.

 

Agradeço pela ajuda http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

Aparece esta mensagem:

 

 

Microsoft JET Database Engine error '80040e14'

 

Syntax error in query expression '(((Senha_Web.[Código Local])='AL')) AND (((Senha_Web.(senha))='123'))'.

 

/Suprimentos/web_esti/Senha_Access2.asp, line 35

 

 

 

'Recupera do Form_BDAF_Assinatura.asp o valor da variáveis passadas

wlocal = request.form("Código Local")

wsenha = request.form("senha")

 

response.write wlocal & "<BR>" & wsenha & "<BR>"

 

 

'1) Montar a String de Conexão

strLocalPath = Request.ServerVariables("APPL_PHYSICAL_PATH") & "\web_esti\"

conexao = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source="& strLocalPath & "Tb_Acesso.MDB"

 

'response.write conexao: response.flush

 

'Monta a string SQL de consulta

strSQL="SELECT * FROM Senha_Web WHERE (((Senha_Web.[Código Local])='" & wlocal & "')) AND (((Senha_Web.(senha))='" & wsenha & "'))"

 

Response.Write strSQL & "<BR>"

 

'response.end

 

 

'Cria um objeto recordset

set rstMain = CreateObject("ADODB.Recordset")

'

'Conecta ao BD pelo DSN e abre a consulta

'Como resultado, o recordset conterá a tabela-resposta

rstMain.Open strSQL, conexao LINHA 35

 

 

'Se o usuário não for cadastrado, informar

If rstMain.EOF then %>

 

<hr>

<td> <font face="verdana" size="3" color="blue" >Não existe este estado <%=wlocal%></font></td><BR>

<td> <font face="verdana" size="3" color="blue" >Tente <a href="form_bdaf_Assinatura.asp">conectar</a> novamente</font></td><BR>

<hr>

 

 

 

<!-- include file = "mostra_codigo.inc"-->

 

<% response.end

 

end if

 

'Se chegou aqui, o Local existe

'Verifica se a senha informada está ok

IF rstMain("senha") = wsenha AND rstMain("Código Local") = wlocal then

 

response.redirect "Relatorio_AFsemAssinatura.asp?Código Local=" & wlocal

%>

 

<!-- <h2>Usuário cadastrado: <%=session("nome")%></h2>

<h2>Administrador: <%=session("adm")%></h2>

<h2>Usuário conectado com sucesso</h2>-->

 

<% Else %>

<BR>

 

 

<p align=center><td> <font face="verdana" size="3" color="red" >Senha invalida.</font></td><BR>

<td> <font face="verdana" size="3" color="blue" >Tente <a href="form_bdaf_Assinatura.asp">conectar</a> novamente</font></td>

</p>

 

 

 

<!--#include file = "mostra_codigo.inc"-->

<% session.abandon

response.end

end if

 

rstMain.Close

'Libera a memória (destrói o objeto recordset)

Set rstMain=Nothing

%>

[Washington Morais 0]

Aparentemente o erro só está na chamada dos campos que você está usando o parenteses...

 

Altere todos para o colchete:

 

(((Senha_Web.[Código Local])='AL')) AND (((Senha_Web.[senha])='123'))'.

Abraços...

[Fernando_Bittencourt 0]

no caso ai nao tem necessidade de nenhum parentese...tire todos e deixe so os colchetesse quiser ficar mais certo mantenha os parenteses so dos comparativos... assim:(Senha_Web.[Código Local]='AL') AND (Senha_Web.[senha]='123')