Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: СУБД и Delphi/Lazarus

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 699 RSS
←   Ноябрь 2007   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru
Открыта: 16-03-2006

Автор
Калашников О.А.

Статистика

699 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: СУБД и Delphi


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

Народное голосование ПРЕМИИ РУНЕТА-2007!
Голосуем за RusFAQ.ru >>

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / СУБД и Delphi

Выпуск № 417
от 15.11.2007, 12:35

Администратор:Gh0stik
В рассылке:Подписчиков: 310, Экспертов: 36
В номере:Вопросов: 1, Ответов: 1

Вопрос № 108794: Здраствуйте уважаемые эксперты, подскажите пожалуйста как вывести содержимое DBGrid в Stringgrid?...

Вопрос № 108.794
Здраствуйте уважаемые эксперты, подскажите пожалуйста как вывести содержимое DBGrid в Stringgrid?
Отправлен: 10.11.2007, 12:28
Вопрос задал: Спиваков Сергей Сергеевич (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Gh0stik
Здравствуйте, Спиваков Сергей Сергеевич!

На самом деле все достаточно просто Вы должны "пробежать" по всем записям таблицы БД подключенной с использование допустим TAdoConnection (у меня эта таблица имеет название tb_All), которая у Вас отображается в DBGrid и соответственно перенести их в Stringgrid.

Вот программная реализация:
var StrGrid:TStringGrid;
....
....
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
StrGrid:=TStringGrid.Create(Self);
with StrGrid do
begin
Parent:=TabSheet4;
Align:=alClient; //растягивает объект на всю доступную облать вкладки
ColCount:=tb_All.FieldCount; //устанавливаем нашей таблице количество столбцов = количеству полей
RowCount:=tb_All.RecordCount+1; //количество строк
FixedCols:=0; //количества фиксированных строк и ст олбцов
FixedRows:=1;
end;
tb_All.First;
for i:=0 to tb_All.FieldCount-1 do //заполняем заголовок таблицы названиями полей
StrGrid.Cells[i,0]:=tb_All.Fields[i].FieldName;
j:=1;
while not tb_All.Eof do //переносим все данные в наш объект
begin
for i:=0 to tb_All.FieldCount-1 do
StrGrid.Cells[i,j]:=tb_All.Fields[i].AsString;
inc(j);
tb_All.Next;
end;
end;

Помоему расписал все достаточно подробно, ежели чАвО не понятно пишите постараюсь объяснить.

Good Luck!!!
---------
Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Профессор)
Украина, Славянск
Организация: Славянский государственный педагогический университет (Кафедра алгебры)
ICQ: 289363162
----
Ответ отправлен: 11.11.2007, 15:36
Оценка за ответ: 5

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

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

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.62.1 от 14.11.2007 		Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru
В избранное