CONVERTIR DE *.MDB A *.TXT
Hola colegas, me gustaria saber como puedo hacer para que desde mi programa yo pueda hacer que la base de datos que utilizo (la cual esta en access *.mdb) pueda convertirla a un archivo de texto (*.txt)... Agradezco tu ayuda colega.... Suerte y muchas gracias de antemano
Hola,
pues lo tienes que hacer a pelo :-s
Abres una conexión con la bd (por ejemplo con ADO), abres un archivo de texto para escribir.
Según vas recogiendo los registros de tu bd los vas copiando en el txt....
Dim rs As New ADODB.RecordSet
Dim strSql As String
strSql = "Select * From Tabla"
rs.Open strSql, oConexion, ......
If rs.RecordCount > 0 Then
Do While Not rs.EOF
Open "C:archivo.txt" For Append As #1
Write #1, rs("Campo1") & vbTab & rs("Campo1") & vbTab & rs("Campo3") & vbCrLf
Close #1
rs.MoveNext
Loop
End If
rs.Close
SerÃa algo asà más o menos
salu2
sdemingo
pues lo tienes que hacer a pelo :-s
Abres una conexión con la bd (por ejemplo con ADO), abres un archivo de texto para escribir.
Según vas recogiendo los registros de tu bd los vas copiando en el txt....
Dim rs As New ADODB.RecordSet
Dim strSql As String
strSql = "Select * From Tabla"
rs.Open strSql, oConexion, ......
If rs.RecordCount > 0 Then
Do While Not rs.EOF
Open "C:archivo.txt" For Append As #1
Write #1, rs("Campo1") & vbTab & rs("Campo1") & vbTab & rs("Campo3") & vbCrLf
Close #1
rs.MoveNext
Loop
End If
rs.Close
SerÃa algo asà más o menos
salu2
sdemingo
