Zeos agregar datos a listview

[jonydread]

Amigos otra vez por aka estoy con una duda no se si es error mio, no puedo cargar los datos de la bd a mi listview
tengo un zconnection y un zquery y realizo esto y no carga nada no dice error ni nada pero al agregar datos desde un boton los agrega bien

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
nItem: TListItem;
 begin
DateTimePicker1.Datetime := now;
zquery1.SQL.Text := 'select *from Datos';
zquery1.ExecSQL;
while not zquery1.Eof do
begin
nItem := Listview1.Items.Add;
nItem.Caption:= zQuery1.fieldbyname('fecha').Asdatetime;
nItem.SubItems.Add(zQuery1.fieldbyname('area').AsString);
nItem.SubItems.Add(zQuery1.fieldbyname('tipo').AsString);
nItem.SubItems.Add(zQuery1.fieldbyname('detalle').AsString);
zquery1.next;
 end;
 end;

creo que algo me puede faltar
saludos.

[ecfisa]

Hola jonydread .

El método ExecSQL se utiliza para ejecutar consultas que no devuelven datos, como por ejemplo INSERT, UPDATE o DELETE.

Código SQL [-]
INSERT INTO TABLA 
VALUES(cp1, cp2, ...)

Para las consultas que utilizan SELECT se utiliza el método Open.

Código SQL [-]
SELECT col1, col2, ...
FROM TABLA

No probé tu código, pero como primer medida tendrías que cambiar el método ExecSQL por Open para que muestre algún resultado.

Saludos.

[jonydread]

gracias por la explicacion tan solo era eso ya estaba hirviendo jjaja
saludos amigo!!

dejo el codigo quedo asi

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
nItem: TListItem;
 begin
DateTimePicker1.Datetime := now;
zquery1.SQL.Text := 'select *from Datos';
zquery1.Open;
while not zquery1.Eof do
begin
nItem := Listview1.Items.Add;
nItem.Caption := zQuery1.fieldbyname('fecha').AsString;
nItem.SubItems.Add(zQuery1.fieldbyname('area').AsString);
nItem.SubItems.Add(zQuery1.fieldbyname('tipo').AsString);
nItem.SubItems.Add(zQuery1.fieldbyname('detalle').AsString);
 zquery1.next;
 end;

 end;