Alguien SABE???

Hola José:

Por el código deduzco que mi ejemplo te ha sido de utilidad.
Me quedé esperando tu respuesta.

Para tratar el error solo debes utilizar la cláusula ON ERROR RESUME NEXT.

Saludos.

Pablo O. Abbate
MCDBA - MCAD - MCSD - MCT
www.auladat.es

"Jose Cabeza" escribió en el mensaje
news:07cb01c3c3cc$02c55f60$
Muy buenas.

Tengo un DTS que me hace lo siguiente:
Lee un campo de una base de datos de origen con el nombre
de una imágen, abre el fichero del disco duro y lo
inserta en una columna del SQL server. Todo funciona
perfectamente pero si resulta que el fichero no existe en
el disco duro, o el nombre es incorrecto falla.

Alguién sabe como puedo hacer para que si el fichero no
existe en el disco duro o el nombre es erróneo, lo deje y
siga con el siguiente registro.

Adjunto el código para que se realicen las modificaciones.

img = CStr(Trim(DTSSource("imagen")))
If img <> "" Then
WGServ = "C:\MIPATH\"
urlimg = WGServ & img

Set StrStream = CreateObject "AdoDb.Stream")
StrStream.Type = 1
StrStream.Open
StrStream.LoadFromFile(urlimg)
DTSDestination("imagen") = strStream.Read
StrStream.Close
End if

Gracias de antemano.

Muy buenas Pablo.

Ante todo disculpas por no contestarte, pero cuando ví tu
respuesta la imprimí y me la llevé a casa para hacer
pruebas y hasta hoy que puedo estar otra vez con el tema
he estado desconectado.

Por cierto, acabo de probar esto y es una maravilla.
Funciona perfectamente.

Muchas gracias de nuevo y si no hablamos otra vez, que
tengas una feliz navidad.

Atentamente:

Jose cabeza

Hola José:

Por el código deduzco que mi ejemplo te ha sido de

utilidad.

Me quedé esperando tu respuesta.

Para tratar el error solo debes utilizar la cláusula ON

ERROR RESUME NEXT.

Saludos.

Pablo O. Abbate
MCDBA - MCAD - MCSD - MCT
www.auladat.es

"Jose Cabeza"

escribió en el mensaje

news:07cb01c3c3cc$02c55f60$
Muy buenas.

Tengo un DTS que me hace lo siguiente:
Lee un campo de una base de datos de origen con el nombre
de una imágen, abre el fichero del disco duro y lo
inserta en una columna del SQL server. Todo funciona
perfectamente pero si resulta que el fichero no existe en
el disco duro, o el nombre es incorrecto falla.

Alguién sabe como puedo hacer para que si el fichero no
existe en el disco duro o el nombre es erróneo, lo deje y
siga con el siguiente registro.

Adjunto el código para que se realicen las

modificaciones.

img = CStr(Trim(DTSSource("imagen")))
If img <> "" Then
WGServ = "C:\MIPATH\"
urlimg = WGServ & img

Set StrStream = CreateObject "AdoDb.Stream")
StrStream.Type = 1
StrStream.Open
StrStream.LoadFromFile(urlimg)
DTSDestination("imagen") = strStream.Read
StrStream.Close
End if

Gracias de antemano.


.