Abrir fichero DBF en Visual Basic mediante código
Publicado por Víctor (2 intervenciones) el 13/10/2008 23:02:23
Espero que alguien me pueda ayudar. A continuación planteo la consulta:
Actualmente soy capaz de abrir y leer datos de un fichero tipo "DBF" (DBASE IV) sin ningún problema realizando los siguientes pasos:
1º Creo una conexión ODBC.
En Windows XP, ir a Inicio-Panel de Control-Herramientas Administrativas- Orígenes de datos (ODBC)-Agregar.
Selecciono Microsoft dBaseDriver (*.dbf) y pincho en finalizar.
A continuación le pongo un nombre a la conexión, por ejemplo "ENLACE" en el campo "Nombre del origen de datos"
En el campo versión selecciono "DBASE IV"
Y, por último, desmarco la opción "usar directorio actual". Al desmarcar se me activa el botón seleccionar directorio y selecciono la carpeta donde está el fichero tipo DBF que quiero abrir. Por ejemplo en el directorio C:CARPETA.
2º En visual Basic creo los siguientes controles:
Microsoft Ado Data Control 6.0 (OLEDB)
Microsoft DataGrid Control 6.0 (OLEDB)
3º Establezco las siguientes propiedades en los controles:
Para Microsoft Ado Data Control 6.0 (OLEDB) que por defecto se denomina Adodc1:
En ConecctionString pongo DSN=ENLACE (recuerdo que ENLACE era precisamente el nombre de la conexión creada en el primer paso)
En Recordsource, dentro del apartado Command Text (SQL) pongo una cadena de texto con las instucciones tipo SQL que deseo. Por ejemplo, para abrir todos los campos del fichero llamado fichero.dbf coloco la siguiente instrucción:
SELECT * FROM FICHERO
Nota: Importante que el fichero tipo DBF que queremos abrir debe estar grabado dentro de la carpeta o directorio que selecionamos en la conexión creada en el pimer paso. Es decir, para este ejemplo en el directorio C:CARPETA.
Por otra parte, en el Micrrosoft DataGrid Control 6.0 (OLEDB) que por defecto se denomina DataGrid1:
En la propiedad Datasource pongo Adodc1 que es precisamente el nombre del control Data
Siguiendo estos pasos funciona a la perfección y se abre el fichero DBF mostrando en el DataGrid todos los datos que hemos solicitado. Luego es seguir investigando para poder seleccionar determinados campos, darle formato a las columnas, etc...y hacer uno lo que quiera con los datos.
Sin embargo, desearía poder realizar todo a través de código en lugar de a través de diseño y propiedades. ¿Alguien tiene la solución?.
Es decir, ¿sabe alguien como abrir un fichero DBF a través de código en Visual Basic mediante los controles Adodc1 y Datagrid1. Me es indiferente que yo tenga que crear la conexión ODBC aunque no estaría de más que se pudiese hacer de otro modo.
Espero, en caso contrario, por lo menos haber ayudado a aquellos que no sabían como abrir un fichero DBF a través de Visual Basic de una manera que yo creo que es muy sencilla.
Saludos.
Actualmente soy capaz de abrir y leer datos de un fichero tipo "DBF" (DBASE IV) sin ningún problema realizando los siguientes pasos:
1º Creo una conexión ODBC.
En Windows XP, ir a Inicio-Panel de Control-Herramientas Administrativas- Orígenes de datos (ODBC)-Agregar.
Selecciono Microsoft dBaseDriver (*.dbf) y pincho en finalizar.
A continuación le pongo un nombre a la conexión, por ejemplo "ENLACE" en el campo "Nombre del origen de datos"
En el campo versión selecciono "DBASE IV"
Y, por último, desmarco la opción "usar directorio actual". Al desmarcar se me activa el botón seleccionar directorio y selecciono la carpeta donde está el fichero tipo DBF que quiero abrir. Por ejemplo en el directorio C:CARPETA.
2º En visual Basic creo los siguientes controles:
Microsoft Ado Data Control 6.0 (OLEDB)
Microsoft DataGrid Control 6.0 (OLEDB)
3º Establezco las siguientes propiedades en los controles:
Para Microsoft Ado Data Control 6.0 (OLEDB) que por defecto se denomina Adodc1:
En ConecctionString pongo DSN=ENLACE (recuerdo que ENLACE era precisamente el nombre de la conexión creada en el primer paso)
En Recordsource, dentro del apartado Command Text (SQL) pongo una cadena de texto con las instucciones tipo SQL que deseo. Por ejemplo, para abrir todos los campos del fichero llamado fichero.dbf coloco la siguiente instrucción:
SELECT * FROM FICHERO
Nota: Importante que el fichero tipo DBF que queremos abrir debe estar grabado dentro de la carpeta o directorio que selecionamos en la conexión creada en el pimer paso. Es decir, para este ejemplo en el directorio C:CARPETA.
Por otra parte, en el Micrrosoft DataGrid Control 6.0 (OLEDB) que por defecto se denomina DataGrid1:
En la propiedad Datasource pongo Adodc1 que es precisamente el nombre del control Data
Siguiendo estos pasos funciona a la perfección y se abre el fichero DBF mostrando en el DataGrid todos los datos que hemos solicitado. Luego es seguir investigando para poder seleccionar determinados campos, darle formato a las columnas, etc...y hacer uno lo que quiera con los datos.
Sin embargo, desearía poder realizar todo a través de código en lugar de a través de diseño y propiedades. ¿Alguien tiene la solución?.
Es decir, ¿sabe alguien como abrir un fichero DBF a través de código en Visual Basic mediante los controles Adodc1 y Datagrid1. Me es indiferente que yo tenga que crear la conexión ODBC aunque no estaría de más que se pudiese hacer de otro modo.
Espero, en caso contrario, por lo menos haber ayudado a aquellos que no sabían como abrir un fichero DBF a través de Visual Basic de una manera que yo creo que es muy sencilla.
Saludos.
Valora esta pregunta
0
