Sección de códigos , trucos y ejemplos para visual basic

141 - Exportar un Recordset ADO a un archivo de texto

<Volver> - Anterior - Siguiente

Este ejemplo recorre mediante un bucle los campos de una base de datos Access y va grabando en un archivo de texto los datos de un Recordset de tipo ADO

La función que exporta los datos se llama Exportar_Recordset.

Esta tiene cuatro parámetros:

rst : El primero es el recordset que previamente, al presionar un command1 se llena con una consulta. en este caso selecciona la tabla clientes de la base de datos nWind de vb.
sFileName: El segundo parámetro es el Path del archivo de texto donde se creará.
sDelimiter: Caracter delimitador para los campos en el archivo, por ejemplo VbTab.
bPrintField: Por último se especifica un valor Boolean para indicar si en el archivo de texto, se incluye el nombre del campo junto al valor.

Controles y referencias

Incluir la referencia a Microsoft Activex Data Objects para poder utilizar ADO.
Agregar un Command1, y dentro del Click del Command1, especificar el ConnectionString , la consulta Sql, y el path del archivo de texto.

Código en un formulario

Option Explicit ' -- Variables para la conexión y el recordset Private cn As New ADODB.Connection Private rst As New ADODB.Recordset ' -------------------------------------------------------------------------------- ' \\ -- Función que exporta el recordset a un archivo de texto ' -------------------------------------------------------------------------------- Public Function Exportar_Recordset( _ rs As Object, _ Optional sFileName As String, _ Optional sDelimiter As String = " ", _ Optional bPrintField As Boolean = False) As Boolean Dim iFreeFile As Integer Dim iField As Long Dim i As Long Dim obj_Field As ADODB.Field On Error GoTo error_handler: Screen.MousePointer = vbHourglass ' -- Otener número de archivo disponible iFreeFile = FreeFile ' -- Crear el archivo Open sFileName For Output As #iFreeFile With rs iField = .Fields.Count - 1 On Error Resume Next ' -- Primer registro .MoveFirst On Error GoTo error_handler ' -- Recorremos campo por campo y los registros de cada uno Do While Not .EOF For i = 0 To iField ' -- Asigna el objeto Field Set obj_Field = .Fields(i) ' -- Verificar que el campo no es de ipo bunario o un tipo no válido para grabar en el archivo If isValidField(obj_Field) Then If i < iField Then If bPrintField Then ' -- Escribir el campo y el valor Print #iFreeFile, obj_Field.Name & ":" & obj_Field.Value & sDelimiter; Else ' -- Guardar solo el valor sin el campo Print #iFreeFile, obj_Field.Value & sDelimiter; End If Else If bPrintField Then ' -- Escribir el nombre del campo y el valor de la última columna ( Sin delimitador y sin punto y coma para añadir nueva línea ) Print #iFreeFile, obj_Field.Name & ": " & obj_Field.Value Else ' -- Guardar solo el valor sin el campo Print #iFreeFile, obj_Field.Value End If End If End If Next ' -- Mover el cursor al siguiente registro .MoveNext Loop End With ' -- Cerrar el recordset rst.Close Exportar_Recordset = True Screen.MousePointer = vbDefault Close #iFreeFile Exit Function error_handler: On Error Resume Next Close #iFreeFile rst.Close Screen.MousePointer = vbDefault End Function ' ---------------------------------------------------------------------------------------------- ' -- Si el campo es nulo ( binario, o tipo desconocido etc..) devuelve False para no añadir el dato ' ---------------------------------------------------------------------------------------------- Private Function isValidField(obj_Field As ADODB.Field) As Boolean With obj_Field On Error GoTo error_handler Select Case obj_Field.Type Case adBinary, adIDispatch, adIUnknown, adUserDefined isValidField = False ' -- Campo válido Case Else isValidField = True End Select End With Exit Function error_handler: End Function ' ---------------------------------------------------------------------------------------------- ' -- Si el campo es nulo ( binario, o tipo desconocido etc..) devuelve False para no añadir el dato ' ---------------------------------------------------------------------------------------------- Private Sub Command1_Click() Dim cadena As String ' -- Cadena de conexión cadena = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Archivos de programa\Microsoft Visual Studio\VB98\nwind.MDB;Persist Security Info=False" ' -- Abrir base de datos cn.Open cadena ' -- Abrir el recordset rst.Open "SELECT * FROM clientes", cn, adOpenKeyset, adLockOptimistic ' -- Enviar el recordset, y el path del archivo donde se creará y el ' -- delimitador en este caso un tabulador con la constante VbTab Call Exportar_Recordset(rst, "c:\archivo.txt", vbTab) ' -- Cierra la Base de datos If cn.State = adstateopen Then cn.Close End Sub ' --------------------------------------------------------------------------------- ' \\ -- Cerrar la base de datos y el recordset al finalizar ' --------------------------------------------------------------------------------- Private Sub Form_Unload(Cancel As Integer) If Not rst Is Nothing Then If rst.State = adstateopen Then rst.Close Set rst = Nothing End If If Not cn Is Nothing Then If cn.State = adstateopen Then cn.Close Set cn = Nothing End If End Sub

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb