Obtener el resultado de una consulta

[devric]

Buenas... estoy implementando un sistema en Delphi 7 y MySQL 5.0 y tengo la siguiente duda. Sencilla, pero la verdad, busque y no encontre :


with DMo.query2 do
begin
Close;
SQL.Clear;
SQL.Add('select count(1) from agua where id_protocolo= '+(IntToStr(DMo.T_protocolosid_analisis.Value)));
DMo.query2.Open;
end;


Tengo ese código. Como hago para asignar el valor de esa consulta a una variable por ejemplo??

Desde ya muchas gracias!

[ContraVeneno]

with DMo.query2 do begin
Close;
SQL.Clear;
SQL.Add('select count(1) as contador from agua where id_protocolo= '+(IntToStr(DMo.T_protocolosid_analisis.Value)));
Open;
UnaVariable := FieldByName('Contador').AsInteger;
//UnaVariable := Fields[1].Value;
end;

[roman]

Otra forma:


UnaVariable := Fields[0].AsInteger;


// Saludos

[devric]

Muchas gracias muchachos!!

De maravilla ;)