begin process at 2010 02 09 22:05:53
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Base de Donnees

 > GESTION MS-ACCESS AVEC DELPHI 7

GESTION MS-ACCESS AVEC DELPHI 7


 Information sur la source

Note :
6,5 / 10 - par 4 personnes
6,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Base de Donnees Niveau :Débutant Date de création :08/11/2002 Date de mise à jour :08/11/2002 09:00:25 Vu / téléchargé :21 659 / 4 744

Auteur : lguez

Ecrire un message privé
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Ceci un un source qui permet de voir comment inserer, mettre à  jour ou retirer des enregistrement d'une tables MSACCESS. Il faut d'abord configurer ODBC pour qu'elle soit reconnu (voir les image fournit dans le .zip : données ODBC et données ODBC 2

Ce code est surtout util pour les débutants qui ont du mal à gérer une BD ACCESS sous Delphi.
Il à été écrit sous Delphi 7 mais cela doit marcher avec les version antérieur.

Source

  • unit testBD;
  • interface
  • uses
  • Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  • Dialogs, DB, Grids, DBGrids, DBTables, StdCtrls, ExtCtrls;
  • type
  • TForm1 = class(TForm)
  • Table1: TTable;
  • Query1: TQuery;
  • DBGrid1: TDBGrid;
  • DataSource1: TDataSource;
  • Button1: TButton;
  • BtnInsert: TButton;
  • BtnDelete: TButton;
  • BtnModify: TButton;
  • lbEd1: TLabeledEdit;
  • lbEd2: TLabeledEdit;
  • procedure Button1Click(Sender: TObject);
  • procedure BtnInsertClick(Sender: TObject);
  • procedure FormCreate(Sender: TObject);
  • procedure lbEd2Change(Sender: TObject);
  • procedure lbEd1Change(Sender: TObject);
  • procedure BtnDeleteClick(Sender: TObject);
  • procedure BtnModifyClick(Sender: TObject);
  • private
  • { Déclarations privées }
  • public
  • { Déclarations publiques }
  • end;
  • var
  • Form1: TForm1;
  • implementation
  • {$R *.dfm}
  • procedure TForm1.Button1Click(Sender: TObject);
  • begin
  • Application.Terminate;
  • end;
  • procedure TForm1.BtnInsertClick(Sender: TObject);
  • var
  • chp1, chp2 : string;
  • begin
  • Query1.SQL.Clear;
  • Query1.SQL.Add('INSERT INTO tbl (chp1, chp2)');
  • Query1.SQL.Add('VALUES (:chp1, :chp2)');
  • Query1.Params[0].AsString := lbEd1.Text;
  • Query1.Params[1].AsString := lbEd2.Text;
  • Query1.ExecSQL;
  • Table1.Refresh;
  • btnDelete.Enabled := TRUE;
  • lbEd1.Text := '';
  • lbEd2.Text := '';
  • end;
  • procedure TForm1.FormCreate(Sender: TObject);
  • begin
  • table1.Active := True;
  • BtnInsert.Enabled := FALSE;
  • BtnModify.Enabled := FALSE;
  • BtnDelete.Enabled := (table1.RecordCount <> 0);
  • end;
  • procedure TForm1.lbEd2Change(Sender: TObject);
  • begin
  • BtnInsert.Enabled := ((lbEd1.Text <> '') and (lbEd2.Text <> ''));
  • BtnModify.Enabled := ((lbEd1.Text <> '') or (lbEd2.Text <> '')) and
  • (table1.RecordCount <> 0);
  • end;
  • procedure TForm1.lbEd1Change(Sender: TObject);
  • begin
  • BtnInsert.Enabled := ((lbEd1.Text <> '') and (lbEd2.Text <> ''));
  • BtnModify.Enabled := ((lbEd1.Text <> '') or (lbEd2.Text <> '')) and
  • (table1.RecordCount <> 0);
  • end;
  • procedure TForm1.BtnDeleteClick(Sender: TObject);
  • var
  • strcle : string ;
  • begin
  • strcle := DBGrid1.Fields[0].Value;
  • Query1.SQL.Clear;
  • Query1.SQL.Add('DELETE FROM tbl');
  • Query1.SQL.Add('WHERE cle =');
  • Query1.SQL.Add(strcle);
  • Query1.ExecSQL;
  • Table1.Refresh;
  • if table1.RecordCount = 0
  • then btnDelete.Enabled := FALSE;
  • end;
  • procedure TForm1.BtnModifyClick(Sender: TObject);
  • var
  • strcle : string ;
  • begin
  • strcle := DBGrid1.Fields[0].Value;
  • Query1.SQL.Clear;
  • Query1.SQL.Add('UPDATE tbl');
  • Query1.SQL.Add('SET chp1 = :chp1, chp2 = :chp2');
  • Query1.SQL.Add('WHERE cle =');
  • Query1.SQL.Add(strcle);
  • if lbEd1.Text <> ''
  • then Query1.Params[0].AsString := lbEd1.Text
  • else Query1.Params[0].AsString := DBGrid1.Fields[1].Value;
  • if lbEd2.Text <> ''
  • then Query1.Params[1].AsString := lbEd2.Text
  • else Query1.Params[1].AsString := DBGrid1.Fields[2].Value;
  • Query1.ExecSQL;
  • Table1.Refresh;
  • lbEd1.Text := '';
  • lbEd2.Text := '';
  • end;
  • end.
unit testBD;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, DBGrids, DBTables, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Table1: TTable;
    Query1: TQuery;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Button1: TButton;
    BtnInsert: TButton;
    BtnDelete: TButton;
    BtnModify: TButton;
    lbEd1: TLabeledEdit;
    lbEd2: TLabeledEdit;
    procedure Button1Click(Sender: TObject);
    procedure BtnInsertClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure lbEd2Change(Sender: TObject);
    procedure lbEd1Change(Sender: TObject);
    procedure BtnDeleteClick(Sender: TObject);
    procedure BtnModifyClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm1.BtnInsertClick(Sender: TObject);
var
  chp1, chp2 : string;

begin
  Query1.SQL.Clear;

  Query1.SQL.Add('INSERT INTO tbl (chp1, chp2)');
  Query1.SQL.Add('VALUES (:chp1, :chp2)');

  Query1.Params[0].AsString := lbEd1.Text;
  Query1.Params[1].AsString := lbEd2.Text;
  Query1.ExecSQL;
  Table1.Refresh;
  btnDelete.Enabled := TRUE;
  lbEd1.Text := '';
  lbEd2.Text := '';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  table1.Active := True;
  BtnInsert.Enabled := FALSE;
  BtnModify.Enabled := FALSE;
  BtnDelete.Enabled := (table1.RecordCount <> 0);
end;

procedure TForm1.lbEd2Change(Sender: TObject);
begin
   BtnInsert.Enabled := ((lbEd1.Text <> '') and (lbEd2.Text <> ''));
   BtnModify.Enabled := ((lbEd1.Text <> '') or (lbEd2.Text <> '')) and
                        (table1.RecordCount <> 0);
end;

procedure TForm1.lbEd1Change(Sender: TObject);
begin
   BtnInsert.Enabled := ((lbEd1.Text <> '') and (lbEd2.Text <> ''));
   BtnModify.Enabled := ((lbEd1.Text <> '') or (lbEd2.Text <> '')) and
                        (table1.RecordCount <> 0);
end;

procedure TForm1.BtnDeleteClick(Sender: TObject);
var
  strcle : string ;

begin
  strcle := DBGrid1.Fields[0].Value;
  Query1.SQL.Clear;

  Query1.SQL.Add('DELETE FROM tbl');
  Query1.SQL.Add('WHERE cle =');
  Query1.SQL.Add(strcle);
  Query1.ExecSQL;
  Table1.Refresh;
  if table1.RecordCount = 0
  then btnDelete.Enabled := FALSE;
end;

procedure TForm1.BtnModifyClick(Sender: TObject);
var
  strcle : string ;

begin
  strcle := DBGrid1.Fields[0].Value;
  Query1.SQL.Clear;

  Query1.SQL.Add('UPDATE tbl');
  Query1.SQL.Add('SET chp1 = :chp1, chp2 = :chp2');
  Query1.SQL.Add('WHERE cle =');
  Query1.SQL.Add(strcle);
  if lbEd1.Text <> ''
  then Query1.Params[0].AsString := lbEd1.Text
  else Query1.Params[0].AsString := DBGrid1.Fields[1].Value;
  if lbEd2.Text <> ''
  then Query1.Params[1].AsString := lbEd2.Text
  else Query1.Params[1].AsString := DBGrid1.Fields[2].Value;
  Query1.ExecSQL;
  Table1.Refresh;
  lbEd1.Text := '';
  lbEd2.Text := '';
end;

end.


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

POUR DEPLOYER INTERBASE 6.5 (AVEC LE FICHIER À RECHERCHER)
Source avec Zip CARNET D'ADRESSES SOUS INTERBASE
Source avec Zip CARNET D'ADRESSE SOUS ACCESS
Source avec Zip Source avec une capture CARNET D'ADRESSE AVEC ACCESS SOUS DBE
Source avec Zip Source avec une capture AJOUT / SUPPRESSION ODBC SOUS DELPHI

 Sources de la même categorie

Source avec Zip INTERBASE FIREBIRD IBEXPERT par opgiat
Source avec Zip CREE ALIAS AUTOMATIQUEMENT CREATION REPERTOIRE ET TABLE AUSI par opgiat
Source avec Zip CRÉE UN RÉPERTOIRE ET CRÉE CES TABLES PAR PROGRAMME par opgiat
Source avec Zip Source avec une capture CONNEXION MYSQL ET RECUPERATION DANS BASE ACCESS par eli42
Source avec Zip Source avec une capture LIER DEUX TDBGRID par cantador

Commentaires et avis

Commentaire de Encore1ben le 10/02/2004 17:09:55

Bravo !!! J'ai fais toutes les sources traitant des base de données, sur ce forum, et c'est uniquement grâce à la tienne, que j'ai enfin compris quelque chose. Le fait, de mettre des images de configuration de l'odbc est une excellente initiative, car pour un débutant (comme moi en l'occurence), on ne sait jamais ce qu'il faut faire !! D'ailleurs, pour les plus débutants que moi, vous trouverez l'odbc sous Windows 2000, dans panneau de config/Outil d'administrations...

bref, très bon boulot et merci infiniment !

Petite question, si je fais un logiciel utilisant un base de donnée Access, que je le compile et  le distribue. Le logiciel sera où allé chercher la base, ou faut il à chaque fois que l'utilisateur configure ODBC ??? (ce qui ne serait pas pratique du tout!!)

Commentaire de juli1m le 10/05/2004 16:29:36

Encore1Ben &gt; Si tu installes ton logiciel sur une autre machine, il faudra recréer un pont ODBC, celui que tu as fait sur ta machine n'est connu que de TA machine.

Si tu installes ton logiciel sur une autre machine, utilise plutot OLEDB (je cherche justement comment on fait avec Delphi 7), OLEDB crée un pont dynamiquement dans ton application, contrairement à ODBC qui crée le pont sur une machine, L'application se contentant d'utiliser le pont de la machine.

sur ce, je retourne à ma recherche.

Commentaire de Encore1ben le 10/05/2004 16:35:40

merci, je vais chercher aussi ! tiens moi au jus, svp, si tu trouves ! Je ferais de même içi !!

Merci a toi !

Commentaire de CDTechStudio le 03/12/2004 01:14:55

Pourquoi sa me dit dans un message d'erreur quand j'ouvre le programme(Line screenshot http://www.cdtechstudio.info/bdtest.jpg):

Unknow Database.
Alias: BDtest.

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,421 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales