necesito ayuda con copya de archivo

cvm
20 de Noviembre del 2003
al momento de precionar un boton necesito que una base de datos que esta en un proyecto de vb se guarde en formato de txt como lo puedo hacer


Gracias

sdemingo
20 de Noviembre del 2003
Hola,

Tendrás que leer todos registros de todas las tablas que contenga la Base de Datos mediante Recordset etc. e ir escribiéndolos en un fichero txt con el formato y la estructuración que tu quieras.

Hay varias formas de escribir en un fichero de texto, pero una de ellas es:

Sub Create_File()
Dim fso, txtfile
Set fso = CreateObject("Scripting.FileSystemObject")
Set txtfile = fso.CreateTextFile("c:testfile.txt", True)
txtfile.Write ("This is a test. ") ' Write a line.
' Write a line with a newline character.
txtfile.WriteLine ("Testing 1, 2, 3.")
' Write three newline characters to the file.
txtfile.WriteBlankLines (3)
txtfile.Close
End Sub


Un saludo
sdemingo

Jose Moure Moure
20 de Noviembre del 2003
Supongo que es de la siguiente forma,al menos ami me funciono(es algo rollo):
dim cadena as string
como supongo que utilizaras un data para enlazarte a la BD seria asi
data.recordsource="select * from nombretabla"
data.refresh
if dir(app.path & "nombre.txt"="" then (no existe lo escribimos)
open app.path & "nombre.txt" for output as #1
while not data.recordset.eof
cadena=cadena+nombre de cada campo de la tabla ten cuidado si el campo es numerico tienes que poner antes Str,es decir,str(data.recordset.fields("nombre campo")
Y asi con todos los campos
print #1,cadena &vbcrlf;(salto de line)
data.recordset.movenext
wend
close #1
exit sub
else(si ya existe ese archivo de texto)
igual que lo anterior con esta diferncia
open app.path & "/nombrearchivo.txt" for append as #1

Espero haberme explicado bien,aunque lo dudo.Suerte