Manipulate[
x=ρ Cos[ϕ];
y=ρ Sin[ϕ];
Graphics3D[
{
{Green,Sphere[{x,y,z},0.1]},
Cylinder[{{0,0,0},{0,0,z}},Sqrt[x^2+y^2]],
Arrow[
{{x,y,z},{x+(x/(Sqrt[(x^2)+(y^2)])),y+(y/(Sqrt[(x^2)+(y^2)])),z}}],
Arrow[
{{x,y,z},{x+((-y)/(Sqrt[(x^2)+(y^2)])),y+(x/(Sqrt[(x^2)+(y^2)])),z}}
],
Arrow[
{{x,y,z},{x,y,z+1}}]}
,PlotRange-> {{-2,2},{-2,2},{-2,2}},Axes-> True],
{ρ,0.1,1,0.1},
{ϕ,0,2Pi,0.1},
{z,0.1,1,0.1}
]