Discussion :

[yamino]

Bonjour à tous,

J'aimerais simplifier ma création dynamique de mes DataSet. J'en ai un nombre incalculable qui sont créés de cette manière :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
  try
    dtsComputers := TADODataSet.Create(Owner);
    dsComputers := TDataSource.Create(Owner);
    with dtsComputers do
    begin
      Connection := frmDataModule.ADOConnection;
      CommandText := 'SELECT * FROM computers WHERE ORDER BY hostname';
      CursorType := ctDynamic;
      dsComputers.DataSet := dtsComputers;
      dbgMain.DataSource := dsComputers;
      Filter := 'hostname <> ''''';
      Filtered := True;
      Active := True;
      First;
    end;
    dtsSupplier := TADODataSet.Create(Owner);
    dsSupplier := TDataSource.Create(Owner);
    with dtsSupplier do
    begin
      Connection := frmDataModule.ADOConnection;
      CommandText := 'SELECT * FROM suppliers ORDER BY name';
      CursorType := ctDynamic;
      dsSupplier.DataSet := dtsSupplier;
      Active := True;
    end;
  except
    on e: Exception do
    begin
      ShowMessage('Problème d''ouverture de la base de données : ' + e.Message);
      Exit;
    end;
  end;

Je voudrais faire quelque chose du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dtsComputers := CreateDataSet('SELECT * FROM computers WHERE ORDER BY hostname', 'hostname <> ''''', True, First)
dsComputers := CreateDataSource(dtsComputers)

En résumé faire une fonction à qui je passe un certain nombre de paramètre et qui me créée mon DataSet, mon DataSource gère les exceptions et le tout de manière "transparente"

[ShaiLeTroll]

Quelle est la Question ? C'est dommage, sur le forum, un sujet proche a été évoqué ...

Tu dois isoler les parties commune de toutes ces créations, ce qui change se seront tes paramètres, ...

tient un code qui devrait te donner des idées ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
function GetQuery(SQL: string; AOwner: TComponent = nil): TADOQuery;
var
  ADOQuery: tADOQuery;
begin
  ADOQuery := tADOQuery.Create(nil);
  try
    try
      ADOQuery.Connection := GlobalConnection;
      ADOQuery.SQL.Add(SQL);
      try
        ADOQuery.Execute;
        Result := ADOQuery;
        if Assigned(AOwner) then
          AOwner.InsertComponent(Result);
      except
        on E: EDataBaseError do
        begin
          Result := nil;
          LastErrorType := E.ClassType
          LastErrorMessage := E.Message
        end;
      end;
    except
      Result := nil;
      Raise; // Redéclenchement d'exceptions
    end;
  finally
    if not Assigned(Result) then
      ADOQuery.Free();
  end;
end;

[yamino]

Merci pour ta réponse ShaiLeTroll.
Je débute un peu dans la création de composant dynamiquement. Comment puis-je lier mon dbGrid via un TDataSource de cette manière ?

[ShaiLeTroll]

Comme ceci, tu n'auras pas à t'occuper de la libération grace à Owner des différents composants concernés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
DBGrid.DataSource := TDataSource.Create(DBGrid);
DBGrid.DataSource.DataSet := GetQuery('SELECT TRUC', DBGrid.DataSource);

mais si tu effectue plusieurs fois l'opération, cela peut augmenter la mémoire jusqu'à ce que la fenêtre contenant le DBGrid soit fermé, ainsi il vaut mieux libérer au fur et à mesure à chaque fois que tu appele la fonction, en protégeant évidemment le premier appel d'une erreur ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
if not Assigned(DBGrid.DataSource) then
  DBGrid.DataSource := TDataSource.Create(DBGrid);
if Assigned(DBGrid.DataSource.DataSet) then
  DBGrid.DataSource.DataSet.Free();
DBGrid.DataSource.DataSet := GetQuery('SELECT TRUC', DBGrid.DataSource);

[yamino]

re-merci pour ta réponse et ton efficacité

J'ai essayé mais malheureusement je ne retrouve aucune données dans mon grid...
Je n'ai pas de message d'erreur et en mode pas à pas tout se déroule convenablement...

[yamino]

Ok ça fonctionne...

j'ai modifié

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ADOQuery.Execute;

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ADOQuery.Open;

[yamino]

Peux-tu me dire à quoi sert dans la fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

... AOwner: TComponent = nil ...

Si maintenant je veux utiliser des DBEdit il faut lui rajouter le champs que je veux lui assigner ?

[yamino]

N'est-il pas possible de faire passer le code suivant dans la fonction ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
if not Assigned(DBGrid.DataSource) then
  DBGrid.DataSource := TDataSource.Create(DBGrid);
if Assigned(DBGrid.DataSource.DataSet) then
  DBGrid.DataSource.DataSet.Free();

[ShaiLeTroll]

Tout dépend jusqu'où tu veux encapsuler ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

... AOwner: TComponent = nil ...

le Paramètre AOwner n'est pas obligatoire, les deux lignes fonctionnnes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
GetQuery('SELECT TRUC', DBGrid.DataSource);
GetQuery('SELECT TRUC');

Dans la seconde ligne, il n'est pas mentionné, il est mis à nil, ...

le Owner, c'est le Composant qui est responsable de la libération des objets possédés, genre un TForm avec ses boutons, labels ... qui est le Owner de tout ce petit monde, ne pas confondre avec Parent qui défini le conteneur visuelle (panel, groupbox ...)

Mais, tu peux effectivement faire un autre GetQuery // overload;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
function GetQuery(SQL: string; var Source: TDataSource; AOwner: TComponent): TADOQuery;
begin
  if not Assigned(Source) then
    Source := TDataSource.Create(AOwner);
  Result := GetQuery(SQL, AOwner);
 
  if Assigned(Source.DataSet) then
    Source.DataSet.Free();
 
  Source.DataSet := Result;
end;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
ADataSource := DBGrid.DataSource;
GetQuery('SELECT TRUC', ADataSource, Self);
DBGrid.DataSource := ADataSource ;

Tu peux aussi renovyer le DataSource directement, mais en général, on pose la grille et le datasource sur la form, et on ne se pose pas de problème ...

[yamino]

Ok je vais approfondir la question...

Merci beaucoup pour ton efficacité ShaiLeTroll