VPF::Сортировка по БД - Форум программистов

Bodrox

Дата 3.6.2005, 12:25 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 91
Регистрация: 14.4.2004
Где: Чебоксары

Репутация: нет
Всего: нет

А если у меня есть ADOTable к DBGrid'у (MSAccess), а сортить вы предлагаете через ADOQuery, то как это привить на один DBGrid... Или как вариант, как сделать так, чтобы при добавлении через ADOQuery автоматически происходила сортировка по поле-счётчику? smile

Это сообщение отредактировал(а) Bodrox - 3.6.2005, 12:30

Bodrox

Дата 3.6.2005, 12:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 91
Регистрация: 14.4.2004
Где: Чебоксары

Репутация: нет
Всего: нет

И ещё, как получить значение поля в DBGrid, на котором фокус находится или на которое только что мышкой щёлкнул?

innok

Дата 4.6.2005, 17:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 12.10.2004

Репутация: 1
Всего: 1

Bodrox
1.посмотри свойство Sort. вот из хелпа:

Цитата

Specifies the sort order of the recordset.

Delphi syntax:

property Sort: WideString;

Description

Set Sort to establish or change the list of fields on which the recordset is sorted. Set sort to the name of a single field or to a comma-separated list of fields. Each field may optionally be followed by the keyword ASCENDING or DESCENDING to specify a sort direction for the field. If one of these keywords is not used, the default sort direction for the field is ascending. Set Sort to an empty string to reset the recordset to the sort order originally used when the recordset’s data was first retrieved.

ADOQuery1.Sort := 'LastName ASC, DateDue DESC'
ADOQuery1->Sort = "LastName ASC, DateDue DESC"

Read Sort to determine the field (or fields) on which the recordset is sorted.

Код



DBGrid1.DataSource.DataSet.FieldByName(......)......

Это сообщение отредактировал(а) innok - 4.6.2005, 17:49

Rubin

Дата 6.6.2005, 20:24 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Предлагаемым методом

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  with query1 do
  begin
   close;
   sql.Clear;
   sql.Add('Select id,fam,name,adres,tel,email');
   sql.Add('FROM "C:\Program Files\Common Files\Borland Shared\Database Desktop\WorkDir\adrbook.db"');
   sql.Add('order by fam');
   execSQL;
   end;

end;

Сортировка не пашет. После выполнения запроса остается не активный грид smile

и один столбик. я уже не знаю что делать

innok

Дата 7.6.2005, 07:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 12.10.2004

Репутация: 1
Всего: 1

Цитата

execSQL;

вообще то, если используется select, то нужно Open. Или свойство Active:=True;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »