vb exportar archivo txt desde el acceso
Función privada ExportRecordSetToFile(ByVal adoRt As Object,_
ByVal strFileName As String) As Boolean
Dim lngRecordCount As Long ' Número de registros
Dim intFieldCount As Integer 'Número de campos
DimstrFields As String 'Todos los nombres de campos
Dim i As Integer
Dim j As Long
Dim strTemp As String
Dim strRowContent As String
Con adoRt
Si .EOF y .BOF Entonces
ExportRecordSetToFile = False
Else
'// Obtener el número total de registros
lngRecordCount = .RecordCount
intFieldCount = .Fields.Count - 1
For i = 0 To intFieldCount
'// Generar FieldNameInfo
strFields = strFields & "," & .Fields(i).Name p>
Siguiente
'// Elimina el primero,
strFields = Mid$(strFields, 2)
For j = 1 To lngRecordCount
strTemp = ""
For i = 0 To intFieldCount
'// Generar información del valor del campo
strTemp = strTemp & ", " & .Fields(i).
Siguiente
strRowContent = strRowContent & Mid$(strTemp, 2) & vbCrLf
.MoveNext
Siguiente paso
j = FreeFile
'//Escribir en el archivo
'//Generar información del valor del campo
'/ / Generar información del valor del campo
strTemp = strTemp & "," & .p> '// Escribir archivo
Abrir strFileName para generar salida como #j
Imprimir # j, strFields & vbCrLf & strRowContent
Cerrar #j
.ExportRecordSetToFile = True
Finalizar si
Si .State = adStateOpen Luego
.Cerrar
Finalizar si
Terminar con
Finalizar función
Finalizar función
Ingrese el
e archivo.