Estou precisando de uma ajuda, tem hora que não conseguimos visualizar nossos erros, e é o que estah acontecendo. Por isso peco a ajuda de todos.
Construi a funcao abaixo em ASP e efetuei varios testes, onde constatei que estava funcionando perfeitamente, porem no final do dia apareceu uma mensagem de erro, que segue abaixo :
Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta 'ID='.
/teste.asp, line 45
Segue tb o codigo gerado em ASP, para que possam analisar.
<html>
<head>
<title>Teste de pagina dinamica</title>
</head>
<body>
<p><b><font color="#FF0000" size="4" face="Times New Roman, Times, serif"></font></b></p>
<p><font face="Times New Roman, Times, serif" size="4" color="#FF0000"><b> </b></font>
Pergunta
Guest Flavio Spina
Boa noite !!!
Estou precisando de uma ajuda, tem hora que não conseguimos visualizar nossos erros, e é o que estah acontecendo. Por isso peco a ajuda de todos.
Construi a funcao abaixo em ASP e efetuei varios testes, onde constatei que estava funcionando perfeitamente, porem no final do dia apareceu uma mensagem de erro, que segue abaixo :
Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta 'ID='.
/teste.asp, line 45
Segue tb o codigo gerado em ASP, para que possam analisar.
<html>
<head>
<title>Teste de pagina dinamica</title>
</head>
<body>
<p><b><font color="#FF0000" size="4" face="Times New Roman, Times, serif"></font></b></p>
<p><font face="Times New Roman, Times, serif" size="4" color="#FF0000"><b> </b></font>
<%
Dim conControle
Dim recGeral
const cntCaminho = "c:\inetpub\wwwroot\controle_geral.mdb"
'Dim SQLfil
Set conControle = Server.CreateObject("ADODB.Connection")
Set recGeral = Server.CreateObject("ADODB.Recordset")
conControle.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho
SQLfil = "select * from geral where EMPRESAS='CONNECTDATA' order by ET"
recGeral.Open SQLfil,conControle,2 ,1 %>
<form name="teste.asp" method="post">
<div align="center">
<select name="ID" >
<option value="ETs"> --- Selecione a E.T. --- </option>
<%
do While Not recGeral.EOF
%>
<option value="<%=recGeral.fields ("ID")%>"><%=recGeral.fields("ET") & " - " & recGeral.fields("LOC")%> </option>
<%
recGeral.MoveNext
loop
recGeral.close
%>
</select>
<INPUT type="submit" name="action" value="Filtrar">
<a href="teste.asp"><font size="3">(reset)</font></a>
</div>
</form>
<%
SQLfil = "select * from geral where ID=" & request.Form("ID")
recGeral.Open SQLfil, conControle,2 , 1
if not recGeral.EOF then
session("ID") = recGeral("ID")
session("MUN") = recGeral("MUN")
session("LOC") = recGeral("LOC")
session("ET") = recGeral("ET")
else
session("MUN") = "not found"
session("LOC") = "not found"
session("ET") = "not found"
end if
recGeral.close
%>
<%
if request.form("ID")<>"" then
SQLfil = "SELECT * FROM geral Where ID=" & request.Form("ID")
recGeral.Open SQLfil,conControle, 2, 1
if not recGeral.eof then
session("ID") = recGeral("ID")
session("MUN") = recGeral("MUN")
session("LOC") = recGeral("LOC")
session("ET") = recGeral("ET")
else
session("MUN") = "not found"
session("LOC") = "not found"
session("ET") = "not found"
end if
end if
recGeral.close
%>
<FORM ACTION="teste.asp" METHOD="POST">
<input type="hidden" name="ID" value="<%= session("ID")%>">
<div align="center">
<center>
<table border="0" width="96%">
<tr>
<td width="100%"><font face="Arial">Municipio : </font><input name="boxname" size="32" value="<%=session("MUN")%>"></td>
</tr>
<tr>
<td width="100%"><font face="Arial">Localidade : </font><input name="boxphone" size="16" value="<%=session("LOC")%>"></td>
</tr>
<tr>
<td width="100%"><font face="Arial">E. T. : </font><input name="boxemail" size="22" value="<%=session("ET")%>"></td>
</tr>
</table>
<SELECT NAME="todo">
<OPTION selected> -- Choose -- </OPTION>
<OPTION value="Ins">Insert</OPTION>
<OPTION value="Upd">UpDate</OPTION>
<OPTION value="Del">Delete</OPTION>
</SELECT>
<input type="submit" value="Do It">
</center>
</div>
</FORM>
</td>
</tr>
</table>
</tr>
</table>
</div>
</p>
</body>
</html>
Grato.
Flavio Spina
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.