» Delphi - DBGrid

Здравствуйте! НЕобходимо сделать сортировку в DBGrid по алфавиту или по возрастанию (по номеру если). Именно сортировка а не фильтровка. Нужно очень. Кто знает, подскажите как сделать.. Можно прямо по нажатию на заголовок стобца или в событии OnClick отдельной кнопки.

Добавлено:
если это невозможно сделать в DBGrid'e тогда может на уровне данных в DataSet или Table'e

vovanzp
Почитай это
_http://delphiworld.narod.ru/base/dbgrid_sort.html

AlxMonster
Это немного не то. Ну во первых оно не работает , а можно сделать так что бы сортировка была просто по нажатию кнопки?

vovanzp
А что конкретно не работает? Я сделал все аккуратно как там написано и все заработало.
Попробуй сделать точно так как там сказано.
Выслать проект почтой?

Выдает ошибку в строке Application.Initializate при попытке скомпилировать. Если можно то да. Заранее спасибо

vovanzp
какая у тебя БД?
какой доступ к базе?
на счёт сетки, используй EhLib

DroN_S
БД у меня Paradox 7 (*.db)
Доступ через DataSource и Table

vovanzp
Пример отправил.

Цитата:

Выдает ошибку в строке Application.Initializate при попытке скомпилировать.

Это вряд ли. Ошибка возникает если перед выполнением кусочка кода, добавленного в FormCreate, таблица открыта. Перед этим ее надо закрывать.

vovanzp
мой тебе совет, переходи как минимум на Access и используй TQuery !!!!!!
и ещё, если ты собираешься работать с БД в дальнейшем, то без знания языка SQL даже не пытайся что то делать...

Во все примерах используется HeaderControl а можно это сделать не используя его? просто указывая например в Edit'e столбец и по нажатию на Button выполнять сортировку?

vovanzp
На самом деле используй тогда TQuery с запросом типа "select * from mytable order by myfield" или поищи компонент с готовой сортировкой.

Цитата:

поищи компонент с готовой сортировкой

EhLib

Скачал пакет BvComp (т.е. EhLib) - уда входит bvDbGrid. Но при компиляции выдает ошибку в файле bvDBGrid.pas в строке OldCOL:=Cell.X, ошибка - [Error] bvDBGrid.pas(1680): Left side cannot be assigned to в чем дело?

vovanzp
Версия EhLib, Delphi ?

Навскидку могу посоветовать поставить опцию {$J+} или что то же самое {$WRITEABLECONST ON}

Delphi 7, EhLib (bvComp - версия не написана нигде)

vovanzp
EhLib он и в африке EhLib!!!!
сходи в варезник и найди нормальную версию библиотеки....
либо скачай с официалке, там до 4-й версии есть бесплатный пакет.... на семёрку подойдёт

Может кто знает, где можно почитать про экспорт данных из DBgrid'a в Excel или в Word, если возможно. Заранее спасибо

vovanzp
Если по-простому (по крайней мере, для меня) юзай сам Excel через Ole.
Можно еще использовать какой-нибудь компонент для отчетов с возможностью экспорта в Excel. Хоть тот же Fast Report (поищи в варезнике)

vovanzp
Как экспортировать содержимое DBGrid в Excel или ClipBoard.

fixer84
Взял с сайта который ты дал код, переделал его под себя (чтобы сразу в Excel экспорт был). Вот, что получилось. При нажатии на кнопку вылетает сообщение типа "Access vioalation at address ....... in module 'Project 1'. Read of address ....", и одновременно с этим открывается Excel и туда вставляется все из буфера обмена =-0. В чем дело? Может ошибка в коде. Хелп плиз

procedure TForm1.Button1Click(Sender: TObject);
var
bm: TBookmark;
col, row: Integer;
sline: string;
mem: TMemo;
ExcelApp: Variant;
begin
DBGrid1.DataSource.DataSet.DisableControls;
bm := DBGrid1.DataSource.DataSet.GetBookmark;
DBGrid1.DataSource.DataSet.First;

ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.WorkBooks.Add(xlWBatWorkSheet);
ExcelApp.WorkBooks[1].WorkSheets[1].name := 'Тест';

// Сперва отправляем данные в memo
// работает быстрее, чем отправлять их напрямую в Excel
mem := TMemo.Create(Self);
mem.Visible := false;
mem.Parent := Form1;
mem.Clear;
sline := '';

// добавляем информацию для имён колонок
for col := 0 to DBGrid1.FieldCount-1 do
sline := sline + DBGrid1.Fields[col].DisplayLabel + #9;
mem.Lines.Add(sline);

// получаем данные из memo
for row := 0 to DBGrid1.DataSource.DataSet.RecordCount-1 do
begin
sline := '';
for col := 0 to DBGrid1.FieldCount-1 do
sline := sline + DBGrid1.Fields[col].AsString + #9;
mem.Lines.Add(sline);
DBGrid1.DataSource.DataSet.Next;
end;

ExcelApp.Workbooks[1].WorkSheets['Тест'].Paste;
ExcelApp.Visible := true;

FreeAndNil(ExcelApp);
DBGrid1.DataSource.DataSet.GotoBookmark(bm);
DBGrid1.DataSource.DataSet.FreeBookmark(bm);
DBGrid1.DataSource.DataSet.EnableControls;
end;

vovanzp

Код:
Procedure SendtoExcel(ShFile: String; Querys: TQuery);
Var
ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData: Variant;
BeginCol, BeginRow, j: integer;
RowCount, ColCount: Integer;
Begin
BeginCol := 1;
BeginRow := 3;

RowCount := Querys.RecordCount;
ColCount := Querys.FieldDefs.Count;

ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.Application.EnableEvents := false;

Workbook := ExcelApp.WorkBooks.Add(ShFile);
ArrayData := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);

Querys.DisableControls;
Querys.First;
While Not Querys.eof Do
Begin
For J := 1 To Querys.FieldDefs.Count Do
Begin
ArrayData[Querys.RecNo, J] :=
Querys.FieldbyName(Querys.FieldDefs.Items[j - 1].DisplayName).value;
End;
Querys.Next;
End;

Querys.EnableControls;
Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];
Cell2 := WorkBook.WorkSheets[1].Cells[BeginRow + RowCount - 1,
BeginCol + ColCount - 1];
Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];
Range.Value := ArrayData;
ExcelApp.Visible := True;
End;

vovanzp
Переписал процедуру, без memo и буфера обмена.


Код:
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,index: Integer;
ExcelApp,sheet: Variant;

begin
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.Visible := true;
ExcelApp.WorkBooks.Add(-4167);
ExcelApp.WorkBooks[1].WorkSheets[1].name := 'Тест';
sheet:=ExcelApp.WorkBooks[1].WorkSheets['Тест'];
index:=3; //c какой строки вставлять в excel'e
DBGrid1.DataSource.DataSet.First;
for i:=1 to DBGrid1.DataSource.DataSet.RecordCount do
begin
for j:=1 to DBGrid1.FieldCount do
sheet.cells[index,j]:=DBGrid1.fields[j-1].asstring;
inc(index);
DBGrid1.DataSource.DataSet.Next;
end;
end;

fixer84

При попытке скомпилировать, вылетает ошибка:
[Error] Unit1.pas(47): '[' expected but '.' found



Добавлено:
DroN_S

а что передается в качестве второго параметра процедуре?

ну и привел бы эту строку...
потому как тут совершенно не понятно какая из них 47-я

dyr farot

sheet.cells:=DBGrid1.fields.AsString;

vovanzp
Ты хотя бы код правильно скопировал, что ли.
Потому что нет такой строчки
Цитата:

sheet.cells:=DBGrid1.fields.AsString;

Кстати, в раздел uses не забыл ComObj добавить?
Код, который я привел выше, 100% рабочий.

vovanzp

Цитата:

а что передается в качестве второго параметра процедуре?

в первой строке указывается путь для файла, во-второй строке указывается что импортировать в Excel....
то бишь

Код:
SendtoExcel('c:\Sample.xls',DM.TQuery);

DroN_S
теперь понял. спасибо.

Такой вопрос: как возможно ли сделать экспорт из DBGrid в готовый шаблон (Excel файл)?

vovanzp
а чем тебя вышеприведённый пример не устраивает?

DroN_S
дело в том, что мне необходимо сделать шапку в документе. поэтому я хотел сделать шаблон, и просто потом туда все экспортировать