erro que já meu horas de dor de cabeça

[millhouse 0]

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

 

[Microsoft][ODBC Microsoft Access Driver] The search key was not found in any record.

 

/atualizar.asp, line 111

 

 

esse erro acima da quando eu tento atualizar algo do banco de dados eu acho, no execute....

 

Set MM_editCmd = Server.CreateObject("ADODB.Command")

MM_editCmd.ActiveConnection = MM_editConnection

MM_editCmd.CommandText = MM_editQuery

MM_editCmd.Execute

MM_editCmd.ActiveConnection.Close

 

 

, isso que mês passado nois tinha um bd e dava o mesmo pau, e já refiz essa página umas 5 vezes ou mais no mes passado , isso que esse mes agente refez o site inteiro , até o bando de dados e ainda continua dando a mesmo erro, isso que já perdi a paciência de refazer a página de atualização ...

isso que as outras páginas de atualização funcionam todas , só essa que não

 

 

se alguém sabe o que for por favor me ajudo pois, não aguento mais, nem meu cliente.

[Mário Monteiro 179]

Posta a query

 

MM_editQuery

[millhouse 0]

<%' *** 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%>Deve ser istoDesculpe a demora , mas sai mais cedo do serviço na sexta e so voltei ontem

[Mário Monteiro 179]

O codigo que o Dream gera é orrorivelDá um response.write na MM_editQuery e posta o que realmente é executado, fica mais facil de verificar o erro