obtener datos de registros de resultado de un query

[jhonny]

Siguiendo con tu ejemplo, prueba lo siguiente:

Código Delphi [-]
fs.Qs.SQL.Add('select * from Registros where anio=2007');    
fs.Qs.Open;
fs.Qs.First;
while not fs.Qs.EOF do
begin
   showmessage(fs.Qs.FieldByName('id_empleado').AsString+' '+fs.Qs.FieldByName('anio').AsString+''+fs.Qs.FieldByName('periodo').AsString);
fs.Qs.Next;
end;
fs.Qs.close;

El while, con ayuda del First, EOF y Next, recorreran el Query que te trae dicho resultado de 50 o mas registros.

[thelibmx]

Empezado por jhonny

Siguiendo con tu ejemplo, prueba lo siguiente:


Código Delphi [-]fs.Qs.SQL.Add('select * from Registros where anio=2007');
fs.Qs.Open;
fs.Qs.First;
while not fs.Qs.EOF do
begin
showmessage(fs.Qs.FieldByName('id_empleado').AsString+' '+fs.Qs.FieldByName('anio').AsString+''+fs.Qs.FieldByName('periodo').AsString);
fs.Qs.Next;
end;
fs.Qs.close;






El while, con ayuda del First, EOF y Next, recorreran el Query que te trae dicho resultado de 50 o mas registros.

Esto es lo que queria, gracias a ambos por ayudarme ahora dos dudas mas ,la primera es que con el while no se detiene cuando termina por que me arroja un registro de mas -1, supongo que es por que el next me lo hace una ves de mas despues de que ya llego al fin del query, y la otra es que si quisiera guardar los datos, creo que tendria que poner un arreglo, pero quisiera que me ayudaran un poco con la sintaxys, como lo declararia para que fuera variable el tamaño del arreglo, y si es que es buena opcion ocupar el arreglo para guardar los datos del query, solo los necesito para modificar otra tabla, una ves modificada la otra tabla ya no me sirven los datos aunque escribiendo en este momento, creo que acabo de resolver esa cosa, entonces me quedo con la primera duda,

[jhonny]

Te sugiero que para aclarar esa duda que te queda, leas la ayuda en su topico TDataSet.Eof, allí te indican claramente cual es la función que cumple EOF... una vez leido esto vas a ver que EOF te indica el final de los registros (End-Of-File) y por eso el while lo evalua cada vez que tiene que hacerlo, hasta que dicha función nos devuelva True... No se si me hice entender, espero que si .

[thelibmx]

ok, mi error

Código Delphi [-]
fs.Qs.close;

el codigo esta bien, lo que pasa es que se cierra el query una linea antes, y en la proxima linea mostraba un mensaje con el resultado, pero como el query ya estaba cerrado pues no hay resultado, en fin piedritas del oficio, gracias jhonny