Prueba con este ejemplo y verás como te funciona:
procedure TForm1.Button1Click(Sender: TObject);
var
CodigoUser:Integer;
begin
CodigoUser:=1;
ADO_Q.Close;
ADO_Q.Sql.Clear;
ADO_Q.Sql.Add('Select Count(Cp) from Copias_Pelicula');
ADO_Q.Sql.Add('Where CP ='+IntToSTr(CodigoUser));
ADO_Q.Active:=True;
end;
Un Saludo.
|