Тоже не совсем коротко, но меньше 100, а главное если возникнет потребность в 1000 или, чего доброго, 10000, тогда это - то что надо (мдея Глебa Уфимцевa из ветки чуть ниже 'Запрос хитренький'):

Select d1.Digit*10+d2.Digit As Num From
(select 0 Digit
union select 1
union select 2
union select 3
union select 4
union select 5
union select 6
union select 7
union select 8
union select 9) d1,
(select 0 Digit
union select 1
union select 2
union select 3
union select 4
union select 5
union select 6
union select 7
union select 8
union select 9) d2