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

131 - Leer un archivo de texto y mostrar los datos en un control Datagrid

Contenido

Ejemplo 1
Ejemplo 2
Enlaces relacionados

Ejemplo 1

El siguiente código fuente utiliza ADO para leer un archivo de texto y luego visualizarlo en un control DataGrid.

DataGrid cargador con un txt

vista del ejemplo en visual basic

Al abrir el recordset se le debe especificar en la cláusula FROM el nombre del archivo de texto al cual vamos a acceder, en este caso en la cadena de conexión es Microsoft Text Driver.

Para realizar el ejemplo

hay que incluir la Referencia de ADO (Microsoft Activex Data Object ).
También colocar un archivo de texto en el App del programa y cargarle algunos datos. El archivo en este caso se llama Datos.txt
En el formulario agregar un control DataGrid llamado DataGrid1 y un Command1 para ejecutar la función Leer_Txt_con_Ado

Código en el formulario:

'Función que devuelve el recordset con los datos Private Function Leer_Txt_con_Ado() As ADODB.Recordset Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Dim conn As ADODB.Connection Set conn = New ADODB.Connection 'Cadena de conexión conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _ "DBQ=" & App.Path & ";", "", "" 'Ejecutamos el recordset pasandole el archivo de texto en la cláusula From rs.Open "select * from [datos#txt]", conn, adOpenStatic, _ adLockReadOnly, adCmdText 'eliminamos las variables Set Leer_Txt_con_Ado = rs Set rs = Nothing Set conn = Nothing End Function Private Sub Command1_Click() 'Le asignamos el Datasource del datagrid a la función que devuelve el recordset Set DataGrid1.DataSource = Leer_Txt_con_Ado End Sub Private Sub Form_Load() Command1.Caption = " Cargar Txt " End Sub

Ejemplo 2

Este otro ejemplo es similar al anterior, pero con la diferencia de que el archivo de texto, tiene los datos separados o delimitados por comas, por ejemplo el archivo podria ser algo por el estilo:

ID,Producto,Cantidad

1,Impresora Epson,12
2,scaner LG,5
3,Pentium 4,8
4,Pen Drive,55
5,Monitor LCD,4
6,Disco Duro,22
7,Memoria Ram 512 Mb,88

En la cadena de conexión se debe indicar el path donde se encuentra el archivo de texto , pero solo la ruta y no el nombre

    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
                     & "Data Source=" & App.Path & ";" _
                    & "Extended Properties='text;FMT=Delimited'"

Luego al abrir el Recordset , en la consulta SQL, se indica el nombre del archivo:

rs.Open "Select * from datos.txt ", cn, adOpenStatic

Formulario

vista del datagrid con los datos

Controles

Colocar un Datagrid
La referencia de Ado
Crear en el App.path el archivo Datos.txt

Código fuente a colocar en el formulario

Option Explicit ' variables de Ado para el rec y la conexión Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Private Sub Form_Load() ' cursor del lado del cliente cn.CursorLocation = adUseClient ' abre el archivo de texto datos.txt ubicado en el app.path cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=" & App.Path & ";" _ & "Extended Properties='text;FMT=Delimited'" ' Ejecuta la consulta sql para llenar el recordset rs.Open "Select * from datos.txt ", cn, adOpenStatic ' enlaza el recordset con el DataGrid Set DataGrid1.DataSource = rs End Sub

Nota : Si el txt no tiene los campos, establecer en la cadena de conexión el atributo HDR=NO

    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
                     & "Data Source=" & App.Path & ";" _
                    & "Extended Properties='text;HDR=NO;FMT=Delimited'"

Recursos vb - Enlaces relacionados

Exportar recordset ado a un archivo de texto csv

Buscar en Recursos vb