Obtener Estructura Encabezado DBF Desde Visual Basic .Net

A continuación les traigo una pequeña clase que les permitirá obtener los siguientes datos del encabezado de un archivo DBF.

  •  version (Byte)
  •  updateYear (Byte)
  •  updateMonth (Byte)
  •  updateDay (Byte)
  •  numRecords (Int32)
  •  headerLen (Int16)
  • recordLen (Int16)
  • reserved1 (Int16)
  • incompleteTrans (Byte)
  • encryptionFlag (Byte)
  • reserved2 (Int32)
  • reserved3 (Int64)
  • MDX (Byte)
  • language (Byte)
  • reserved4 (Int16)

 
Referencias:

Imports System.IO.Path
Imports System.IO
Imports System.Runtime.InteropServices

Modo de uso

Espero sea de su utilidad y recuerden ante cualquier consulta dejen sus comentarios.

Saludos

CC BY-NC-ND 4.0 Obtener Estructura Encabezado DBF Desde Visual Basic .Net by QualityInfoSolutions is licensed under a Creative Commons Attribution-NonCommercial-NoDerivatives 4.0 International License.

You may also like...

6 Responses

  1. Ruben dijo:

    Hola amigo me podrias ayudar ya que me sale error
    ‘Dim br As BinaryReader = New BinaryReader(File.OpenRead(dbfFile))’
    exactamente en la variable dbFIle

  2. Ruben dijo:

    Lo que sucede es que estaba tratando de pegar el codigo
    Dim directorio As String = System.IO.Path.GetDirectoryName(fichero.Text)
    desde la variable directorio, pero me di cuenta que sale un error por las “”

    La verdad Todavia no entiendo bien como puedo sacar la estructura como presentarlo en un LIsBox o guardarlo en un Txt
    estoy intentandolo pero no lo logro

    Si puedes ayudarme con el codigo adicional estaria agradecido.

    Saludos

    • Si vez en el ejemplo debes llamarlo de la siguiente manera.

      Dim header As New Fox.DBFHeader
      header = Fox.HeaderDBF(“C:\Prueba.DBF”)

      y si quieres pasarlo a un listbox, podría ser utilizando un for each y agregando uno o todos los registros, recuerda que este método recupera una estructura con varios datos entre ellos version , language , numRecords y headerLen.

      entonces puedes hacer lo siguiente

      For Each h in header

      lista.Items.Add(“version: ” + h.version + ” Tipo: ” + h.language)

      Next

      Saludos

  3. Ruben dijo:

    Muchas Gracias Victor.

  4. David Sanchez Rivera dijo:

    compañero necesito una ayuda, quiero vaciar los datos de una tabla dbf a una tabla mysql en vb .net

Agregar un comentario

Su dirección de correo no se hará público. Los campos requeridos están marcados *

Contáctenos