Hola a todos
Quisiera que me ayudaran, paso una tabla de una base de datos a un archivo de texto, con el siguiente codigo:
Option Explicit
Private Sub cmdExportar_Click()
Dim fnum As Integer
Dim archivo As String
Dim rs As Recordset
Dim campos As Integer
Dim campo_ancho() As Integer
Dim campo_valor As String
Dim i As Integer
Dim contador As Integer
On Error GoTo miscerror
If deRenta.cnRenta.State = adStateClosed Then
deRenta.cnRenta.Open
End If
fnum = FreeFile
archivo = Me.txtArchivo.Text
Open archivo For Output As fnum
Set rs = New ADODB.Recordset
rs.Open "Select Nombre, Nit, Valor, Renta from Movimientos", deRenta.cnRenta, adOpenDynamic, adLockReadOnly
campos = rs.Fields.Count
Do While Not rs.EOF
contador = contador + 1
For i = 0 To campos - 1
campo_valor = rs.Fields(i).Value
Print #fnum, campo_valor;
Next i
Print #fnum, ""
rs.MoveNext
Loop
Close fnum
MsgBox Format$(contador) & " Registros Procesados"
Exit Sub
miscerror:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
End Sub
Private Sub cmdSalir_Click()
Unload Me
End Sub
Private Sub Form_Load()
Me.txtBase.Text = App.Path & "Renta.mdb"
Me.txtArchivo.Text = App.Path & "Renta.txt"
End Sub
y obtengo el archivo de texto pero los campos unidos, yo quisiera por decirles algo que el nombre tuviera un ancho de 50 caracteres, luego un numero de identificacion de 10 caracteres y asi sucesivamente, es de decir que atraves de codigo yo le diga en que posicion van a caer los campos, pero no se como se hace, mucho les agradecere me ayuden, Gracias a todos:gracias:
Erasmo:adios:
