instanciation d'un ADO Connection et Recordset

bonjour, je viens de creer une application sous delphi qui se connecte a une base sqlserveur
j'ai utilise pour cela les composants Tadoconnection, Tadotable,Tdatasource et des Tdbedit afin d'afficher tout ceci

Je souhaite maintenant faire la meme chose mais sans deposser les composant sur la form mais en creant des instanciations
Merci de m'expliquer (avec un exemple si possible), comment creer une instanciation d'un composant Tadoconnection?

uses -----, ADODB;

---
var
Connexion : TADOConnection;
begin
Connection := TADOConnection.create(Self);
end;

Tu peux créer dynamiquement tous les composants désignés par cette méthode qu'il faudra libérer avec la méthode Free.

Mais s'agissant d'une gestion de base de données, cette solution risque de compliquer l'écriture du programme et d'alourdir sa maintenance.

cantador

procedure TForm1.FormCreate(Sender: TObject);
var
begin
 Connection := TADOConnection.Create(Self);
end;

procedure TForm1.FormClose(Sender: TObject); var Action: TCloseAction);
var
begin
 Connection.Free;
end;

Et il te faudra ensuite gérer toutes les propriétés et les évènements sur les objets créés.

cantador

désolé..

---
var
Form1: Tform1;
Connexion : TADOConnection;

implementation
{ $R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 Connection := TADOConnection.Create(Self);
end;

procedure TForm1.FormClose(Sender: TObject); var Action: TCloseAction);
begin
 Connection.Free;
end;

Et il te faudra ensuite gérer toutes les propriétés et les évènements sur les objets créés.

cantador

et pour être complet voici un lien sur une source de Japee traitant de la création dynamique :

http://www.delphifr.com/codes/CREATION-DYNAMIQUE-BOUTONS-EXECUTION-DONC_12743.aspx

Il me semble avoir vu passer également un excellent tuto sur le site mais pas moyen de le retrouver..

cantador