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

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

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 tres parámetros:

el primero es el recordset que previamente, al presionar un command1 se llena con una consulta
el segundo parámetro es el Path del archivo de texto donde se creará.
Por último se especifica un caracter delimitador para los campos en el archivo, por ejemplo VbTab.

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 Dim cn As New ADODB.Connection Dim rst As New ADODB.Recordset 'Función que exporta el recordset a un archivo de texto Public Function Exportar_Recordset( _ rs As Object, _ Optional FullPath As String, _ Optional sDelimiter As String = " ") As Boolean Dim iFreeFile As Integer Dim Ncampo As Long, i As Long, campo As ADODB.Field On Error GoTo errSub: iFreeFile = FreeFile Open FullPath For Output As #iFreeFile With rs Ncampo = .Fields.Count - 1 On Error Resume Next ' Primer registro .MoveFirst On Error GoTo errSub 'Recorremos campo por campo y los registros de cada uno Do While Not .EOF For i = 0 To Ncampo 'Asigna el objeto Field Set campo = .Fields(i) If verificartypeCampo(campo) Then If i < Ncampo Then 'Escribe el campo y el valor Print #iFreeFile, campo.Name & ":" & _ campo.Value & sDelimiter; Else 'Escrobe el nombre del campo y el valor Print #iFreeFile, campo.Name & ": " & campo.Value End If End If Next 'Siguiente registro .MoveNext Loop End With Exportar_Recordset = True 'Cierra el recordset rst.Close errSub: On Error Resume Next Close #iFreeFile End Function ' Si el campo es nulo ( binario, tipo desconocido etc..) _ lo asume como un vbnullstring para que no genere error Private Function verificartypeCampo(Elcampo As ADODB.Field) As Boolean If IsObject(Elcampo.Value) Then verificartypeCampo = False Select Case Elcampo.Type Case adBinary, adIDispatch, adIUnknown, adUserDefined verificartypeCampo = False Case Else verificartypeCampo = True End Select End Function Private Sub Command1_Click() Dim cadena As String 'Cadena de conexión cadena = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\bd1.MDB;Persist " _ & "Security Info=False" 'Abre la base de datos cn.Open cadena 'Abre el recordset rst.Open "SELECT * FROM tabla1", cn, adOpenKeyset, adLockOptimistic 'Le envia 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 cn.Close End Sub

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb