Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Como abrir o activar todas las tablas (Zeos) mediante un ciclo (https://www.clubdelphi.com/foros/showthread.php?t=65248)

JoAnCa 30-11-2009 22:52:17

Como abrir o activar todas las tablas (Zeos) mediante un ciclo
 
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] 01-12-2009 10:01:03

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 :o:o)

JoAnCa 01-12-2009 14:43:07

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] 01-12-2009 15:50:14

Cita:

Empezado por JoAnCa (Mensaje 347843)
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 01-12-2009 17:26:18

Ok, Resuelto
Asi mismo funcinó bien, muchas gracias ;)


La franja horaria es GMT +2. Ahora son las 01:10:36.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi