Выбор колонок в dbgrid

[artemavd]

ArtInt, а по стринггриду можно выполнять запросы как с дбгридом?

[S@fer]

Запросы ты формируешь при помощи компонента Query, а Стринггрид и дбгрид просто отображают полученный результат.

[artemavd]

S@fer, так это ж хорошо . Мне в принципе без разницы в чем результат и структуру таблицы отображать: в DBGride или StringGride. А вы можете привести пример кода отображения результата запроса в StringGrid?

[S@fer]

adoQuery.First;
i:=1;
While NOT AdoQuery.EOF do begin
  for j:=0 to adoQuery.recordCount-1 do
  Stringgrid.cellc[i,j+1]:=adoquery.Fields[j].asString; 
  i:=i+1;
  adoQuery.next;
end;

Вроде как-то так.

[artemavd]

Эта процедура выведет содержимое таблицы в stringgrid?

[artemavd]

Я делаю через BDE. Ваш код я попробовал сделать так:

procedure TForm2.Button1Click(Sender: TObject);
var
 i,j:integer;
begin
 Query1.First;
 i:=1;
 while not Query1.Eof do begin
  for j:=0 to Query1.RecordCount-1 do
   Form2.StringGrid1.Cells[i,j+1]:=Query1.Fields[j].AsString;
   i:=i+1;
   Query1.Next;
 end;
end;

Результат запроса на скриншоте. Вы подразумевали такой результат?

[S@fer]

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

Я делаю через BDE. Ваш код я попробовал сделать так:

procedure TForm2.Button1Click(Sender: TObject);
var
 i,j:integer;
begin
 Query1.First;
 i:=1;
 while not Query1.Eof do begin
  for j:=0 to Query1.RecordCount-1 do
   Form2.StringGrid1.Cells[i,j+1]:=Query1.Fields[j].AsString;
   i:=i+1;
   Query1.Next;
 end;
end;

Результат запроса на скриншоте. Вы подразумевали такой результат?

Я немного перепутал

procedure TForm2.Button1Click(Sender: TObject);
var
 i,j:integer;
begin
 Query1.First;
 i:=1;
 while not Query1.Eof do begin
  for j:=0 to Query1.RecordCount-1 do
   Form2.StringGrid1.Cells[j,i]:=Query1.Fields[j].AsString;
   i:=i+1;
   Query1.Next;
 end;
end;

Так должно заноситься правильно, попробуй менять координаты записи. И смотри, что получиться.
Первую строку можно сделать заголовком,
т.е.

Form2.StringGrid1.Cells[0,0]:='ID'
Form2.StringGrid1.Cells[1,0]:='FIO'
Form2.StringGrid1.Cells[2,0]:='Predmet'

[artemavd]

S@fer, спасибо) Это работает. Только у меня есть три вопроса.
1. Почему то не отображается третья колонка "Отчество".
2. Какая строчка в коде отвечает за позицию расположения начала колонок? Т.е. где указывается откуда начинается вствка записей?
3. Какую строчку кода вставить, чтобы в stringgride автоматически добавлялись строки?

[S@fer]

1. Почему то не отображается третья колонка "Отчество"

Склько столбцов в стринггриде?

2. Какая строчка в коде отвечает за позицию расположения начала колонок? Т.е. где указывается откуда начинается вствка записей?

 i:=1;
 while not Query1.Eof do begin
  for j:=0 to Query1.RecordCount-1 do
   Form2.StringGrid1.Cells[j,i]:=Query1.Fields[j].AsString;
   i:=i+1;
   Query1.Next;
 end;

j - номер стоблца,
i - номер строки,
Нумерация в стринггриде начинается с ячейки [0,0]
Первую строку можно сделать заголовком (в свойтсвах стринггрида есть FixedCols, FixedRows).

3. Какую строчку кода вставить, чтобы в stringgride автоматически добавлялись строки?

Сделай так перед началом цикла вставь

Stringgrid.rowCount:=Query1.RecordCount;

[artemavd]

S@fer, я дописал ваш код так:

var
 i,j:integer;
begin
 Query1.First;
 i:=1;
 StringGrid1.RowCount:=Query1.RecordCount;
  while not Query1.Eof do
   begin
    for j:=0 to Query1.RecordCount + 1 do
     StringGrid1.Cells[j,i]:=Query1.Fields[j].AsString;
     i:=i+1;
     Query1.Next;
   end;
end;

Но почему то выводится только одна строка, а в БД их у меня пока две. Число столбцов в гриде равно числу столбцов в таблице в БД. Почему только одна строка?