Accessing VFP 8 tables

External Since: May 21, 2004 Posts: 8

I posted this in the VFP area but I think it may be more for this area.
How do you access Visual FoxPro 8 files in VB 5 or 6. The ODBC drivers
do not seem to work so I downloaded a new vfpoledb.dll file. It did
not help. It seems I need to use OLE DB but I've never used it before.
So before I get on the learning curve for something that may not work,
can anyone point me in the right direction?

External Since: Oct 02, 2003 Posts: 32

In news: 4010AD52-2884-4F90-8DB0-CA1A97C3A727 DeleteThis @microsoft.com,
RichG <anonymous DeleteThis @discussions.microsoft.com> wrote:
> I posted this in the VFP area but I think it may be more for this
> area. How do you access Visual FoxPro 8 files in VB 5 or 6. The ODBC
> drivers do not seem to work so I downloaded a new vfpoledb.dll file.
> It did not help. It seems I need to use OLE DB but I've never used
> it before. So before I get on the learning curve for something that
> may not work, can anyone point me in the right direction?

Hi Rich,

You can access VFP files via ADO and OLE DB the same way you'd use those
techniques to access any other files. Here's an example that accesses table
TestTable1, belonging to Test.dbc.

Sub Main()
Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset

con.ConnectionString = _
"Data Source=""C:\MY DOCUMENTS\VISUAL FOXPRO
PROJECTS\TEST.DBC"";" & _
"Provider=""VFPOLEDB.1"";"
con.CursorLocation = adUseClient
con.Mode = adModeRead
con.Open

Set rst = con.Execute("SELECT TestTable1.Field1, " & _
"TestTable1.Field2 From TestTable1")
rst.MoveFirst
MsgBox (rst.Fields("Field2").Value) ' "One"

End Sub

--
Cindy Winegarden MCSD, Microsoft Visual FoxPro MVP
cindy.winegarden DeleteThis @mvps.org <a style='text-decoration: underline;' href="http://www.cindywinegarden.com" target="_blank">www.cindywinegarden.com</a>