Vincular Delphi Con Access

Páginas: 10 (2374 palabras) Publicado: 20 de abril de 2012
Con este tutorial lo que se pretende es enseñar los elementos básicos para hacer un programa de facturación sencillo.
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. -------------------------------------------------...
Leer documento completo

Regístrate para leer el documento completo.

Estos documentos también te pueden resultar útiles

  • Vincular arcview con access para actualización dinámica de los mapas
  • Delphi
  • Delphi
  • Delphi
  • Delphi
  • Delphi
  • delphi
  • Delphi

Conviértase en miembro formal de Buenas Tareas

INSCRÍBETE - ES GRATIS