How to link FoxPro Table with VB

achour · August 22nd, 2008, 09:03 PM

Hi all,

Could you please help me in finding a way to connect to a foxpro table from VB, my table is with .dbf extension and not .dbc. Also I am trying to understand how to use the: dataAdapter, DataSet and GridView to can display all the records of that table inside a VB Windows form.

Thanks.

debasisdas · September 21st, 2008, 12:30 PM

i believe you are not using VB 6.0

Regards
Debasis

klen_ · September 14th, 2009, 09:26 AM

VFPOLEDB.1

Code:

    Dim sFolder As String:          sFolder = App.Path
    Dim sTable_ As String:          sTable_ = "base_fox"    ' base_fox.dbf
    
    Dim cnn As ADODB.Connection:    Set cnn = New ADODB.Connection
    Dim rst As ADODB.Recordset:     Set rst = New ADODB.Recordset

    cnn.Provider = "VFPOLEDB.1"
    cnn.Properties("Data Source") = sFolder                 ' or   sFolder & "\" & bas_fox.dbc
    cnn.Open
    rst.Open "SELECT * FROM " & sTable_, cnn
    If Not rst.EOF Then
        MsgBox rst.Fields(0)
    End If
    
    rst.Close:  Set rst = Nothing
    cnn.Close:  Set cnn = Nothing