Alguien SABE???

16/12/2003 - 12:59 por Jose Cabeza | Informe spam
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.
 

Leer las respuestas

#1 Pablo O. Abbate
16/12/2003 - 13:12 | Informe spam
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.

Preguntas similares