Zeos agregar datos a listview
 

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.

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.

gracias por la explicacion tan solo era eso :eek: 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;