Vincular Delphi Con Access
Para este vamos a usar una base de datos ACCESS y componentes de sencillo uso de Delphi.
Empecemos con la base de datos:
Todo programa de facturación contiene elementos en común, como son:
Artículos, clientes, usuarios, facturas.
Asi empezaremos haciendo estas tablasdirectamente en access.
Articulos:
Clientes:
Usuarios:
Factura:
Una vez que terminemos con las tablas guardaremos nuestra base de datos en el directorio que deseemos, recordemos que lo necesitaremos para hacer la conexión con delphi.
Ya teniendo la tablas listas empezaremos con delphi, enlazando cada una y generando el código para que funcione nuestro programa.
En la segunda parteseguiremos con delphi.
Saludos
Seguimos con:
Conexión a la base de datos:
Para esto vamos a usar los componentes ADO, vamos a usar un datamodule y haremos un archivo INI que nos servirá para indicar donde esta nuestra base de datos.
Empecemos con delphi:
Generamos un nuevo proyecto, nos aparecerá un nuevo form (este sera el principal).
Vamos a File, New,data module y le damos click.
Esto nosgenerara un form DataModule para nuestro proyecto.
Vamos a la paleta ADO, seleccionamos un ADOConnection y lo colocamos en el datamodule, quedaria asi:
Le damos doble click a nuestro ADOConnection y nos saldrá esta pantalla:
Ahora presionamos el botón Build y nos saldra esta otra pantalla:
Una vez con esta pantalla seleccionamos la opción marcada Jet 4 y le damos next, nos saltara la otrapestaña:
Seleccionamos la primera opción y Presionamos el botón con tres puntos, con este buscaremos donde guardamos nuestra base de datos.
Una vez ubicada, la seccionamos y presionamos el boton Test connection, si es correcta nos saldra un mensaje indicandolo.
Con esto ya tenemos la primera parte lista, ya hicimos la conexion con nuestra base de datos.
Seguimos.....
Seguimos con laconexión:
Como en este caso usaremos un archivo INI para la conexion necesitamos añadir al uses del datamodule el uses IniFiles.
para esto seleccionemos el unit del datamodule y le añadimos dicho uses, quedaria asi:
Código DELPHI
1. -------------------------------------------------
uses
2. -------------------------------------------------
SysUtils, Classes, DB, IniFiles, ADODB,Forms, Dialogs;
Nos posicionamos en el datamodule en la parte blanca y le damos doble click, esto nos generara el evento DataModuleCreate.
Ahora pondremos este cogido que es el que nos servirá para que el archivo INI nos encuentre la base de datos:
Código DELPHI
1. -------------------------------------------------
procedure TDataModule1.DataModuleCreate(Sender: TObject);
2.-------------------------------------------------
Var BaseDeDatos, ConStr : String;
3. -------------------------------------------------
IniFile: TIniFile;
4. -------------------------------------------------
begin
5. -------------------------------------------------
// Obtiene la ruta y el nombre de la base de datos
6. -------------------------------------------------
IniFile:= TIniFile.Create(ExtractFilePath(Application.ExeName)+'BDatos.ini');
7. -------------------------------------------------
BasedeDatos := IniFile.ReadString('BD','Path','');
8. -------------------------------------------------
If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
9. -------------------------------------------------
ConStr :='Provider=Microsoft.Jet.OLEDB.4.0;'+
10. -------------------------------------------------
'Data Source='+BaseDeDatos+';'+
11. -------------------------------------------------
'Persist Security Info=False;'+
12. -------------------------------------------------
'Jet OLEDB:Database Password=admin';
13. -------------------------------------------------...
Regístrate para leer el documento completo.