4 replies to this topic

[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í:

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

[enecumene]

http://www.delphiacc...php?topic=320.0

[razadi]

Saludos Amigo JoAnCa, yo lo hago por medio de la siguiente procedure:

delphi

procedure AsigaCxn(Comp: TComponent; DBDatos: TzConnection)
var
  i: integer;
begin
  for i := 0 to Comp.ComponentCount-1 do begin
    if (Comp.Components[i] is TZAbstractDataSet) then
      (Comp.Components[i] as TZAbstractDataSet).Connection := DBDatos;
  end;
end;

Ami me funciona muy, bien, espero que sea lo que buscas

Saludos

[JoAnCa]

Muchas gracias a los dos
enecumene:
Veo que le diste buena solucion al mismo problema, lo que yo en lugar de poner las tablas en el formulario, las pongo en Data Module, solo es cambiar la referencia

razadi:
Tambien probaré tu codigo, pero no entiendo que poner en el primer parametro (Comp: TComponent)

[eduarcol]

Allí le pasas por parámetro el objeto que contiene los table, puede ser el formulario, datamodule o lo que uses.