Problema con TADOQuery

[Nomad]

Estoy usando un TADOQUERY para hacer una consulta a una DB en SQL Server...

Código Delphi [-]
Query1.SQL.Text := 'Select IdDepartamento,Departamento from Departamentos';
Query1.Active   := True;
recs := Query1.MaxRecords;
WHile not Query1.Eof Do
Begin
    Combo.Items.Add(Query1.Fields[0].asstring);
    if not Query1.Eof then
       Query1.FindNext;
end; // fin del While

Resulta que siempre he usado el Query1.FindNext, pero ahora me da un error, cuando llega al final de los registros. Por eso utilizo el Query1.EOF, pero aun asi me da el error.

Alguna idea?

Gracias de antemano...

[[Caral]]

Hola
Y asi:

Código Delphi [-]
Query1.SQL.Text := 'Select IdDepartamento,Departamento from Departamentos';
Query1.Active   := True;
recs := Query1.MaxRecords;// esto no se para que lo usas?
WHile not Query1.Eof Do
Begin
    Combo.Items.Add(Query1.Fields[0].asstring);
     Query1.Next;
end;

No entiendo la necesidad de repetir el Eof dos veces, tampoco por que usar FindNext.
Bueno, pruebalo, tal vez sirva.
Saludos

[[enecumene]]

Hola, Caral te falto una linea para estar mas seguros:

Código Delphi [-]
Query1.SQL.Text := 'Select IdDepartamento,Departamento from Departamentos';
Query1.Active   := True;
recs := Query1.MaxRecords;// esto no se para que lo usas?
Query1.First;
WHile not Query1.Eof Do
Begin
    Combo.Items.Add(Query1.Fields[0].asstring);
     Query1.Next;
end;

Saludos.

[[Caral]]

Hola
Y crees que haga falta con el eof?
No crees que este recorre la tabla desde el principio?
No se, Pregunto?.
Lo que hace es rellenar un combobox, curiosamente llama a dos campos, pero solo usa uno en el combo, por que?, ni idea, el sabrá.
En tal caso si afinamos mas seria algo asi:

Código Delphi [-]
Query1.SQL.Text := 'Select IdDepartamento,Departamento from Departamentos';
Query1.Active   := True;
recs := Query1.MaxRecords;// esto no se para que lo usas?
WHile not Query1.Eof Do
Begin
    Combo.Items.Add(Query1.Fields[0].asstring +' '+ Query1.Fields[1].asstring) ;
     Query1.Next;
end;

Maestro que te parece, he aprendido algo?
Saludos

[[enecumene]]

Hola Caral, lo que pasa es que a veces cuando se llena un combobox no siempre se llena con todos los datos, por eso el first para asegurarnos de que empiece desde el primer registro, lo digo porque ya me ha pasado varias veces, es solo para estar seguros.

Saludos.

[Nomad]

Empezado por Caral

Hola
Y crees que haga falta con el eof?
No crees que este recorre la tabla desde el principio?
No se, Pregunto?.
Lo que hace es rellenar un combobox, curiosamente llama a dos campos, pero solo usa uno en el combo, por que?, ni idea, el sabrá.
En tal caso si afinamos mas seria algo asi:
Código Delphi [-]Query1.SQL.Text := 'Select IdDepartamento,Departamento from Departamentos';
Query1.Active := True;
recs := Query1.MaxRecords;// esto no se para que lo usas?
WHile not Query1.Eof Do Begin Combo.Items.Add(Query1.Fields[0].asstring +' '+ Query1.Fields[1].asstring) ;
Query1.Next;
end;

Maestro que te parece, he aprendido algo?
Saludos

Ok se les agradece a ambos

Llamo los dos campos porque mas abajo los quiero utilizar.
Y Llamo el EOF a ver si asi sirve, porque como se caia al llegar al FindNext, entonces pense que si volvio a preguntar talvez no, pero siguio igual, voy a probar y luego les cuento.

Gracias!

[[Caral]]

Hola
Me parece muy bien, por eso te pregunte, todos los dias se aprende algo.
Saludos

[Nomad]

Empezado por Caral

Hola
Y crees que haga falta con el eof?
No crees que este recorre la tabla desde el principio?
No se, Pregunto?.
Lo que hace es rellenar un combobox, curiosamente llama a dos campos, pero solo usa uno en el combo, por que?, ni idea, el sabrá.
En tal caso si afinamos mas seria algo asi:
Código Delphi [-]Query1.SQL.Text := 'Select IdDepartamento,Departamento from Departamentos';
Query1.Active := True;
recs := Query1.MaxRecords;// esto no se para que lo usas?
WHile not Query1.Eof Do Begin Combo.Items.Add(Query1.Fields[0].asstring +' '+ Query1.Fields[1].asstring) ;
Query1.Next;
end;

Maestro que te parece, he aprendido algo?
Saludos

Ese recs, era para ver si encontraba cuantos registros y para el ciclo de otra forma...

[Nomad]

Muchas gracias, problema resuelto

[[enecumene]]

y no podrias postear aqui la solucion, en caso de que a alguien mas le suceda lo mismo?.

Saludos

[Nomad]

Empezado por enecumene

y no podrias postear aqui la solucion, en caso de que a alguien mas le suceda lo mismo?.

Saludos

Es que la solucion, es lo que postearon los compañeros...

Query1.next en vez Query1.findnext y listo.

[[enecumene]]

OOOk, entendido.

Saludos