Para tal fin nos hicimos con una copia del archivo de centros poblados del Perú, son alrededor de 18700 registros.
Bueno, empecemos creando un nuevo proyecto de consola y lo llamaremos ConectarseDBF
Ahora, por comodidad, agregamos una carpeta "Datos" al proyecto y copiamos el archivo de centros poblados "CCPP.dbf" a dicha carpeta, estableciendo en las propiedades "Copiar si es posterior"
Y ponemos el siguiente código:
Imports System.IO Imports System.Data.Common Module Module1 Sub Main() Dim sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path.Combine(My.Application.Info.DirectoryPath, "Datos") & ";Extended Properties=dBASE IV;" Using dbConn As New System.Data.OleDb.OleDbConnection(sConn) dbConn.Open() Dim comando = dbConn.CreateCommand comando.CommandText = "Select * from ccpp" Dim da As New OleDb.OleDbDataAdapter(comando) Dim dt As New DataTable da.Fill(dt) Mostrar(dt.Rows) dbConn.Close() End Using End Sub Private Sub Mostrar(filas As DataRowCollection) Console.WriteLine(Format("Hay {0} Registros", filas.Count)) Console.WriteLine("Mostrando los 10 primeros") For i = 0 To 9 For Each columna In filas(i).ItemArray Console.Write(columna & vbTab) Next Next Console.ReadKey() End Sub End ModuleEjecutamos y nos sale:
No hay comentarios.:
Publicar un comentario