80040e10

[cesarhtc 0]

Pessoal beleza?

 

Preciso de ajuda estou com essa mensagem erro:

Microsoft JET Database Engine error '80040e10'

 

No value given for one or more required parameters.

 

/Suprimentos/web_esti/NOVO.asp, line 59

Código

'Recupera do pesquisaraf.asp o valor das 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 checagem da existencia do pregão

 

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

 

'strSQL="SELECT Senha_Web.[Código Local], Senha_Web.senha 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 = Server.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 59

if not rstMain.EOF then

 

rstMain.Close %>

 

<%

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

else

%>

 

 

%>

<h3 style=color="red">Esta AF ainda não consta no banco.</h3>

<hr>

 

 

<%

End if

 

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

Set rstMain=Nothing

%>

[sr.silva 1]

strSQL="SELECT * FROM Senha_Web WHERE (((Senha_Web.[Código Local])=" & wlocal & ")) AND (((Senha_Web.senha)=" & wsenha & "))"'strSQL="SELECT Senha_Web.[Código Local], Senha_Web.senha FROM Senha_Web WHERE (((Senha_Web.[Código Local])=" & wlocal & ") AND ((Senha_Web.senha)=" & wsenha & "))" 'Response.Write strSQL & "<BR>"'response.end

Algum parametro da sua string SQL esta vindo VAZIO, tente "debugar" o codigo, retirando o comentario dos seguintes pontos...

Response.Write strSQLresponse.end