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 Module
Ejecutamos y nos sale:


No hay comentarios.:
Publicar un comentario