Visual Basic Foro
Programación => Bases de Datos => Mensaje iniciado por: fx700 en Diciembre 21, 2010, 08:28:20 pm
-
Tengo una aplicion en visual Foxpro 9 con DB en archivos .DBF y tengo que agregar un par de formularios con funciones especificas y algunos reportes y quisiera hacerlo con vb6.0 ya de Foxpro no se nada, osea que sera una aplicacion aparte.
No he logrado de ninguna manera conectarme a los archivos .DBF y menos utilizar los recordset's, algun ejemplo de conexion?
-
Private Sub Form_Load()
Data1.Connect = "dBASE 5.0;" 'CONEXXION A DBF
Data1.DatabaseName = "C:\REMU\DAEM\SEP2009" 'RUTA DE LA BD DE DBF
Data1.RecordSource = "LREM" 'NOMBRE DE LA BD DBF
End Sub
-
Hola no me funciono, dice al igual que varios ejemplos que he descargado "No se encontro el ISAM instalable".
Solo he instaldo el OLEDB ya que el ODBC driver no instala parece que el de la pagina de microsoft esta dañado.
Si alguien tiene por ahi un ejemplo se lo agradere, saludos
-
postea una base de datos DBF para que podamos analizarla, a veces es necesario encontrar los driver del odbc por ahi para que sea compatible la lectura.
-
Ahi dejo uno de los archivos DBF a los cuales quiero accederhttp://www.megaupload.com/?d=3OAT5Q8Q (http://www.megaupload.com/?d=3OAT5Q8Q) para que lo analizes.
Segun la web del guille solo se necesita el ODBC driver fox pro pero este esta dañado o algo por estilo, lo he bajo varias veces y nunca puedo instalarlo.
http://www.elguille.info/net/ADONET/acceso_ficheros_dbase_vbnet_csharp.aspx (http://www.elguille.info/net/ADONET/acceso_ficheros_dbase_vbnet_csharp.aspx)
He logrado conectarme, pero no aparece ningun registro, solo las cabeceras es decir el nombre de los campos , pero si utilizo otros archivos DBF que encontre en internet si esta todo ok, aqui los dejo http://www.megaupload.com/?d=GPXMC2KY (http://www.megaupload.com/?d=GPXMC2KY)
Dim cn As Connection
Dim rs As Recordset
Private Sub Form_Load()
Set cn = New Connection
cn.ConnectionString = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;sourceDB=C:\carpeta"
cn.CursorLocation = adUseClient
cn.Open
Set rs = New Recordset
rs.Open "select * from llantas", cn, adOpenStatic
Set DataGrid1.DataSource = rs
End Sub
saludos
-
Finalmente y con mas calma he logrado solucionar el problema utilizando correctamente el OLDB que instale, gracias al comentario de Wolf_kot.
Aqui la cadena de conexion correcta segun mi criterio por que leyo todos los ficheros(lo de fox pro9 y los otros DBF que encotre en internet)
Provider=vfpoledb;Data Source=C:\MyDataDirectory\;Collating Sequence=general;
Fuente:
http://connectionstrings.com/visual-foxpro (http://connectionstrings.com/visual-foxpro)
Saludos
-
es wolf_kof >:(, pero me alegra que allas encontrado la respuesta por ti solo, ;D.