Instanciation d'un ADO Connection et Recordset

Signaler
Messages postés
19
Date d'inscription
jeudi 6 décembre 2007
Statut
Membre
Dernière intervention
17 mai 2008
-
Messages postés
4715
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
27 mars 2018
-
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?

3 réponses

Messages postés
4715
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
27 mars 2018
12
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
Messages postés
4715
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
27 mars 2018
12
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
Messages postés
4715
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
27 mars 2018
12
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