Сортировка(пустые значения в конце)

[xsaroo]

Всем привет вопрос вроде легкий но я что то не могу его решит.
Есть таблица "Алфавитный" в которой есть поле "Автор" так вот нужно сделать сортировку по алфавиту но чтобы пустые значения выводились в конце .(Обычную сортировку знаю как делать но эту увы).
У меня выводится
"пусто"
"пусто"
"Лев"
"Пушкин"

А надо
"Лев"
"Пушкин"
"пусто"
"пусто"

Использую код

procedure TForm3.FormCreate(Sender: TObject);
begin
with ADOQuery1 do begin
      Close;
      SQL.Text:='select * from Алфавитный ORDER BY Фамилия_имя_отчество_автора';
      Open;
    end;
end;

[Yurk@]

"пустын" ячейки нужно заменять при выборе так чтобы они вывелись в конец

[Аватар]

В T-SQL такое прокатило

SELECT * FROM ieiz 
  ORDER BY CASE WHEN ikei IS NULL THEN REPLICATE(CHAR(255),20) ELSE ikei END

здесь пустые именно с NULL, 20 - длина поля ikei. Если без REPLICATE, а просто CHAR(255), то начинающиеся с 'я' лезут в самый конец

[xsaroo]

Сообщение от Аватар

В T-SQL такое прокатило

SELECT * FROM ieiz 
  ORDER BY CASE WHEN ikei IS NULL THEN REPLICATE(CHAR(255),20) ELSE ikei END

здесь пустые именно с NULL, 20 - длина поля ikei. Если без REPLICATE, а просто CHAR(255), то начинающиеся с 'я' лезут в самый конец

Написал так но что то не прокатывает

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
with ADOQuery1 do begin
      Close;
      SQL.Text:='SELECT * FROM Фамилия_имя_отчество_автора ORDER BY CASE WHEN Фамилия_имя_отчество_автора IS NULL THEN REPLICATE(CHAR(255),20) ELSE Фамилия_имя_отчество_автора ';
      Open;
    end;
end;

[Аватар]

1. Далеко не уверен, что T-SQL подойдет для вашей СУБД
2. Вы даже скопипастить нормально не смогли

[xsaroo]

По гуглу написал вот так:

procedure TForm3.Button1Click(Sender: TObject);
begin
with ADOQuery1 do begin
Close;
SQL.Text:='Select Фамилия_имя_отчество_автора, isFirst = CASE WHEN Фамилия_имя_отчество_автора IS NULL THEN 1 ELSE 0 END FROM Алфавитный ORDER BY isFirst, Фамилия_имя_отчество_автора';
Open;
end;
end;

Ток все равно не работает. Помогите нубу, только из за этого задание сдать не могу.

[Serge_Bliznykov]

1) Вы бы писали - как именно оно не работает!
2) какая у Вас СУБД?
3)
ну, попробуйте так:

SQL.Text:='Select Фамилия_имя_отчество_автора, '+
 '  CASE WHEN Фамилия_имя_отчество_автора IS NULL THEN 1 ELSE 0 END as isFirst '+
 ' FROM Алфавитный ORDER BY isFirst, Фамилия_имя_отчество_автора';

p.s. на несколько строчек разбил исключительно для наглядности, на это внимания не обращайте...

[xsaroo]

Сообщение от Serge_Bliznykov

1) Вы бы писали - как именно оно не работает!
2) какая у Вас СУБД?
3)
ну, попробуйте так:

SQL.Text:='Select Фамилия_имя_отчество_автора, '+
 '  CASE WHEN Фамилия_имя_отчество_автора IS NULL THEN 1 ELSE 0 END as isFirst '+
 ' FROM Алфавитный ORDER BY isFirst, Фамилия_имя_отчество_автора';

p.s. на несколько строчек разбил исключительно для наглядности, на это внимания не обращайте...

база данных создана в Access. Делфи используется как управляющая среда. Щас пробнем. Что на счет ошибки он пишет"Не известная ошибка"

[Аватар]

в ACEESS вместо case - IIF. Вместо is null - IsNull