exportar tabla a texto

efrencli
25 de Agosto del 2004
Me gustaría saber como puedo exportar los datos de una tabla de una base de datos de access 2000 a un archivo de texto u otro para luego poder importar los datos que contienen ese archivo a otra tabla tambien en access 2000 GRACIAS

semperfimxl
25 de Agosto del 2004
Si no tiene que ser especificamente a un archivo de texto, checate entonces este tema:

http://www.programacion.net/foros/32/msg/140252/

Solid Snake
25 de Agosto del 2004
Private Sub Command1_Click()
Dim fn, Cadena, archivo As String
Dim rsord As New ADODB.Recordset
Dim H, i, j, k, l As Integer
Dim campo As Variant

fn = "a:Base.txt"
'(Aqui se coloca la ruta del archivo donde va a ir con el nombre Ej a:tabla.txt
Cadena = "Select * from " & cmb_serv.Text
rsord.Open Cadena, conexion
l = 0
j = 0
H = 1
While j < 4
archivo = archivo & ";" & rsord.Fields(j).Name '
j = j + 1
Wend

Open fn For Append As H
Print #H, archivo
Close H
archivo = ""
i = 1
k = 0

While Not rsord.EOF
i = i + 1
While k < j

'para evitar el error 94 se coloca un vacio junto al campo si es nulo se convierte en
'espacio en blanco
archivo = archivo & ";" & rsord(k)
k = k + 1

Wend

Open fn For Append As H
Print #H, archivo
Close H
k = 0
archivo = ""
rsord.MoveNext
MsgBox "Exportacion Finalizada"
Wend
End Sub



espero que te sirva te lo envia a un texto separado por punto y coma