Ahora, utilizando tanto;
begin
Close;
SQL.Clear;
SQL.Add('select count (num_decimo) as totalReg from reserva');
SQL.Add('where num_sorteo=:num_sorteo2');
DMPrimitiva.Query1.ParambyName('num_sorteo2').AsInteger:=StrToInt(Edit10.Text); //La funcion StrtoInt( ) depende del tipo de dato que sea tu parametro..
Open;
Edit2.Text:=InttoStr(DMPrimitiva.Query1['totalReg']);
end;
como;
DMPrimitiva.Qinsertarjueves.parambyname('num_sorteo').value:= edit10.text;
DMPrimitiva.Qinsertarjueves.parambyname('num_sorteo2').value:= edit10.text;
edit2.Text := DMPrimitiva.Qinsertarjueves.fieldbyname('totalReg').AsString;
con Qinsertarjueves ('select count (num_decimo) as totalReg from reserva
where num_sorteo=:num_sorteo2')
el edit2 siempre da como resultado cero (cuando éste resultado no es el correcto porque tengo varios registros en la base de datos que contar).
No se donde está el error, seguiré buscando.
Muchas gracias a todos por vuestro interés!!
|