como obtener el resultado de una query
Publicado por Pedro Fernandez (1 intervención) el 01/05/2004 02:31:04
campos de la base de datos (Access) = RUT / SESION / ZONA / VELOCIDAD / PUNT / LANZ
componentes instalados en el form = ( Query1=TQuery ; DataSouce1=TDataSource ; TABLE1=TTable)
Con un boton deseo realizar la siguiente operacion sobre los campos de la base de datos (sumar el campo PUNT y sacar el promedio del campo VELOCIDAD) luego de haberlos filtrado por RUT y SESION, eso se hace mediante una operacion query, pero tengo un problema....
segun lo observado, la instruccion de filtrar, sumar y sacar promedio se estan ejecutando sin problemas, pero no puedo mostrar o rescatar los resultados..(suma y promedio) para segir trabajando con ellos o simplemente, mostrarlos en el form mediante un label o un edit..(espero haber sido claro en mi duda)...agradeceria si alguien sabe como realizar esta operacion completa me ayude a resolver mi problema...gracias
segun entiendo, el query1 deberia contener 3 datos luego de la ejecucion de la instruccion (rut, suma, promedio)...pero no se como rescatarlos con delphi...
*******************************************************************************
procedure TForm7.Button1Click(Sender: TObject);
var instruccion3:string;
begin
TABLE1.Filter:= 'RUT = 100000001 AND SESION=2';
Query1.Close;
Query1.SQL.Clear;
instruccion3 := 'select rut, sum(punt), avg(velocidad) as suma from consulta_jugadores where rut=100000001 group by rut';
showmessage(instruccion3);
Query1.SQL.Add(instruccion3);
Query1.ExecSQL;
showmessage(query1.Fields[1].Text); // AQUI ES LO QUE NO SE QUE INSTRUCCION PONER PARA OBT
componentes instalados en el form = ( Query1=TQuery ; DataSouce1=TDataSource ; TABLE1=TTable)
Con un boton deseo realizar la siguiente operacion sobre los campos de la base de datos (sumar el campo PUNT y sacar el promedio del campo VELOCIDAD) luego de haberlos filtrado por RUT y SESION, eso se hace mediante una operacion query, pero tengo un problema....
segun lo observado, la instruccion de filtrar, sumar y sacar promedio se estan ejecutando sin problemas, pero no puedo mostrar o rescatar los resultados..(suma y promedio) para segir trabajando con ellos o simplemente, mostrarlos en el form mediante un label o un edit..(espero haber sido claro en mi duda)...agradeceria si alguien sabe como realizar esta operacion completa me ayude a resolver mi problema...gracias
segun entiendo, el query1 deberia contener 3 datos luego de la ejecucion de la instruccion (rut, suma, promedio)...pero no se como rescatarlos con delphi...
*******************************************************************************
procedure TForm7.Button1Click(Sender: TObject);
var instruccion3:string;
begin
TABLE1.Filter:= 'RUT = 100000001 AND SESION=2';
Query1.Close;
Query1.SQL.Clear;
instruccion3 := 'select rut, sum(punt), avg(velocidad) as suma from consulta_jugadores where rut=100000001 group by rut';
showmessage(instruccion3);
Query1.SQL.Add(instruccion3);
Query1.ExecSQL;
showmessage(query1.Fields[1].Text); // AQUI ES LO QUE NO SE QUE INSTRUCCION PONER PARA OBT
Valora esta pregunta


0