'***************************************************************************************
' Módulo     : frmFox
' Fecha/Hora : 13/08/2002 16:20
' Autor      : Jairo Hernandez
' Propósito  : Ejemplo de conexion a una base de datos de visual fox
'
' Para cualquier comentario escribe a jairos@gmx.net
'
' esto es via ado, y el este ejemplo solo accede a una tabla y los registros
' recuperados los muestra en una grilla

'***************************************************************************************
Option Explicit

Private Sub Form_Load()
 Dim AdoCnn As ADODB.Connection
 Dim AdoRst As ADODB.Recordset
 
 
   On Error GoTo Form_Load_Error
   
' Crear el objeto connection
 Set AdoCnn = New ADODB.Connection
 With AdoCnn
    ' para que funcione  correctamente tienes que darle la ruta (solo la ruta) de tu base de datos tu DBC
    ' o sea cambia la ruta C:\Suragroh\Planillas\ que es lo que yo tengo en mi pc por la que tu tienes en tu pc
     .ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=" & _
                                " Driver={Microsoft FoxPro VFP Driver (*.dbf)};UID=;SourceDB= " & App.Path & "\;SourceType=DBF;Exclusive=No;BackgroundFetch" & _
                                " =Sí;Collate=Machine;Null=Sí;Deleted=Sí;"
     .Open
 End With
 
 ' Crear el objeto recordset
 Set AdoRst = New ADODB.Recordset
 With AdoRst
     .ActiveConnection = AdoCnn
     .CursorLocation = adUseServer
    ' .CursorType = adOpenDynamic
     .LockType = adLockOptimistic
     .Source = "Select * From Fincas" ' aqui pon una sentencia o tabla de tu base
     .Open
 End With

Set Grilla.DataSource = AdoRst

   On Error GoTo 0
   Exit Sub

Form_Load_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") en procedimiento Form_Load de Formulario frmFox"

End Sub

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)