Use Eliminate, not Solve:
Eliminate
Solve
Eliminate[{a^2 - a + 1 == b, 7 a - 5 == b^2, -12 a^2 - 9 a + 16 == b^3}, a]
Great. Excellent!!! Best regards