[Resolvido] erro no codigo

[lezão 0]

Ola meus amigos estou com mais um erro !!!!

 

Este é o erro esta dando

 

Microsoft JET Database Engine error '80040e14' 

Syntax error (missing operator) in query expression 'Cod ='. 

/novo/painel/AltFoto1.asp, line 16 

 

 

este é o codigo que estou usando!

 

<!--#include file="../Includes/Config.asp"-->
<!--#include file="../Includes/Travar2.asp"-->
<!--#include file="../Includes/Adovbs.inc"-->
<!--#include file="../Includes/Upload.asp"-->
<link href="../Includes/Styles.css" rel="stylesheet" type="text/css">
<%

Call AbreBanco

Dim VarAct
Dim ConsProduto

VarProduto = Request.QueryString("Produto")
VarAct = Request.QueryString("Act")

Set ConsProduto = Banco.Execute("Select * From Produtos Where Cod ="& VarProduto)

%>
<!--#include file="../Includes/Form.asp"-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><!--#include file="../Includes/BarraCimaAdm.asp"--></td>
  </tr>
  <tr>
    <td>
		<table width="100%"  border="0" cellspacing="0" cellpadding="0">
      		<tr>
        		<td width="176" height="100%" valign="top"><!--#include file="../Includes/BarraEsqAdm.asp"--></td>
        		<td width="0" valign="top">
					<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
          				<tr>
            				<td height="9%" align="center"><img src="../Imagens/SpacerCima.gif" width="1" height="9"></td>
        				</tr>
         	    		<tr>
         	    		  <td height="20" align="center" bgcolor="<%=FundoTitulo%>"><div align="left"><span class="TextTahoma11AzulBold">  Alteração de produto</span></div></td>
       	    		  </tr>
         	    		<tr>
            				<td height="19%" align="center"> </td>
          				</tr>
          				<tr>
          				  <td align="center" valign="middle">
						  <%
						  If VarAct = "" Then
						  
							  With Response
						  
						  		.Write "<table>"
								.Write "<form action="& Chr(34) &"AltFoto1.asp?Act=Atualizar&Produto="& VarProduto & Chr(34) &" method="& Chr(34) &"post"& Chr(34) &" name="& Chr(34) &"Cadastro"& Chr(34) &" enctype="& Chr(34) &"multipart/form-data"& Chr(34) &">"
								.Write LinhaHorizontal2
								.Write FCampos(49)
								.Write LinhaHorizontal2
								.Write FCampos(48)
								.Write "</form>"
								.Write "</table>"
							
						  	End With 
						  
						  %>
						  </td>
       				  </tr>
          				<tr>
            				<td height="20" align="center" valign="middle"><img src="../Imagens/LinhaCinzaClaro.gif" width="100%" height="1"></td>
          				</tr>
          				<tr>
          				  <td height="20" align="center" valign="middle"><%=Voltar%></td>
       				  </tr>
						<%
							
						  Else
						  
							 	Dim AltBd
								Dim VarFoto1


				'-------------------------------------------------------------					
				Dim Uploader, File
				Set Uploader = New FileUploader

				Uploader.Upload()
					
				If Uploader.Files.Count > 0 Then
					For Each File In Uploader.Files.Items
						File.SaveToDisk CaminhoUpload
						VarFoto = VarFoto &"|"& File.FileName
					Next
				VarFoto = Right(VarFoto, Len(VarFoto)-1)
				VarFoto = Split(VarFoto, "|")
				End If
				'-------------------------------------------------------------					
						VarFoto1 = ConsProduto("Foto1")

						If Uploader.Files.Count > 0 Then
							VarFoto1 = LocalIMG & VarFoto(0)
						End If
				'-------------------------------------------------------------					
											
							 	Set AltBd = Server.CreateObject("ADODB.Recordset")
							 		AltBd.CursorLocation = adUseServer
									AltBd.CursorType = adOpenForwardOnly
									AltBd.LockType = adLockOptimistic
									AltBd.Open "SELECT * FROM Produtos WHERE Cod = "& VarProduto &"", Banco, , , adCmdText
										AltBd("Foto1") = VarFoto1
									AltBd.Update
									AltBd.Close
							  	Set AltBd = Nothing
							  
							  		Response.Write "<span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &">A Foto do Produto </span><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &">"&ConsProduto("NomeProduto")&"</span><span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &"> foi alterada com sucesso.<br><br>"& VoltarADM
									
						  End If
							  
  						%>
        			</table>
				</td>
        		<td width="148" height="100%" valign="top"><!--#include file="../Includes/BarraDirAdm.asp"--></td>
      		</tr>
   	  </table>
	</td>
  </tr>
  <tr>
    <td><!--#include file="../Includes/RodapeAdm.asp"--></td>
  </tr>
</table>
<%
ConsProduto.Close
Set ConsProduto = Nothing

Call FechaBanco
%>

[augustoclaro 2]

VarProduto está vazio, verifique com um response.end()

[Patrique 0]

tente assim

 

Set ConsProduto = Banco.Execute("Select * From Produtos Where Cod = '"& VarProduto&"')

 

É aconselhável tb utilizar if else para saber se a query esta vazia ou não.

 

[]'s

 

Esqueci de uma aspas duplas

 

Set ConsProduto = Banco.Execute("Select * From Produtos Where Cod = '"& VarProduto&"'")

[xanburzum 169]

Verifique a ortografia. pode ser um nome de coluna Invalido 'sua_coluna'. A coluna a qual você se refere na Base de Dados não foi encontrada.

[Mário Monteiro 179]

Aparentemente como os amigos falaram acima sua variável esteja vazia

 

De onde está recuperando-a?

 

Aproveito para perguntar o tipo de dados da tabela cod em seu db pois se não for texto vai dar erro usando com aspas simples

[lezão 0]

É verdade xanburzum naun havia nada referente ao nome do campo

 

 

agora deu certo muito obrigado....

[xanburzum 169]

beleza, amigo...