Como abrir o activar todas las tablas (Zeos) mediante un ciclo

[JoAnCa]

Hola a todos
Quisiera saber de que forma puedo mediante un ciclo abrir todas las tablas, cuando conecto a la BD, esto mediante Zeos

Con ADO lo hacia así:

Código Delphi [-]
With BDModulo.ADOConect do
    for i:=0 to DataSetCount-1 do
     begin
      if Datasets[i].ClassType.ClassName = 'TADOTable' then
        DataSets[i].Active:=True;
     end;

pero con Zeos me dice que no conoce a Dataset ni DatasetCount

Cuales son los equivalentes en Zeos

[Neftali [Germán.Estévez]]

Prueba con algo como esto:

Código Delphi [-]
  for i := 0 to (ComponentCount - 1) do begin
    if (Components[i] is TADOTable) then begin
      // Nombre --> Components[i].Name;
      TADOTable(Components[i]).Open;
    end;
  end;

Lo único que debe hacer es cambiar las dos referencias a TADOTable por TZTable (No recuerdo cómo se llama el componente de tablas d zeos )

[JoAnCa]

Hola Neftali
Gracias por tu respuesta, lo probaré

PD: Los componentes de Zeos se llaman así mismo, TZTable y TZQuery

[Neftali [Germán.Estévez]]

Empezado por JoAnCa

PD: Los componentes de Zeos se llaman así mismo, TZTable y TZQuery

En ese caso no debería haber problema, si funciona con TADOTable, debe funcionar con TZTable.

[JoAnCa]

Ok, Resuelto
Asi mismo funcinó bien, muchas gracias