Listview... con ADO

[Victor Vega]

Una ultima yuda aqui porfa.....
como agrego un Subitems????.... Hice algo asi:

Código Delphi [-]
 
var
Columna: TListColumn;
 
Columna:= lista.Columns.Add;
Columna.Caption:=QLlenar.FielByName('apellidos').AsString;

pero no me resulta.
vuelve a decirme q o esta declarado FielByName

[[Delphius]]

Victor... victor... ¿De donde eres? Porque creo que el sueño y el cansancio te está afectado

No existe FielbyName... estoy completamente seguro que lo que tu quieres decir es:

Código Delphi [-]
QLlenar.FieldbyName('apellidos').asString;

A menos de que te hayas equivocado al postear... alli ya no se que decirte. Tendría que ver que cambios le hiciste a tu código.

Saludos,

[Victor Vega]

la verdad el cansancio si me mata pero no podre dormir tranquilo hasta no resolver este rollo,
solo necesito agregar a ese listview un subitems

Código Delphi [-]
 
QLlenar.SQL.Clear;
QLlenar.SQL.Add('select * from Datos order by cedula');
QLlenar.Open;
  if QLlenar.RecordCount >=1
    then begin
             lista.Clear;
             QLlenar.Open;
             QLlenar.First;
             while not QLLenar.Eof do
               begin
                 ListItem:=lista.Items.Add;
                 ListItem.Caption:= QLlenar.FieldByName('nombres').AsString;
                 ListItem.SubItems.Add('apellidos');
                 
                 QLlenar.Next;
                end;
           end;

como veras en la parte donde quiero agregar el subitems solo esta add('apellidos') y de esa manera me agrega el tecto apellido al subitems. y si le asigno FieldByName me da el bendito error de no declarado...

[Victor Vega]

Hola como estan regreso con este tema para comunicarles los adelantos q logre hacer hoy, pero q en resumidas aun no logro del todo lo que quiero... les dejo el codigo y les explico lo q sucede:

Código Delphi [-]
 
QLlenar.SQL.Clear;
QLlenar.SQL.Add('select * from Datos order by cedula');
QLlenar.Open;
  if QLlenar.RecordCount >=1
    then begin
             lista.Clear;
             QLlenar.Open;
             QLlenar.First;
             while not QLLenar.Eof do
               begin
                 with lista.Items.Add do
                  begin
                  Caption:= QLlenar.FIeldByName('cedula').AsString;
                  Subitems.Text:= QLlenar.FieldByName('nombres').AsString;
                  Subitems.Text:=QLlenar.FieldByName('apellidos').AsString;
                  end;
             QLlenar.Next;
                 end;
           end;

ya logro añadir a mi lista Subitem, cuando probé con el primer subitems todo funciono bien, pero cuando intente añadir el segundo subitems no me dio error de programación, pero tampoco me inserto nada en la lista.

espero uno de uds me pueda ayudar, y si es Delphius con su paciencia le estare agradecido de mas..
Ademas esto nos servira a todos, asi q es bueno trabajar en conjunto por eso es que somos todos de este club..