Visual Basic - Exportar una tabla a un fichero de texto

Life is soft - evento anual de software empresarial
 
Vista:

Exportar una tabla a un fichero de texto

Publicado por Esperanza (38 intervenciones) el 21/04/2009 14:49:38
Hola, necesito generar un fichero de texto a partir de una tabla respetando el tamaño de los campos, es decir, si el campo Apellidos es de 50 caracteres y ocupo 25, deben aparecer 25 espacios en blanco en el fichero de texto antes del siguiente campo.

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Exportar una tabla a un fichero de texto

Publicado por Manuel Vallejos (15 intervenciones) el 21/04/2009 16:24:18
Esperanza

Podrías recuperar en un recordset los datos de tu tabla.
Cada Fields de tu recordset, tiene como dato adicional, la propiedad DefinedSize.
Ese dato te va a servir para que, desde Vb, tomes el contenido de un campo y lo rellenes con los espacios

Por ejemplo

Valor = Left(R.Fields(0).Value & String(R.Fields(0).DefinedSize," "),R.Fields(0).DefinedSize)

Dentro de un bucle for, desde 0 hasta R.Fields.Count - 1, formas ese valor y lo vas escribiendo en tu archivo

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Exportar una tabla a un fichero de texto

Publicado por Esperanza (38 intervenciones) el 22/04/2009 08:37:11
Muchas gracias. Aunque yo me refería a algo más automático, como si estuviera exportando desde access a txt.

De todos modos, muchas gracias. Lo intentaré como dices.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Exportar una tabla a un fichero de texto

Publicado por daniel (145 intervenciones) el 22/04/2009 21:20:52
Option Explicit
Dim Cn As connection
Dim RS As Recordset
Private Type migrador
Apellidos As String * 50
nombres As String * 25
End Type
Dim m As migrador
Private Sub Form_Load()
On Error GoTo AE
Set Cn = New connection
Set RS = New Recordset
Cn.Open "AAAA"
RS.Open "SELECT Apellidos, Nombres FROM Tabla", db
If RS.bof = False And RS.EOF Then
Open "c:Fichero.txt" For Output As #1
Do Until RS.EOF = True
m.Apellidos = RS("Apellidos").Value
m.nombres = RS("Nombres").Value
Print #1, m.Apellidos, m.nombres
RS.movenext
Loop
Close #1
Exit Sub
AE:
MsgBox Err.Description, vbCritical, Err.Number
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Exportar una tabla a un fichero de texto

Publicado por Esperanza (38 intervenciones) el 23/04/2009 13:47:43
Muchas gracias. Imaginaba que había algo así pero no sabía como buscar.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar