Listview... con ADO

[[Delphius]]

Ya vi... el error se debe a que no se puede identificar el objeto al que pertenece FieldbyName sólo debes poner:

Código Delphi [-]
QLlenar.fieldbyName(...)

Prueba con esto.

Saludos,

[Victor Vega]

le coloque esta parte q me diste:

Código Delphi [-]
ListItem.Caption:= QLlenar.FieldByName('nombres').AsString;

y ahora me dice:

QLLenar: Cannot perform this operation on a closed dataset

pense q era porque estaba cerrado y antes del QLlenar.First le agregue QLlenar.Open y aun asi me da ese error

[[Delphius]]

Disculpa que me haya demorado.

Bueno, ese error se debe a que no estás lanzando correctamente la consulta. Si estás realizando una consulta del tipo SELECT, se espera una orden Open:

Código Delphi [-]
QLlenar.Open;

Mientras que si realizas un INSERT o un UPDATE debes emplear

Código Delphi [-]
QLlenar.ExecSQL;

Cambialo y verás que funciona.

Saludos,

[Victor Vega]

Es correcto amigo, tenia 2 ExecSQL y solo habia quitado uno, al inicio del codigo tenia el otro... Graias me funciono muy bien...

[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...