Discussion :

[souarit]

Bonjour,, j'utilise une connection Ado avec une dizaine de table, le tout sur un datamodule,..je me demande s'il y a une procédure qui peut m'ouvrir tout ces tables en même temps ???

[ShaiLeTroll]

Pourquoi vouloir ouvrir des tables inutilement ?

sinon, DataModule, ComponentCount, Components, is TADOTable, Open ... voilà, tu as les mots clés pour avancer ...

[souarit]

Pourquoi vouloir ouvrir des tables inutilement ?

sinon, DataModule, ComponentCount, Components, is TADOTable, Open ... voilà, tu as les mots clés pour avancer ...

merci beaucoup pour les mots clés...je vais les essayer..et si j n'arriverai pas il ya F1....tu penses qu'il est inutile d'ouvrir toutes les tables au démarrage de l'application?...

[souarit]

Bon ...il faut le dire : i need more help...après quelques tentatives j'ai pas su formuler le bon code....sur F1 j'ai trouvée ce code :

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
procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  Temp: TComponent;
begin
  Form1.Memo1.Lines.Add('Components removed: ');
  Form2.Memo1.Lines.Add('Components added: ');
  for I := ComponentCount - 1 downto 0 do
  begin
    Temp := Components[I];
    if not (Temp is TControl) then
    begin
      RemoveComponent(Temp);
      Form1.Memo1.Lines.Add(Temp.Name);
      Form2.InsertComponent(Temp);
      Form2.Memo1.Lines.Add(Temp.Name);
    end;
  end;
end;

mais j'ai pas réussi à l'appliquer sur mon datamodule....
voila ce que j'ai fait

Code :

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

1
2
3
4
5
6
7
8
for i :=0  to  datamodule3.ComponentCount-1 do
            begin
            Table:=Components[i];
            if Table is TAdotable then
            begin
              Là j'ai pas su quoi faire...pour ouvrir les tables
            end;
            end;

[evarisnea]

il faut caster ta variable Table en TAdoTable :

Code :

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

1
2
3
TADOTable(Table).Open();
//ou
TADOTable(Table).Active := True;

sinon je suis de l'avis de shai

Pourquoi vouloir ouvrir des tables inutilement ?

surtout que ce sont des tables et non des requêtes, si les tables contiennent beaucoup d'enregistrements bonjour le ralentissement de l'appli !

[souarit]

rien à dire....