• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Read FoxPro DBF Structure

Read FoxPro DBF Structure

Read FoxPro DBF Structure

Rate Read FoxPro DBF Structure

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Add Microsoft DAO 3.6 Object Library from your (Project -> References)

'Step 2 
 Create Listview fields 
Dim addinfo As ListItem

ListView1.View = lvwReport
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add , , "Field:", ListView1.Width / 14
ListView1.ColumnHeaders.Add , , "Name:", ListView1.Width / 6
ListView1.ColumnHeaders.Add , , "Type:", ListView1.Width / 8.5
ListView1.ColumnHeaders.Add , , "Start:", ListView1.Width / 13
ListView1.ColumnHeaders.Add , , "End:", ListView1.Width / 13
ListView1.ColumnHeaders.Add , , "Length:", ListView1.Width / 11

'Step 3
Call Function

call ReadDBFlayout("C:\TEMP","DBF_FILE) 'less then 9 Character only

Function ReadDBFlayout(byval path as string, file as string)
Dim i As Long
Dim Pos_S  As Long
Dim Pos_E  As Long
Dim Lpos As Long

On Error GoTo ErrKill
      
   
   Set dbd = OpenDatabase(Path, False, False, "dBASE IV;")
   Set dbf = dbd.OpenRecordset(FILE)
   

      ListView1.ListItems.Clear
   
   
   For i = 0 To dbf.Fields.Count - 1
      
       If Val(i) = 0 Then
          Pos_S = 1
          Pos_E = dbf.Fields(i).Size
       Else
          Pos_S = Pos_E + 1
          Pos_E = Pos_E + dbf.Fields(i).Size
       End If
        
  
Set addinfo = ListView1.ListItems.Add(, , CStr(i) + 1)
    addinfo.SubItems(1) = dbf.Fields(i).Name
    addinfo.SubItems(2) = dbf.Fields(i).Type
    addinfo.SubItems(3) = CStr(Pos_S)
    addinfo.SubItems(4) = CStr(Pos_E)
    addinfo.SubItems(5) = dbf.Fields(i).Size
       
       Lpos = Lpos + dbf.Fields(i).Size - 2
              Next i
   
dbd.Close

Exit Function


ErrKill:
    Exit Function  
Function