Erro ao atualizar

[maurohpg 0]

Consegui resolver os problemas aqui do meu sistema de noticias. Somente a parte de atualizar está dando esse erro:

 

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

 

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

 

/mauro/atualizar.asp, line 134

 

Linha 134 = MM_editCmd.Execute

 

Pelo que eu sei é erro de formatação de dfatas eu acho mais eu fiz do mesmo jeito pelo jeito de inserção e está funcionando, agora qdo vou atualizar dá esse erro...me ajudem please só falta isso....!!

 

ASP

[*]<%@LANGUAGE="VBSCRIPT"%>

 

[*]<!--#include file="Connections/mesquita.asp" -->

 

[*]<%

 

[*]' *** Edit Operations: declare variables

 

[*]

 

[*]MM_editAction = CStr(Request("URL"))

 

[*]If (Request.QueryString <> "") Then

 

[*] MM_editAction = MM_editAction & "?" & Request.QueryString

 

[*]End If

 

[*]

 

[*]' boolean to abort record edit

 

[*]MM_abortEdit = false

 

[*]

 

[*]' query string to execute

 

[*]MM_editQuery = ""

 

[*]%>

 

[*]<%

 

[*]' *** Update Record: set variables

 

[*]

 

[*]If (CStr(Request("MM_update")) = "form1" And CStr(Request("MM_recordId")) <> "") Then

 

[*]

 

[*] MM_editConnection = MM_mesquita_STRING

 

[*] MM_editTable = "Noticias"

 

[*] MM_editColumn = "ID"

 

[*] MM_recordId = "" + Request.Form("MM_recordId") + ""

 

[*] MM_editRedirectUrl = "atualizado.asp"

 

[*] MM_fieldsStr = "titulo|value|fonte|value|url|value|datade|value|dataate|value|publicado|val

ue|datacadastro|value|materia|value|xhtml|value"

 

[*] MM_columnsStr = "titulo|',none,''|fonte|',none,''|url|',none,''|datade|',none,''|dataate|',none,''|publicado|none,'Y','N'|datacadastro|',none,''|materia|',none,''|xhtml|',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 If

 

[*]

 

[*]End If

 

[*]%>

 

[*]<%

 

[*]' *** Delete Record: declare variables

 

[*]

 

[*]if (CStr(Request("MM_delete")) = "formExcluir" And CStr(Request("MM_recordId")) <> "") Then

 

[*]

 

[*] MM_editConnection = MM_mesquita_STRING

 

[*] MM_editTable = "Noticias"

 

[*] MM_editColumn = "ID"

 

[*] MM_recordId = "" + Request.Form("MM_recordId") + ""

 

[*] MM_editRedirectUrl = "excluido.asp"

 

[*]

 

[*] ' 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 If

 

[*]

 

[*]End If

 

[*]%>

 

[*]<%

 

[*]' *** Delete Record: construct a sql delete statement and execute it

 

[*]

 

[*]If (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordId")) <> "") Then

 

[*]

 

[*] ' create the sql delete statement

 

[*] MM_editQuery = "delete from " & MM_editTable & " where " & MM_editColumn & " = " & MM_recordId

 

[*]

 

[*] If (Not MM_abortEdit) Then

 

[*] ' execute the delete

 

[*] Set MM_editCmd = Server.CreateObject("ADODB.Command")

 

[*] MM_editCmd.ActiveConnection = MM_mesquita_STRING

 

[*] MM_editCmd.CommandText = MM_editQuery

 

[*] MM_editCmd.Execute

 

[*] MM_editCmd.ActiveConnection.Close

 

[*]

 

[*] If (MM_editRedirectUrl <> "") Then

 

[*] Response.Redirect(MM_editRedirectUrl)

 

[*] End If

 

[*] End If

 

[*]

 

[*]End If

 

[*]%>

 

[*]<%

 

[*]' *** Update Record: construct a sql update statement and execute it

 

[*]

 

[*]If (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_mesquita_STRING

 

[*] MM_editCmd.CommandText = MM_editQuery

 

[*] MM_editCmd.Execute

 

[*] MM_editCmd.ActiveConnection.Close

 

[*]

 

[*] If (MM_editRedirectUrl <> "") Then

 

[*] Response.Redirect(MM_editRedirectUrl)

 

[*] End If

 

[*] End If

 

[*]

 

[*]End If

 

[*]%>

 

[*]<%

 

[*]Dim rsAreas__MMColParam

 

[*]rsAreas__MMColParam = "1"

 

[*]If (Request.QueryString("True") <> "") Then 

 

[*] rsAreas__MMColParam = Request.QueryString("True")

 

[*]End If

 

[*]%>

 

[*]<%

 

[*]set rsAreas = Server.CreateObject("ADODB.Recordset")

 

[*]rsAreas.ActiveConnection = MM_mesquita_STRING

 

[*]rsAreas.Source = "SELECT nome FROM site_areas WHERE noticias = '" + Replace(rsAreas__MMColParam, "'", "''") + "' ORDER BY nome ASC"

 

[*]rsAreas.CursorType = 0

 

[*]rsAreas.CursorLocation = 2

 

[*]rsAreas.LockType = 3

 

[*]rsAreas.Open()

 

[*]rsAreas_numRows = 0

 

[*]%>

 

[*]<%

 

[*]set rsNoticias = Server.CreateObject("ADODB.Recordset")

 

[*]rsNoticias.ActiveConnection = MM_mesquita_STRING

 

[*]rsNoticias.Source = "SELECT * FROM Noticias"

 

[*]rsNoticias.CursorType = 0

 

[*]rsNoticias.CursorLocation = 2

 

[*]rsNoticias.LockType = 3

 

[*]rsNoticias.Open()

 

[*]rsNoticias_numRows = 0

 

[*]%>

[Ricardorodh 0]

Cara tentar ver o que a sql ta fazendo, porque é um erro de tipo de dados, você ta tentando salvar alguns dados que não é suportado pelo campo na tabela.ve se não está faltando as ( ' ) para salvar os registro de texto.Ricardo

[maurohpg 0]

Bom o que pode estar dando erro pode ser data!Mais no campo da tabela está como data e estou inserindo como data tb. E mesmo assim ele está dando erro ao atualizar. Estou atualizando do mesmo jeito que estou inserindo e dá erro ao atualizar e inserir insere normal!