DSolve[Derivative[1][y][x] == (y[x]*(x^2 - a*x*Log[y[x]] + y[x]))/(x*(a*x - y[x] - Log[x]*y[x] - Log[y[x]]*y[x])),y[x],x]