Conexión con DBF, Por Favooooor!

[marcelo_afc]

Gente, buen día. Ya he intentado mil formas extraídas de la web para conectarme a la base de datos .dbf y no encuentro la manera. Alguien podría darme una mano? Es una base de datos que tiene una sola fila y varias columnas.


http://www.mediafire.com/?so35c6cstol7nc2



Saludos Muchas gracias!

[Insomnia]

Hola

Yo no he trabajado con .dbf pero prueba la siguiente cadena de conexión:

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\folder;Extended Properties=dBASE IV;User ID=Admin;Password=;

Si no funciona, siempre puedes hacerlo por ODBC.

Para ver otras cadenas de conexión como la que he copiado: http://www.connectionstrings.com/

--Saludos--

[zxs23]

El problema esta en que los archivos dBase o .dbf tienen varios formatos o versiones no recuerdo bien el tema, en fin pero eran dBase II, dBASE III, dBASE IV.

Te dejo un ejemplo para conectarte a los .dbf y .dbc(Que bienen a ser varios .dbf en un solo archivo)

Solo instala el:
VFPOLEDBSetup.msi

Código:

Dim cn As Connection
Dim rs As Recordset
Dim rs2 As Recordset

Private Sub Form_Load()
DataGrid1.MarqueeStyle = 4
DataGrid2.MarqueeStyle = 4

Set cn = New Connection

'Conexion a .DBF Foxpro
cn.ConnectionString = "Provider=vfpoledb;Data Source=" & App.Path & "/DB;Collating Sequence=general;"
cn.CursorLocation = adUseClient
cn.Open

Set rs = New Recordset
rs.Open "select * from DbaseIII", cn, adOpenStatic
Set DataGrid1.DataSource = rs

End Sub

Private Sub Command1_Click()
cn.Close
'Conexion a .DBC Foxpro
cn.ConnectionString = "Provider=vfpoledb;Data Source=" & App.Path & "/DB/Northwind/northwind.dbc;Collating Sequence=machine;"
cn.Open

Set rs2 = New Recordset
rs2.Open "select * from categories", cn, adOpenStatic
Set DataGrid2.DataSource = rs2

End Sub

Descarga aqui el ejemplo completo
http://www.megaupload.com/?d=8JW21YHD