atualização de registro em bd

[hunger 0]

olá comunidade....

 

tenho uma pagina de atualização de dados, que, quando clico no "ok" está dando o seguinte erro:

 

Tipo de erro:

Microsoft JET Database Engine (0x80040E14)

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

/funcionarios/altera_func_mes.asp, line 111

 

 

abaixo vou colocar o código, e sinalizar a linha 111 com uma sequencia de asteriscos (*).

 

agradeço desde já qualquer sugestão!

 

Marcos Hunger.

 

<%@LANGUAGE="VBSCRIPT"%><!--#include file="Connections/Conexao.asp" --><%' *** Edit Operations: declare variablesDim MM_editActionDim MM_abortEditDim MM_editQueryDim MM_editCmdDim MM_editConnectionDim MM_editTableDim MM_editRedirectUrlDim MM_editColumnDim MM_recordIdDim MM_fieldsStrDim MM_columnsStrDim MM_fieldsDim MM_columnsDim MM_typeArrayDim MM_formValDim MM_delimDim MM_altValDim MM_emptyValDim MM_iMM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))If (Request.QueryString <> "") Then  MM_editAction = MM_editAction & "?" & Request.QueryStringEnd If' boolean to abort record editMM_abortEdit = false' query string to executeMM_editQuery = ""%><%' *** Insert Record: set variablesIf (CStr(Request("MM_update")) = "form1" And CStr(Request("MM_recordId")) <> "") Then  MM_editConnection = MM_Conexao_STRING  MM_editTable = "func_mes"  MM_editColumn = "ID"    MM_editRedirectUrl = "lista_mes.asp"  MM_fieldsStr  = "MES|value|ANO|value|MOTIVO|value|REGISTRO|value"  MM_columnsStr = "MES|',none,''|ANO|',none,''|MOTIVO|',none,''|REGISTRO|',none,''"  ' create the MM_fields and MM_columns arrays  MM_fields = Split(MM_fieldsStr, "|")  MM_columns = Split(MM_columnsStr, "|")    ' set the form values  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))  Next  ' append the query string to the redirect URL  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString    Else      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString    End If  End IfEnd If%><%' *** Update Record: construct a sql update statement and execute itIf (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then  ' create the sql update statement  MM_editQuery = "update " & MM_editTable & " set "  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2    MM_formVal = MM_fields(MM_i+1)    MM_typeArray = Split(MM_columns(MM_i+1),",")    MM_delim = MM_typeArray(0)    If (MM_delim = "none") Then MM_delim = ""    MM_altVal = MM_typeArray(1)    If (MM_altVal = "none") Then MM_altVal = ""    MM_emptyVal = MM_typeArray(2)    If (MM_emptyVal = "none") Then MM_emptyVal = ""    If (MM_formVal = "") Then      MM_formVal = MM_emptyVal    Else      If (MM_altVal <> "") Then        MM_formVal = MM_altVal      ElseIf (MM_delim = "'") Then  ' escape quotes        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"      Else        MM_formVal = MM_delim + MM_formVal + MM_delim      End If    End If    If (MM_i <> LBound(MM_fields)) Then      MM_editQuery = MM_editQuery & ","    End If    MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal  Next  MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId  If (Not MM_abortEdit) Then    ' execute the update    Set MM_editCmd = Server.CreateObject("ADODB.Command")    MM_editCmd.ActiveConnection = MM_editConnection    MM_editCmd.CommandText = MM_editQuery    MM_editCmd.Execute      ******************************************    MM_editCmd.ActiveConnection.Close    If (MM_editRedirectUrl <> "") Then      Response.Redirect(MM_editRedirectUrl)    End If  End IfEnd If%><%Dim RSAltera__MMColParamRSAltera__MMColParam = "1"If (Request.QueryString("ID") <> "") Then   RSAltera__MMColParam = Request.QueryString("ID")End If%><%Dim RSAlteraDim RSAltera_numRowsSet RSAltera = Server.CreateObject("ADODB.Recordset")RSAltera.ActiveConnection = MM_Conexao_STRINGRSAltera.Source = "SELECT * FROM func_mes WHERE ID = " + Replace(RSAltera__MMColParam, "'", "''") + ""RSAltera.CursorType = 0RSAltera.CursorLocation = 2RSAltera.LockType = 1RSAltera.Open()RSAltera_numRows = 0%> <title>DAD Engenharia - Intranet | ADM | Alteração de Funcionário do Mês</title><script language="JavaScript" type="text/JavaScript"><!--function MM_callJS(jsStr) { //v2.0  return eval(jsStr)}//--></script><form name="form1" method="POST" action="<%=MM_editAction%>">    <table width="50%" border="0">    <tr>       <td colspan="2"> <div align="center">Alterar Funcionário do Mês</div></td>    </tr>    <tr>       <td width="21%"> </td>      <td width="79%"> </td>    </tr>    <tr>       <td><div align="right">Mês/Ano:</div></td>      <td> <select size="1" name="MES">          <% For x = 1 To 12 %>          <option <% If ( CINT(x) = CINT(RSAltera("MES"))) Then response.write "selected" %> value="<%=x%>"><%=x%></option>          <% Next %>        </select> <select name="ANO" size="1" id="ANO">          <% For x = 1960 To 1990 %>          <option <% If ( CINT(x) = CINT(RSAltera("ANO"))) Then response.write "selected" %> value="<%=x%>"><%=x%></option>          <% Next %>        </select> </td>    </tr>    <tr>       <td><div align="right">Registro do funcionário:</div></td>      <td> <input name="REGISTRO" type="text" id="REGISTRO" value="<%=(RSAltera("REGISTRO"))%>" size="50">       </td>    </tr>    <tr>       <td><div align="right">Motivo<font color="#FF0000" size="1"></font>:</div></td>      <td> <textarea name="MOTIVO" cols="38" rows="3" id="MOTIVO"><%=(RSAltera("MOTIVO"))%></textarea></td>    </tr>    <tr>       <td> </td>      <td> </td>    </tr>    <tr>       <td colspan="2"> <div align="center">           <input type="submit" name="Submit" value="Alterar">                      <input name="Voltar" type="button" id="Voltar" onClick="MM_callJS('javascript:;history.go(-1)')" value="Voltar">        </div></td>    </tr>  </table>  <input type="hidden" name="MM_update" value="form1">  <input type="hidden" name="MM_recordId" value="<%= RSAltera("ID") %>"></form></body></html><%RSAltera.Close()Set RSAltera = Nothing%>

 

incrivel q meus erros dao sempre nesse "execute"....rs

[Mário Monteiro 179]

é natural que de erros no execute ou no open pois é quando se tenta acessar o banco de uma forma incorreta.Bem o erro aponta que a Id que você esta tentando pegar do banco não esta sendo passadao erro esta nesta variavel MM_editQueryantes da linah do execute escreveresponse.write MM_editQuerye depois posta aqui o que aparecer na tela

[hunger 0]

fala...beleza?entao, ele está passando batido por essa solicitação e da o mesmo erro...este erro só está aparecendo na hora do submit, nao qdo abre a página... nao sei se falei isso (e nao sei se ajuda saber)...ó, coloquei aonde você pediu: Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery response.write MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close

[hunger 0]

po, estava comparando com a outra pagina de alteração q fiz para o cadastro de funcionarios, e ambas estão iguais.... sendo q essa uma está funcionando...!!

[hunger 0]

CONSEGUI!!!

 

estava faltando esta linha antes do Execute:

 

 

MM_recordId = "" + Request.Form("MM_recordId") + ""

 

 

Agora deu!!!

 

VALEW http://forum.imasters.com.br/public/style_emoticons/default/joia.gif