La Web del Programador: Comunidad de Programadores
 
    Pregunta:  8245 - EXPORTAR RECORDSETS A UN ARCHIVO
Autor:  julio cesar FONTANILLA IGIRIO
hola necesito urgentemente saber como exporto un recordset a un archivo txt, el cual extrae de una consulta alrededor de 15 campos; intento exportarlo con las siguientes instrucciones:

datareport1.ExportFormats.Add Key:="REPORTE", FormatType:=rptFmtText, FileFormatString:="PAGOS (*.TXT)", FileFilter:="*.TXT", Template:=STRTEMPLATE

datareport1.ExportReport FORMATINDEXORKEY:="REPORTE", FileName:="d:\temporal\pagos.txt", SHOWDIALOG:=False, RANGE:=RPTRANGALLPAGES

pero me sale un mensaje diciendo que el ancho del informe es mas grande que el ancho del papel. como puedo solucionar este problema.

  Respuesta:  alice queen
Hola julio,

yo en lugar de exportar, me crearía un archivo de texto y escribiría en él, haría algo así:

MiArchivo = \"nombre.txt\"
Open MiArchivo for output as # 1
do while MiRecordset.eof = false
Milinea = (acá concatená los campos del recordset)
MiRecordset.movenext
print #1, MiLinea
loop
close #1

espero que te sirva, cualquier cosa a las órdenes.

Alice