Visual Basic - MDB A TXT

AMIGOS: Necesito enviar una tabla de access 97 a un archivo txt, la tabla solo tiene un campo, pueden decirme como ??

Si estás utilizando ADO puedes utilizar el método GetString del objeto Recordset y una función para guardar el archivo:

Set MiRecordset = MiConexion.Execute("SELECT * FROM MiTabla")

StringToFile MiRecordset.GetString("",vbCrLF),App.Path & "\" & "MiArchivo.txt"

Public Function StringToFile(StringText As String, FileName As String) As Long
Dim hlngFile As Long
hlngFile = FreeFile
Open FileName For Binary Access Write As hlngFile
Put hlngFile, , StringText
Close hlngFile
StringToFile = FileLen(FileName)
End Function

Muy buena respuesta Cecilia eres lo maximo. Linda chica.

Si lo queres guardar para recuperarlo luego desde la aplicación

también podes agregar un adodc, conectarlo a la tabla y :

Para guardar en un archivo el recorset:

Adodc1.Recordset.Save ("Miarchivo.txt")

Y para cargarlo nuevamente utilizas el metodo Open

Nota: No tenes que guardarlo necesariamente con extensión. Yo te puse .txt , pero podes poner .doc o nada.