Foros del Web » Programación para mayores de 30 ;) » Bases de Datos General »

Sqlserver-dts

Estas en el tema de Sqlserver-dts en el foro de Bases de Datos General en Foros del Web. cree un DTS con el wizard de SQLSERVER, donde levanto un archivo de texto CSV a una tabla de mi base de datos SQL SERVER, ...
  #1 (permalink)  
Antiguo 17/05/2005, 12:56
Avatar de acervantes  
Fecha de Ingreso: agosto-2003
Ubicación: Madrid
Mensajes: 311
Antigüedad: 20 años, 8 meses
Puntos: 1
Exclamación Sqlserver-dts

cree un DTS con el wizard de SQLSERVER, donde levanto un archivo de texto CSV a una tabla de mi base de datos SQL SERVER, ej. c:\xxx.csv, en el DTS defino como variable global el archivo CSV, de tal manera que puedo ejecutar al DTS desde el visual basic con "DTSRUN ........" donde puedo cambiar el archivo CSV que yo desee.
El problema es que al ejecutar mi aplicacion vb desde otro PC da error en ejecución del DTS y es porque es necesario que exista el archivo c:\xxx.csv (que fue el que use temporalmente sólo para crear el DTS con el ayuda del wizard de SQLSERVER).
como puedo evitar la existencia del archivo c:\xxx.csv????
gracias
__________________
ACervantes

[El éxito dura hasta que alguien las caga; los errores son eternos]
  #2 (permalink)  
Antiguo 17/05/2005, 13:03
Avatar de xcars  
Fecha de Ingreso: mayo-2005
Ubicación: El Salvador
Mensajes: 753
Antigüedad: 18 años, 11 meses
Puntos: 4
proba con esta funcion para verificar si existe o no un archivo fisico en las unidades de disco, luego, si no existe, create uno vacio para evitar el error

Código:
Public Function FileExist(ByVal sFile As String) As Boolean
    'comprobar si existe este fichero
    Dim WFD As WIN32_FIND_DATA
    Dim hFindFile As Long

    hFindFile = FindFirstFile(sFile, WFD)
    'Si no se ha encontrado
    If hFindFile = INVALID_HANDLE_VALUE Then
        FileExist = False
    Else
        FileExist = True
        'Cerrar el handle de FindFirst
        hFindFile = FindClose(hFindFile)
    End If
primero das
Código:
if not FileExists("archivo.csv") then
    dim num 
    num=freefile
    Open "c:\archivo.csv" For Output As #num
    Print #num, "algo"
    Close
end if
  #3 (permalink)  
Antiguo 17/05/2005, 13:14
Avatar de acervantes  
Fecha de Ingreso: agosto-2003
Ubicación: Madrid
Mensajes: 311
Antigüedad: 20 años, 8 meses
Puntos: 1
gracias, si alguien sabe alguna forma de hacerlo en el mismo DTS, lo agradecería mucho...
__________________
ACervantes

[El éxito dura hasta que alguien las caga; los errores son eternos]
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:47.