Conectar una BD en Fox 6.0 desde VB 6.0

[Raman]

Estimados amigos nuse si estare en el lugar correcto pero necesito hacer una coneccion desde vb 6.0 a ua base de datos hecha en Fox Pro 6.0 ,,,, si hubiesen muchas formas.. megustaria qme la diesen a saber ...
Mucha gracias ...

[onlykfk]

El metodo mas usado por un servidor (o sea, yo) es mediante en uso de la librerias de ADODB 2.0 o mayor...

Agregas la referencia a tu proyecto y en el codigo... mas o menos así

Código:

'Ejemplo de consulta a BD en FoxPro
Dim cn as New ADODB.Connection
Dim rs as ADODB.RecordSet
Cn.Open("Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\mydbpath;")
Set rs = Cn.Execute("Select * from TablaDBF ...")
If Not rs.EOF Then
    rs.MoveFirst
    While not rs.eof
        for i = 0 to rs.Fields.Count - 1
            Debug.print rs.fields(i).Name & ": " & rs.Fields(i).Value
        next
        rs.MoveNext
    Loop
Else
    Debug.Print "NO HAY DATOS EN LA CONSULTA"
End If
rs.Close
Cn.Close
Set rs = Nothing
Set Cn = Nothing

Cualkier duda, me avisas.

De entrada, espero ke te sea util mi ayuda

Saludos