Erro De Sintaxe (operador Faltando)

Gnomo · Outubro 17, 2004

Tipo de erro:

Microsoft JET Database Engine (0x80040E14)

Erro de sintaxe (operador faltando) na expressão de consulta 'IMPCodigo ='.

/admin/EditarImprensa.asp, line 37

Como resolvo esse problema?

O código da página é esse:

<!-- #include file="lib/DBAbre.asp" -->
<!-- #include file="lib/Util.asp" -->
<HTML>
<HEAD>
<LINK rel=stylesheet type=text/css href=css/Relatorios.css>
</HEAD>
<%
Dim Uploader
Set Uploader = New FileUploader

If Uploader.Form("PG") = "Atualizar" Then
 Set rs = Server.CreateObject("ADODB.Recordset")
 rs.CursorType = adOpenKeyset
 rs.LockType = adLockOptimistic
 rs.Open "SELECT Imprensa.* FROM Imprensa WHERE IMPCodigo = " & Uploader.Form("CD"), conn
 rs("IMPCategoria") = Uploader.Form("categoria")
 rs("IMPData") = DateAdd("n", Uploader.Form("min"), DateAdd("h", Uploader.Form("hor"), DateSerial(Uploader.Form("ano"), Uploader.Form("mes"), Uploader.Form("dia"))))
 rs("IMPTitulo") = Server.HTMLEncode(Uploader.Form("titulo"))
 rs("IMPTexto") = Uploader.Form("desc")
  If Uploader.Files.Exists("imagem1") Then
  rs("IMPImagem1") = Application("PastaImagensVirtual") & "imp" & rs("IMPCodigo") & "-1"
  Uploader.Files("imagem1").FileName = "imp" & rs("IMPCodigo") & "-1"
  Uploader.Files("imagem1").SaveToDisk Application("PastaImagens")
 End If
 If Uploader.Files.Exists("imagem2") Then
  rs("IMPImagem2") = Application("PastaImagensVirtual") & "imp" & rs("IMPCodigo") & "-2"
  Uploader.Files("imagem2").FileName = "imp" & rs("IMPCodigo") & "-2"
  Uploader.Files("imagem2").SaveToDisk Application("PastaImagens")
 End If
 rs.Update()
 rs.Close
 Set rs = Nothing
 Response.Redirect("EditarImprensa.asp")
End If

Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM Imprensa WHERE IMPCodigo = " & Request("CD") & ";", conn
categoria = rs("IMPCategoria")
data = rs("IMPData")
titulo = rs("IMPTitulo")
desc = rs("IMPTexto")
imagem1 = rs("IMPImagem1")
imagem2 = rs("IMPImagem2")
rs.Close()

%>
<FORM action=EditarImprensa.asp method=post name=composeform enctype="multipart/form-data">
<INPUT type=hidden name=PG value=Atualizar>
<INPUT type=hidden name=CD value=<%=Request("CD")%>>
<P>Atualize neste formulário os dados da página de imprensa e clique em <B>Atualizar</B>. 
<P>Prefira colocar o título e a descrição em letras minúsculas. Por exemplo ao invés de escrever "COMPUTADOR PENTIUM" prefira "Computador Pentium".
<P><TABLE width=100% border=0 cellpadding=0 cellspacing=0>
<TR><TH align=right width=100>Título:&nbsp;<TD><INPUT name=titulo size=50 maxlength=255 value="<%=titulo%>">
<TR><TH align=right>Categoria:&nbsp;<TD><SELECT name=categoria><%
 Set rs = CreateObject("ADODB.Recordset")
 rs.Open "SELECT CATCodigo, CATNome FROM Categorias INNER JOIN CategoriasVinculadas ON Categorias.CATCodigo = CategoriasVinculadas.CVLVinculada WHERE CVLCategoria=2;", conn
 While Not rs.EOF
  If CLng(Categoria) = CLng(rs("CATCodigo")) Then sel = " selected" Else sel = ""
  Response.Write("<OPTION value=" & rs("CATCodigo") & sel & ">" & rs("CATNome"))
  rs.MoveNext()
 Wend
 rs.Close()
%></SELECT>
<TR><TH align=right width=100>Data:&nbsp;<TD><%CampoData Data%>
<%If imagem1 <> "" Then%>
<TR><TH align=right width=100>Exemplo da Foto Pequena:&nbsp;<TD><IMG src="<%=imagem1%>">
<%End If%>
<TR><TH align=right width=100>Foto Pequena:&nbsp;<TD><INPUT name=imagem1 type=file size=35>
<%If imagem2 <> "" Then%>
<TR><TH align=right width=100>Exemplo da Foto Grande:&nbsp;<TD><IMG src="<%=imagem2%>">
<%End If%>
<TR><TH align=right width=100>Foto Grande:&nbsp;<TD><INPUT name=imagem2 type=file size=35>
<TR><TH align=right valign=top>Descrição:&nbsp;<TD>
<DIV style='position:relative;left:0px;top:0px;height:364;width:440'>
<TEXTAREA name=desc wrap=soft style='visibility:visible;z-index:100;position:absolute;left:0px;top:0px;height:100%;width:100%'><%=desc%></TEXTAREA>
<IFRAME SRC='Editor.asp' id='richedit' style='visibility:hidden;position:absolute;left:0px;top:0px;height:100%;width:100%'></IFRAME>
</DIV></TD>
<TR><TH colspan=2><BR><TABLE width=100% border=0 cellpadding=0 cellspacing=0><TR><TH width=25%>&nbsp;<TH width=25%><INPUT onclick="document.composeform.desc.value=window.richedit.getHTML();" type=image src=img/bt-at.gif alt=Atualizar border=0></TH><TH width=25%><A href=EditarImprensa.asp><IMG name=can alt=Cancelar src=img/bt-cancelar.gif border=0></A><TH width=25%>&nbsp;</TABLE>
</TABLE></FORM>
<script language=JavaScript>
 <!-- 

 function HTMLfilter(data)
 {
  data = data.replace(/&/g, "&amp\;");
  data = data.replace(/\"/g, "&quot\;");
  data = data.replace(/</g, "&lt\;");
  data = data.replace(/>/g, "&gt\;");
  return data;
 }

 function RTELoaded(w) {
  w.setToolbar("tbbgcolor",false)
  w.setToolbar("tbimage",false)
  w.setToolbar("tbbar3",false)
  w.setToolbar("tbbar5",false)
  w.setSkin("#idToolbar {border: 1px black solid; background:#BEE1FF}")
  plaintext = document.composeform.desc.value;
  window.richedit.setHTML(plaintext);
  document.composeform.desc.style.visibility='hidden';
  document.all.richedit.style.visibility = 'visible';
  window.richedit.setFocus()   
 }

 //--> 
</SCRIPT>
<!-- #include file="lib/DBFecha.asp" -->

Grato;

GnomO

Graymalkin · Outubro 17, 2004

Qual o tipo desse campo? Se for do tipo texto, você deve usar aspas simples para delimitar o texto que está na SQL.

Abraços,

Graymalkin

dark0 · Outubro 17, 2004

qual é a linha 37?

salient ela no codigo.

Se na linha houver um WHERE, o erro está, na variavel que vem do formulario, para comparar no SQL.

então, a principio, veja se esta variavel tem algum valor.

É comum a variavel não ter valor, e assim gerar erro de operador faltando, pois a variavel esta vazia, e o SQL fica incompleto

Abraços

Entrar

Erro De Sintaxe (operador Faltando)

Pergunta

Gnomo

Link para o comentário

Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Graymalkin

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades