BASE ACCESS DELPHI 2005 LECTURE DÉPLACEMENT ET ENREGISTREMENT

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls;

type
  TForm2 = class(TForm)
    ADOConnection1: TADOConnection;
    ars: TADOQuery;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Label1: TLabel;
    Button6: TButton;
    Edit2: TEdit;
    Button7: TButton;
    Button8: TButton;
    procedure Button8Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
ars.SQL.Clear;
ars.SQL.Add('Select * from table1');
//ars.SQL.Add('Where Titre='+QuotedStr(CB_Film.Text));
ars.Open;
ars.First;
edit1.text:=ars.FieldByName('test').AsString;

//ars.SQL.close;

ars.SQL.Clear;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
//  ----------------------------------------Ajout dans une base de donnée access
      ars.SQL.Clear ;
      //Version mono ligne
      ars.SQL.Add('Insert into table1 (test) Values ('+QuotedStr(edit1.Text)+')');
      // Version Multi ligne
      //ars.SQL.Add('Insert into table1 (test)');
      //ars.SQL.Add(' Values ('+QuotedStr(edit1.Text)+')');
      ars.ExecSQL;
      ars.Close;
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
ars.SQL.Clear;
ars.SQL.Add('Select * from table1');
//ars.SQL.Add('Where Titre='+QuotedStr(CB_Film.Text));
ars.Open;
ars.next;
edit1.text:=ars.FieldByName('test').AsString;

//ars.SQL.close;

ars.SQL.Clear;
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
ars.SQL.Clear;
ars.SQL.Add('Select * from table1');
//ars.SQL.Add('Where Titre='+QuotedStr(CB_Film.Text));
ars.Open;
ars.last;
edit1.text:=ars.FieldByName('test').AsString;

//ars.SQL.close;

ars.SQL.clear;
end;

procedure TForm2.Button5Click(Sender: TObject);
begin
ars.SQL.Clear;
ars.SQL.Add('Select * from table1');
//ars.SQL.Add('Where Titre='+QuotedStr(CB_Film.Text));
ars.Open;
ars.last;
ars.Prior;
edit1.text:=ars.FieldByName('test').AsString;

ars.close;

ars.SQL.Clear;
end;

procedure TForm2.Button6Click(Sender: TObject);
begin
(* ne sert pas a grand chause juste a afficher la chaine de connexion *)
ADOConnection1.Close;
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.Exename)+'test1.mdb;Mode=ReadWrite;Persist Security Info=False';
label1.Caption:= ADOConnection1.ConnectionString;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
(* a l'ouverture de l'aplication on recherche l'emplacement de l'aplication
et on l'affecte a la position de la base ce qui permet de déplacer la base et son aplication
ils doivent toutes fois etre dans le meme repertoir dans ce cas ou en tt cas
avoir un chemin relatif toujour egal *)
edit2.text:= ExtractFilePath(Application.Exename);
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.Exename)+'test1.mdb;Mode=ReadWrite;Persist Security Info=False';
end;

procedure TForm2.Button7Click(Sender: TObject);
begin

ars.SQL.Clear;
//ouvrire la table
ars.SQL.Add('Select * from table1');
ars.Open;
//ce déplacer j'usqu'a l'avant dernier enregistrement
ars.last;
ars.Prior;

//modiffier le champcorrespondant
ars.Edit;
ars.FieldByName('test').AsString := Edit1.Text;
ars.Post;
ars.SQL.Clear;
end;

procedure TForm2.Button8Click(Sender: TObject);
begin
ars.SQL.Clear;
// connexion SQL filtre touts les enregistrement du champ test de la table table1
// et les efface a l'execution de la requette sql
ars.SQL.Add('delete * from table1');
ars.SQL.Add('Where test='+QuotedStr(edit1.Text));
ars.ExecSQL
end;

end.