A={-3,-1,2};
B={2,4,1};
Q=α B;
P=Q-3A;
Solve[Dot[P,A]==0,α]

P=Q-3A/.α->-(21/4)
Q=α B/.α->-(21/4)