Red de conocimiento informático - Problemas con los teléfonos móviles - vb exportar archivo txt desde el acceso

vb exportar archivo txt desde el acceso

ADO debería usar esto y luego iterar a través del conjunto de registros y luego guardarlo en un archivo de texto usando la declaración abierta de VB, la función genérica a continuación.

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

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.