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

[chemita59]

Buenas a todos:

Tengo un problema al actualizar que seguro es de comillas, pero no encuentro donde esta el error.

Tengo una tabla con varios campos (f1, f2, f3, f4)en los que introduzco el nombre de un fichero de imagen.

Tengo otro campo en el que quiero meter la ruta fisica de la imagen (foto1, foto2.....).

He creado el juego de registros y al intentar actualizar me dice:


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.
/GESTOR/OKcentros.asp, line 46


La linea 46 corresponde a:

RSCECOS.ActiveConnection.Execute(misql)

Todos los campos que utilizo son de texto.

El juego de registros y el bucle es el siguiente:





<%@LANGUAGE="VBSCRIPT"% CODEPAGE="1252"%>
<!--#include file="../Connections/ConectaRRLL.asp" -->
<%
Dim RSCECOS
Dim RSCECOS_numRows

Set RSCECOS = Server.CreateObject("ADODB.Recordset")
RSCECOS.ActiveConnection = MM_ConectaRRLL_STRING
RSCECOS.Source = "SELECT * FROM CECOS"
RSCECOS.CursorType = 0
RSCECOS.CursorLocation = 2
RSCECOS.LockType = 1
RSCECOS.Open()

RSCECOS_numRows = 0

'DECLARAMOS LAS VARIABLES DE TRABAJO

Dim v0, v1, v2a, v2b, v2c, v2d, v3, v4, v5, v6
Dim misql

' Nos posicionamos en el primer registro para leer
RSCECOS.MoveFirst

' Iniciamos el bucle para asignar los valores a las variables y grabar
Do while Not RSCECOS.EOF


v4= Trim(RSCECOS.Fields.Item("ceco_actual")) ' Si el valor de v4 es 1 hay que actualizar
v0= Trim(RSCECOS.Fields.Item("ceco_codco99")) ' Guarda el numero de centro contable

If v4 = "1" then

v1="http://localhost/UPLOADS/IMAGESCT/" ' Dirección base de ruta imagenes
v2a= Trim(RSCECOS.Fields.Item("ceco_f1")) ' nombre del fichero de la foto nº 1
v2b= Trim(RSCECOS.Fields.Item("ceco_f2")) ' nombre del fichero de la foto nº 2
v2c= Trim(RSCECOS.Fields.Item("ceco_f3")) ' nombre del fichero de la foto nº 3
v2d= Trim(RSCECOS.Fields.Item("ceco_f4")) ' nombre del fichero de la foto nº 4
v3= Trim(RSCECOS.Fields.Item("ceco_goperati")) ' Numero de gerencia
v5="0" ' Registro actualizado

if v3 ="02" then

v1=v1 & "GOLE" & "/" & v2a
' Guardamos la ruta de la primera fotografia
misql= "UPDATE CECOS SET ceco_foto1 = '"&v1&"' WHERE ceco_codco99 = "&v0
RSCECOS.ActiveConnection.Execute(misql)
end if
End If

RSCECOS.MoveNext
Loop

RSCECOS.MoveFirst

%>


Agradecria una pequeña ayuda.

Salu2