Перенос полей DbGrid в таблицу StringGrid

@Zhukovms · Регистрация: 12.08.2010

Студворк — интернет-сервис помощи студентам

Доброго времени суток! Подскажите, пожалуйста, как в Delphi перенести определенные столбцы из таблицы DBGrid в таблицу StringGrid.
Необходимо три столбца из DbGrid перенести в StringGrid. База данных в DbGrid создана в Paradox7

@unick12345 · 19.01.2011, 11:55

неважно что за база. пройтись по dbgrid и все что нужно писать в stringgrid. или как более понятно объяснить? если показать, то лучше проект видеть

@Zhukovms · 19.01.2011, 12:08 **[ТС]**

Нужно пройтись по БД и взять от туда только три столбца: Цена, Количество, Срок годности.
Эти три столца записать в StringGrid

@NatalyaS · 19.01.2011, 13:14

в компоненте запроса к базе qSql:
select price, amount, work_life from table

на форме:

i:=0;
SGrid.Cells[0, i] := 'Цена';
SGrid.Cells[1, i] := 'Количество';
SGrid.Cells[2, i] := 'Срок годности';

with qSql do
while not eof do begin
SGrid.Cells[0, i+1] := FieldByName(price).AsFloat;
SGrid.Cells[1, i+1] := FieldByName(amount).AsFloat;
SGrid.Cells[2, i+1] := FieldByName(work_life).AsFloat;
inc(i);
next;
end;

как-то так примерно

Добавлено через 13 минут

with qSql do
while not eof do begin
SGrid.Cells[0, i+1] := FieldByName(price).AsFloat;
SGrid.Cells[1, i+1] := FieldByName(amount).AsFloat;
SGrid.Cells[2, i+1] := FieldByName(work_life).AsFloat;
inc(i);
next;
end;

Это если запрос уже открыт, если нет, то перед while ... поставить open;, если открыть, то не помешает first;

@Zhukovms · 19.01.2011, 14:16 **[ТС]**

Наталья, не понял немного про это:
"в компоненте запроса к базе qSql:
select price, amount, work_life from table"

и куда это вписать?

@afganec · 19.01.2011, 14:41

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

Наталья, не понял немного про это:
"в компоненте запроса к базе qSql:
select price, amount, work_life from table"

и куда это вписать?

на форму кладешь Query(либо со вкладки ADO либо BDE) - далее Query.SQL.Text. Вот сюда и пишешь любой нужный тебе запрос.

@Zhukovms · 19.01.2011, 14:53 **[ТС]**

При попытке сформировать таблицу пишет ошибку "I/O error 6" и ругается на цикл while. Насколько я помню эта ошибка связана с закрытием/открытием таблицы. Может кто подскажет что неправильно. Последний раз программировал 5 лет назад, уже забыл все.

with Dmod.Table1 do
Open;
Dmod.Table1.First;
while not eof do begin
StringGrid111.Cells[0,i+1]:=Dmod.Table1.fieldbyname('Cena').AsStri ng;
StringGrid111.Cells[1,i+1]:=Dmod.Table1.fieldbyname('Kolich').AsSt ring;
StringGrid111.Cells[2,i+1]:=Dmod.Table1.fieldbyname('Garant').AsSt ring;
inc(i);
Next;
end;
Dmod.Table1.Close;

@NatalyaS · 19.01.2011, 16:37

Переменную i описали?
with Dmod.Table1 do begin
Open;
First;(это тут необязательно, потому что открыли запрос)
while not eof do begin
StringGrid111.Cells[0,i+1]:=fieldbyname('Cena').AsString;
StringGrid111.Cells[1,i+1]:=fieldbyname('Kolich').AsString;
StringGrid111.Cells[2,i+1]:=fieldbyname('Garant').AsString;
inc(i);
Next;
end;
end;
Dmod.Table1.Close;
Если делать как у вас, то непонятно к какому запросу eof относится.

@Zhukovms · 19.01.2011, 16:55 **[ТС]**

Вот полностью процедура

procedure TAnal.BitBtn1Click(Sender: TObject);
Var i:Integer;
begin
i:=0;
with Dmod.Table1 do
Open;
Dmod.Table1.First;
while not eof do begin
StringGrid111.Cells[0,i+1]:=Dmod.Table1.fieldbyname('Cena').AsStri ng;
StringGrid111.Cells[1,i+1]:=Dmod.Table1.fieldbyname('Kolich').AsSt ring;
StringGrid111.Cells[2,i+1]:=Dmod.Table1.fieldbyname('Garant').AsSt ring;
inc(i);
Next;
end;
Dmod.Table1.Close;
end;

i описал вроде. Как я понимаю функция EOF считывает таблицу Table1. Или не правильно что-то?

@NatalyaS · 19.01.2011, 17:13

Ну я же вам выше написала текст.
Ваша конструкция
with Dmod.Table1 do
Open;
относится только к команде Open;
А while not eof уже непонятно к какой таблице.
Если вы хотите, что бы и eof относилось к Table1, то после do ставим begin а в конце всех команд по работе с таблицей ставим end. Тогда все, что между begin и end, будет относится к этой таблице. И там внутри уже ее имя можно не указывать.
Eof (end of file) не считывает таблицу, а проверяет ее конец. Считывание осуществляется циклом while, передвижение по строкам осуществляет next.

@Zhukovms · 19.01.2011, 17:39 **[ТС]**

Все заработало! Спасибо большое, Наталья за помощь.

@NatalyaS · 19.01.2011, 17:43

Рада, что получилось

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в конфигурации КА2. Данные берутся из регистра сведений, по. . .

@Zhukovms 0 / 0 / 0 Регистрация: 12.08.2010 Сообщений: 23

	Перенос полей DbGrid в таблицу StringGrid 19.01.2011, 11:51. Показов 3265. Ответов 11 Метки нет (Все метки) Доброго времени суток! Подскажите, пожалуйста, как в Delphi перенести определенные столбцы из таблицы DBGrid в таблицу StringGrid. Необходимо три столбца из DbGrid перенести в StringGrid. База данных в DbGrid создана в Paradox7 0

@unick12345 1866 / 1186 / 192 Регистрация: 27.03.2009 Сообщений: 4,603
	19.01.2011, 11:55
	неважно что за база. пройтись по dbgrid и все что нужно писать в stringgrid. или как более понятно объяснить? если показать, то лучше проект видеть 0

@Zhukovms 0 / 0 / 0 Регистрация: 12.08.2010 Сообщений: 23
	19.01.2011, 12:08 [ТС]
	Нужно пройтись по БД и взять от туда только три столбца: Цена, Количество, Срок годности. Эти три столца записать в StringGrid 0

@Zhukovms 0 / 0 / 0 Регистрация: 12.08.2010 Сообщений: 23
	19.01.2011, 14:16 [ТС]
	Наталья, не понял немного про это: "в компоненте запроса к базе qSql: select price, amount, work_life from table" и куда это вписать? 0

@Zhukovms 0 / 0 / 0 Регистрация: 12.08.2010 Сообщений: 23
	19.01.2011, 14:53 [ТС]
	При попытке сформировать таблицу пишет ошибку "I/O error 6" и ругается на цикл while. Насколько я помню эта ошибка связана с закрытием/открытием таблицы. Может кто подскажет что неправильно. Последний раз программировал 5 лет назад, уже забыл все. with Dmod.Table1 do Open; Dmod.Table1.First; while not eof do begin StringGrid111.Cells[0,i+1]:=Dmod.Table1.fieldbyname('Cena').AsStri ng; StringGrid111.Cells[1,i+1]:=Dmod.Table1.fieldbyname('Kolich').AsSt ring; StringGrid111.Cells[2,i+1]:=Dmod.Table1.fieldbyname('Garant').AsSt ring; inc(i); Next; end; Dmod.Table1.Close; 0

@NatalyaS 1 / 1 / 0 Регистрация: 15.01.2011 Сообщений: 13
	19.01.2011, 16:37
	Переменную i описали? with Dmod.Table1 do begin Open; First;(это тут необязательно, потому что открыли запрос) while not eof do begin StringGrid111.Cells[0,i+1]:=fieldbyname('Cena').AsString; StringGrid111.Cells[1,i+1]:=fieldbyname('Kolich').AsString; StringGrid111.Cells[2,i+1]:=fieldbyname('Garant').AsString; inc(i); Next; end; end; Dmod.Table1.Close; Если делать как у вас, то непонятно к какому запросу eof относится. 0

@Zhukovms 0 / 0 / 0 Регистрация: 12.08.2010 Сообщений: 23
	19.01.2011, 16:55 [ТС]
	Вот полностью процедура procedure TAnal.BitBtn1Click(Sender: TObject); Var i:Integer; begin i:=0; with Dmod.Table1 do Open; Dmod.Table1.First; while not eof do begin StringGrid111.Cells[0,i+1]:=Dmod.Table1.fieldbyname('Cena').AsStri ng; StringGrid111.Cells[1,i+1]:=Dmod.Table1.fieldbyname('Kolich').AsSt ring; StringGrid111.Cells[2,i+1]:=Dmod.Table1.fieldbyname('Garant').AsSt ring; inc(i); Next; end; Dmod.Table1.Close; end; i описал вроде. Как я понимаю функция EOF считывает таблицу Table1. Или не правильно что-то? 0

@NatalyaS 1 / 1 / 0 Регистрация: 15.01.2011 Сообщений: 13
	19.01.2011, 17:13
	Ну я же вам выше написала текст. Ваша конструкция with Dmod.Table1 do Open; относится только к команде Open; А while not eof уже непонятно к какой таблице. Если вы хотите, что бы и eof относилось к Table1, то после do ставим begin а в конце всех команд по работе с таблицей ставим end. Тогда все, что между begin и end, будет относится к этой таблице. И там внутри уже ее имя можно не указывать. Eof (end of file) не считывает таблицу, а проверяет ее конец. Считывание осуществляется циклом while, передвижение по строкам осуществляет next. 0

@Zhukovms 0 / 0 / 0 Регистрация: 12.08.2010 Сообщений: 23
	19.01.2011, 17:39 [ТС]
	Все заработало! Спасибо большое, Наталья за помощь. 0

@NatalyaS 1 / 1 / 0 Регистрация: 15.01.2011 Сообщений: 13
	19.01.2011, 17:43
	Рада, что получилось 0