Ver Mensaje Individual
  #3 (permalink)  
Antiguo 11/08/2008, 11:47
tammander
 
Fecha de Ingreso: enero-2006
Ubicación: Torroles (Costa der Só)
Mensajes: 1.017
Antigüedad: 19 años, 3 meses
Puntos: 7
Respuesta: Problemas al Exportar de SQL Server a TXT

Hola :)

FileSystemObject (FSO) solo sirve para trabajar con archivos en modo local (en el servidor) por lo que debes poner un path completo donde se realizarán los cambios en los archivos implicados. Puedes usar server.MapPath para averiguar el path completo a partir de uno relativo.

El problema que tienes es que intentas obtener los datos del recordset de todos los campos a la vez:

txt = "INSERT INTO sf_altas_B0208_prueba(TIPO_MOV,RFC,CURP,NSS_ISSSTE ,PATERNO,MATERNO,NOMBRE,CVE_PAGADU,CVE_REPTO,FEC_N AC,ENT_NAC,SEXO,EDO_CIVIL,DOMICILIO,COLONIA,MUNICI PIO,CP,ENT_FED,TIPO_NOMB,NO_EMP,CVE_ENTRECEP,AFORE ,FEC_ING,FEC_COTIZA,CREDITO_FOVI,DIAS_COT,DIAS_INC AP,DIAS_AUSC,SDO_BAS_CRED,SDO_RCV,SDO_SAR_VIVI,APO TA_SOLIDA,IMPORTE_APORTA_SOLIDA,FUTURO,INDICA_EXCE P,FILER,RES_OP,MOT_RE1,MOT_RE2,MOT_RE3) VALUES ('" & objtabla.Fields("tipo_mov,rfc,curp,nss_issste,pate rno,materno,nombre,cve_pagadu,cve_repto,fec_nac2,e nt_nac,sexo,edo_civil,domicilio,colonia,municipio, cp,ent_fed,tipo_nomb,no_emp,cve_entrecep,afore,fec _ing2,fec_cotiza2,credito_fovi,dias_cot,dias_incap ,dias_ausc,sdo_bas_cred,sdo_RCV,sdo_SAR_VIVI,apota _solida,importe_aporta_solida,futuro,indica_excep, filer,res_op,mot_re1,mot_re2,mot_re3") & "')" & vbcrlf

Hazlo uno por uno:

txt = "INSERT INTO sf_altas_B0208_prueba(TIPO_MOV,RFC,CURP,NSS_ISSSTE ,PATERNO,MATERNO,NOMBRE,CVE_PAGADU,CVE_REPTO,FEC_N AC,ENT_NAC,SEXO,EDO_CIVIL,DOMICILIO,COLONIA,MUNICI PIO,CP,ENT_FED,TIPO_NOMB,NO_EMP,CVE_ENTRECEP,AFORE ,FEC_ING,FEC_COTIZA,CREDITO_FOVI,DIAS_COT,DIAS_INC AP,DIAS_AUSC,SDO_BAS_CRED,SDO_RCV,SDO_SAR_VIVI,APO TA_SOLIDA,IMPORTE_APORTA_SOLIDA,FUTURO,INDICA_EXCE P,FILER,RES_OP,MOT_RE1,MOT_RE2,MOT_RE3) VALUES ('" & objtabla("tipo_mov") &"','" objtabla("rfc,curp") & "','" & objtabla("nss_issste") & etc etc etc & "')" & vbcrlf


Un saludo

EDIT :
Ups, se me adelantó Myakire

NOTA:
Estamos todos hoy muy "contestones"
__________________
"Tus pecados son el estiércol sobre el que florecerán las flores de tus virtudes" - Gerald Messadié -