Buscar este blog

lunes, 16 de junio de 2014

Visual Basic .NET: Conectarse a una tabla o base de datos VFP (DBF)

Muchas veces se ha presentado la necesidad de conectarse a fuentes de datos como las de VFP, en esta oportunidad lo haremos usando Visual Basic .NET.
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.: