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
