| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

DBGrid и работа с ним

voe ©   (2007-04-19 17:43:00) 

Есть вопрос:
НА форме имеется DBGRID в котором из базы IB по средствам SQL выбраны данные мне нужно считать каждую строку из DBGRIDа и запихнуть в другую таблицу.
Как мне это сделать?

---

Johnmen   (2007-04-20 14:14:00) [1]

> pavel_guzhanov ©   (20.04.07 14:06) [17]
> Вопрос относился к посту №6 :о))

А-а-а... Ну это гарантированно работать не будет...

---

pavel_guzhanov   (2007-04-20 14:06:00) [2]

> > >pavel_guzhanov ©   (20.04.07 10:00) [ 6] И это будет работать
>
> > во всех случаях ?

Вопрос относился к посту №6 :о))

---

Johnmen   (2007-04-20 14:01:00) [3]

> pavel_guzhanov ©   (20.04.07 11:01) [11]
> if not IBQuery.IsEmpty then


> MsGuns ©   (20.04.07 11:29) [13]
> >pavel_guzhanov ©   (20.04.07 10:00) [6] И это будет работать
> во всех случаях ?

Это будет работать везде и всегда, во всех случаях, при любой погоде...
Достаточно сначала сделать  IBQuery.Open. :)))

---

MsGuns   (2007-04-20 13:49:00) [4]

>pavel_guzhanov ©   (20.04.07 12:19) [14]
>Насчет всех случаев ничего не скажу, но у меня работает в нескольких небольших программках....

В любом случае ТАК делать не стОит
Имеется в виду вырезать гланды через задний проход ;)

---

pavel_guzhanov   (2007-04-20 12:19:00) [5]

> И это будет работать во всех случаях ?

Насчет всех случаевничего не скажу, но у меня работает в нескольких небольших программках....

---

MsGuns   (2007-04-20 11:29:00) [6]

>pavel_guzhanov ©   (20.04.07 10:00) [6]

И это будет работать во всех случаях ?

---

voe   (2007-04-20 11:06:00) [7]

> pavel_guzhanov ©   (


Благадарю!

---

pavel_guzhanov   (2007-04-20 11:01:00) [8]

if not IBQuery.IsEmpty then

---

voe   (2007-04-20 10:48:00) [9]

Вопрос на последок как определить нашел что нибуть запрос select ?
Компонент использую IBQuery.
Благадарю всех кто помагал.

---

pavel_guzhanov   (2007-04-20 10:42:00) [10]

> Непримите за полного дауна но что должнобыть между with
> и do?

имя твоего Query, с которым связан DBGrid, из которого тебе надо достать данные....

---

voe   (2007-04-20 10:37:00) [11]

> dbgrid привязан допустим к ADOQuery, ну не важно или PFIBDataSet
> и т.д.
> with Query do
> begin
>   while not eof do
>      begin
>         s:=fieldbyname('name').asstring;
>         next;
>      end;
> end;


Непримите за полного дауна но что должнобыть между with и do?

---

zdm   (2007-04-20 10:14:00) [12]

> pavel_guzhanov ©   (20.04.07 10:00) [6]

А ЗАЧЕМ!?!?!?!?
dbgrid привязан допустим к ADOQuery, ну не важно или PFIBDataSet и т.д.
with Query do
begin
  while not eof do
     begin
        s:=fieldbyname('name').asstring;
        next;
     end;
end;

---

pavel_guzhanov   (2007-04-20 10:00:00) [13]

пардон:о)
тоесть вот так:

var s:String; //переменная, в которую считываем данные
   Row, Col:Integer;

begin
...
for row := 0 to DBGrid1.DataSource.DataSet.RecordCount-1 do
begin
  for col := 1 to 12 do //считываем данные с первого по 12-й столбец
    begin
      S:=DBGrid1.Fields[col].AsString;
     // далее помещаем S в другую таблицу
     ...

     ...
    end; // окончание цикла по столбцам
  DBGrid1.DataSource.DataSet.Next;
end; // окончание цикла по строкам
...
end;

---

pavel_guzhanov   (2007-04-20 09:56:00) [14]

var s:String; //переменная, в которую считываем данные
    Row, i:Integer;

begin
...
for row := 0 to DBGrid1.DataSource.DataSet.RecordCount-1 do
 begin
   i:=1;
   for col := 1 to 12 do //считываем данные с первого по 12-й столбец
     begin
       S:=DBGrid1.Fields[col].AsString;
      // далее помещаем S в другую таблицу
      ...

      ...
       inc(i);
     end; // окончание цикла по столбцам
   DBGrid1.DataSource.DataSet.Next;
 end; // окончание цикла по строкам
...
end;

---

Johnmen   (2007-04-20 09:54:00) [15]

"Не хочется тебя расстраивать, но тут такое дело... Короче, в ячейках DBGrid'а вообще ничего нет. Этот грид является окном на набор данных. Ну это как ты смотришь в телек, а там люди, но ты же понимаешь, что люди не сидят в телеке...
ПонЯл?"(c) Приятно себя цитировать :)

---

zdm   (2007-04-20 09:51:00) [16]

> voe   (20.04.07 09:48) [2]
> Спасибо.Но как мне считать из DBgid данные?

Не понял, данные хранятся не в dbgrid, а dataset...или я от жизни отстал :)

---

voe   (2007-04-20 09:48:00) [17]

Спасибо.
Но как мне считать из DBgid данные?

---

Desdechado   (2007-04-19 17:50:00) [18]

with( query ) do begin
First;
while( not eof ) do
 считать
 запихать
 next;
end;
end;

---

Наверх