sql запрос

[fobass]

Привет помогите у меня SQL-запрос не действует т.е выдает ошибку
код:

PHP код:

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
with ADOQuery1 do
  begin
    DisableControls;
    Close;
    SQL.Clear;
    SQL.Add(ADOQuery1.SQL.Text);
    SQL.Add('ORDER BY ' + Column.FieldName);
    Open;
    DBGrid1.Columns.RestoreDefaults;
    Column.Title.Font.Color := clBlue;
    EnableControls;
  end; 


это сортировка по клику на DBGRID1

[fobass]

Это из примера в инете нащел там еще есть глобальная строка
adoqery1. Куда писать глобальную строку?

[Evgeniy26]

procedure TForm1.DBGrid1TitleClick(Column: TColumn); 
begin 
with ADOQuery1 do 
  begin 
    DisableControls; 
    SQL.Clear; 
    SQL.Add('Select * From <TableName> ORDER BY ' + Column.FieldName); 
    Open; 
    DBGrid1.Columns.RestoreDefaults; 
    Column.Title.Font.Color := clBlue; 
    EnableControls; 
  end;

Ты очистил AdoQuery потом к нему обращаешься SQL.Add(ADOQuery1.SQL.Text);.

[fobass]

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

На та ссылка.

У меня нет компонента TAble у меня adoconnection, adoqery, datasours
таблицы на accesse

[fobass]

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

procedure TForm1.DBGrid1TitleClick(Column: TColumn); 
begin 
with ADOQuery1 do 
  begin 
    DisableControls; 
    SQL.Clear; 
    SQL.Add('Select * From <TableName> ORDER BY ' + Column.FieldName); 
    Open; 
    DBGrid1.Columns.RestoreDefaults; 
    Column.Title.Font.Color := clBlue; 
    EnableControls; 
  end;

Ты очистил AdoQuery потом к нему обращаешься SQL.Add(ADOQuery1.SQL.Text);.

Это я пример подгонял

 SQL.Add('Select * From <TableName> ORDER BY ' + Column.FieldName);

так я пробывал выходит error см рис.
да там еще глобальная строка есть куда его запехнуть

Сортировка DBGrid по клику на колонке.
Компилятор: Delphi

На форме расположены TQuery, TDatasource и TDbGrid связанные вместе.

QuerySQL, это глобальная строка, которая содержит SQL-выражение.

begin 
  QuerySQL := 'SELECT * FROM Customer.DB'; 
  Query1.SQL.Add(QuerySQL); 
  Query1.Open; 
end; 


В DBGrid в событии OnTitleClick, достаточно добавить ORDER-BY к sql-строке и обновить запрос.

procedure TForm1.DBGrid1TitleClick(Column: TColumn); 
begin 
  with Query1 do 
  begin 
    DisableControls; 
    Close; 
    SQL.Clear; 
    SQL.Add(QuerySQL); 
    SQL.Add('ORDER BY ' + Column.FieldName); 
    Open; 
    // Восстанавливаем настройки заголовка, иначе всё станет синим
    DBGrid1.Columns.RestoreDefaults; 
    Column.Title.Font.Color := clBlue; 
    EnableControls; 
  end; 
end;

[Evgeniy26]

SQL.Add('Select * From <TableName> ORDER BY ' + Column.FieldName);

Что с этой строкой таже ошибка?
Покажи как ты ее записал.

[fobass]

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

SQL.Add('Select * From <TableName> ORDER BY ' + Column.FieldName);

Что с этой строкой таже ошибка?
Покажи как ты ее записал.

я не понял по когда на аксессе создаещ таблицу он же колонку Код автоматом делает, так вот по колонке Код сортерует а по остальным выдает error вот фото

[SlavaSH]

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

я не понял по когда на аксессе создаещ таблицу он же колонку Код автоматом делает, так вот по колонке Код сортерует а по остальным выдает error вот фото

он автоматом делает, если ты сам не сделал, а вообще можно самому сделать.

у тебя у всех таблиц и полей название на русском языке???
может из-за этого проблема?

[Evgeniy26]

Если у тебя столбцы с пробелами, тогда заключи их в квадратные скобки:

SQL.Add('Select * From <TableName> ORDER BY [' + Column.FieldName) + ']';

[fobass]

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

он автоматом делает, если ты сам не сделал, а вообще можно самому сделать.

у тебя у всех таблиц и полей название на русском языке???
может из-за этого проблема?

да на русском
да у меня автоматом.
но поле Код тоже на русском. Главная по поле Код сортерует вчем сходство. Оно же должно сортироватся может adoqery нужно чет-то сделать