Base access delphi 2005 lecture déplacement et enregistrement

Soyez le premier à donner votre avis sur cette source.

Vue 21 626 fois - Téléchargée 4 528 fois

Télécharger le projet
Commenter

Description

C'est surtout dans un but de formation que j'ai crée cette source, pour les vraiment débutant en delphi, voila comment crée une connexion SQL sur une base access,

Description :

1 base de donnée access dans le répertoire de l'application
Nom de la base : test1.mdb
nom de la table : table1
nom du champ utiliser : test

2 Mode opératoire :
Si vous ne voulez pas copier bêtement ce qui es dans le zip voici comment crée une connexion a une base Access :

Incorporé a votre projet un TADOConnection
dans la XXX.formcreat ajouter

ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.Exename)+'nom_de_la_base.mdb;Mode=ReadWrite;Persist Security Info=False';

Ce qui vous permettra de bouger le programme avec sa base ( pratique pour ne pas marqué le chemin en dur dans le code)

Incorporé a votre projet un TADOQuery
et liez le avec votre connexion : liaison/connection: votre TADOConnection exemple ADOConnection1

Nommez le ex RS personnellement j'ai utiliser ars

Source / Exemple : 


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.

Conclusion :


Toutes mes escuse a vous tous, il etait un peut tard et j'ai Zapper la verification de mon archive

Voila maintenant si vous vouhaitez modifier ou suprimer un enregistrement c'est expliquer
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
bdgta
Messages postés
63
Date d'inscription
jeudi 2 janvier 2003
Statut
Membre
Dernière intervention
8 septembre 2008
chez moi le prog ne tourne pas

erreur rencontré "non défini par l'utilisateur"

Comment faire pour que celà fonctionne

Merci
Signaler
kadismail
Messages postés
1
Date d'inscription
mardi 11 avril 2006
Statut
Membre
Dernière intervention
29 mai 2006
Bonjour,
Comment affichier l'enregistrement de database
ou comment en compt l'enregistrement des validations
merci...
Signaler
Foucteau
Messages postés
29
Date d'inscription
mercredi 29 mai 2002
Statut
Membre
Dernière intervention
22 juin 2013
Probleme du dpr corrigé
Toutes mes excuses encor une fois ...
Signaler
JulioDelphi
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
 13
idem
achille, vire les ~, .dcu, .res et autre fichier inutile, mais remets un dpr !
merci
Signaler
jmp77
Messages postés
1119
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
4 octobre 2006
 4
Ok merci pour ces precisions mauricio.

Mais ca me saoul de faire tout ca donc je lache l'affaire pour cette source. Bientot si ca continue on va fournir juste une image du code et on devra le recopier pour l'essayer. Alors non merci pas pour moi.
Fais un effort foucteau fournit un code complet. Tu enleves le dpr alors que tu fournis les dcu ect... Ou est le gain!!!

++,
JMP77.
Afficher les 8 commentaires
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Foucteau)