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