No coinciden los tipos de datos en la expresión de criterios.

[MartYn]

Ayer Funcionaba y hoy no

Que sera ?

Ya lo probe en esa misma PC que corre con PWS

Y ahora instale lo mismo con una copia PASADA que tenia en mi IIS de Winxp

Y truena donde mismo

Que será ?

Porque hice otras operaciones que tengo en ASP y funcionan bien, puedo agregar a la base de datos, pero ese formato ya no.

Tengo otro ASP identico, pero otro modulo, y es el mismo caso

que sera ?

el error es este

En El PWS

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

[Microsoft][Controlador ODBC Microsoft Access] No coinciden los tipos de datos en la expresión de criterios.

/help/formatos/canon.asp, line 90

EN IIS de Win XP

Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][Controlador ODBC Microsoft Access] No coinciden los tipos de datos en la expresión de criterios.
/help/formatos/canon.asp, línea 90


Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Página:
POST 207 bytes to /help/formatos/canon.asp

Datos de POST:
descripcion=PRUEBA+DE+MENSAJE&fechadesde=09%2F02%2 F04&horariodesde=10%3A00A.M.&fechahasta=09%2F02%2F 2004&horariohasta=11%3A00A.M.&solicito=MARTIN+CAVA ZOS&ubicacion=SALA+DE+JUNTAS&Enviar=Enviar&MM_inse . . .

Hora:
Viernes, 18 de Junio de 2004, 04:44:36 p.m.

Me ayudan ?

[Avelar]

¿Puedes colocar la línea 90 para verla?

[luisvasquez]

Si...es necesario ver el codigo para ayudarte

[MartYn]

claro aqui va

85 If (Not MM_abortEdit) Then
86 ' execute the insert
87 Set MM_editCmd = Server.CreateObject("ADODB.Command")
88 MM_editCmd.ActiveConnection = MM_editConnection
89 MM_editCmd.CommandText = MM_editQuery
90 MM_editCmd.Execute
91 MM_editCmd.ActiveConnection.Close

[luisvasquez]

Woow ...y donde está el Insert ?

La linea 90 indica la ejecución de un SQL, puedes postear la línea de SQL?

Saludos, Luis

[MartYn]

Como no se mucho mucho
y me lo genera la biblia del Dreamweaver

aqui mando el codigo que esta en el head (ASP) (solo quite unas cosas que no se veian importantes, porque no me deja postear muchos caracteres aqui)

aqui esta el insert

dime que pasaria please

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/help.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 = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) <> "") Then

MM_editConnection = MM_help_STRING
MM_editTable = "camaracanons110"
MM_editRedirectUrl = "camaracanons110exitoso.asp"
MM_fieldsStr = "descripcion|value|fechadesde|value|horariodesde|v alue|fechahasta|value|horariohasta|value|regresa|v alue|regresahora|value|solicito|value|ubicacion|va lue"
MM_columnsStr = "descripcion|',none,''|fechadesde|',none,''|horari odesde|',none,''|fechahasta|',none,''|horariohasta |',none,''|regresa|',none,''|regresahora|',none,'' |solicito|',none,''|ubicacion|',none,''"

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")

' set the form values
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(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
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

If (CStr(Request("MM_insert")) <> "") Then

' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),",")
Delim = MM_typeArray(0)
If (Delim = "none") Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none") Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none") Then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
ElseIf (Delim = "'") Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''") & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End if
MM_tableValues = MM_tableValues & MM_columns(i)
MM_dbValues = MM_dbValues & FormVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

If (Not MM_abortEdit) Then
' execute the insert
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 If

End If
%>

[Miguel Delgado]

Te recomiendo que aprendas un poco mas sobre ASP (es muy facil!), pues como te das cuenta realizarle mantenimiento a la "BLIBLIA DREAMWEAVER" es un poco complejo, lo que te puedo recomendar es que lo hagas asi:

<%Dim Conexion
Set Conexion = Server.CreateObject("ADODB.Connection")
Conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\sitio\bd\tu_baseDatos.mdb")
%>

<%
consulta="insert into tu_tabla (campo1, campo2,...) values ('"&valorTEXTO&"', "&valorNumerico&",....)"
Set rs=conexion.execute(consulta)
%>

Es mucho mas sencillo y de la biblia de tu mente!

[MartYn]

Gracias
Si de hecho he estado leyendo hacer codigo a Mano, porque el dreamweaver saltan muchos pasos y escribe demasiado largo. para hacer lo mismo que haces con pocos escritos.

Përo como este modulo ya me estaba funcionando, pues para no hacerlo de cero, quiero repararlo tal y como esta .....

Ayudenme

al rato les pongo un link para que bajen ese .asp

y asi lo leen bien ;)

Gracias

[AlZuwaga]

Una pregunta... no será que le cambiaste el tipo de datos a alguno de los campos involucrados en la BD? (o sea, uno definido como texto lo pasaste a numérico o a la inversa?)

A mi me ocurre algunas veces que defino un campo como texto y cuando me doy cuenta que sólo van a existir valores numéricos lo cambio y... "error de tipos"

[MartYn]

Fijate que eso pienso que dice el error, pero la verdad la base de datos jamas a muevo

no sera que hayan cambiado algo del formato en Configuracion Regional del server y haya afectado ?

Mi duda, es el porque ?
de 3 formatos que se usan seguido 2 fallaron y tienen la mismita configuracion, los campos con los mismos formatos
en la pagina se capturan normal como input sin formato, y en el campo de la base de datos si los toma como fecha corta u hora corta. pero ya capture igualito que como viene un registro anteriro bien capturado.. y no...

el problema persiste....

[Miguel Delgado]

Pues mira!

Muestrame los script de la base de datos (Envia la tabla que estas insertando, junto con sus tipos de datos.), y muestra la linea exacta en donde esta la consulta de inserccion.

Personalmente hubiese echo Ctrl+E y Supr, y empiezar de nuevo!

[Miguel Delgado]

upppsss EMPEZAR DE NUEVO. (lo siento)

[MartYn]

esa No Fue Una Buena Respuesta