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

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

Не могу сохранить таблицу в БД

snake-as ©   (2008-05-13 13:37:00) 

Здравствуйте, я в этой теме новичок. У меня такая ситуация:
Я, используя ADOConnection подключаюсь к БД Access, с помощью ADOTable, загоняю таблицы в StringGrid. Потом хочу записать из StringGrid в таблицу самой БД(думаю, понятно объяснил:).. ) Вот, я делаю это вот так:

 for i := 1 to ADOTable807.RecordCount do
   ADOTable807DSDesigner.AsString := StringGrid807.Cells[0, i]

У меня выдается такая ошибка:
DataSet not on edit ot insert mode. Я понимаю, что это значит, но где это св-во выставить, так и не нашел. В ADOConnection поставил права ReadWrite. Помогите, пожалуйста.

---

snake-as   (2008-05-13 15:37:00) [1]

Понятно, протупил.. Думал он сначала таблицу начинает.. Спасибо!

---

Ega23   (2008-05-13 15:33:00) [2]


with ADOTable807 do
begin
 First;
 while not Eof do
 begin
   Edit;
   AsString := ....
   Post;
   Next;
 end;
end;



---

snake-as   (2008-05-13 15:22:00) [3]

Эх...

---

snake-as   (2008-05-13 15:15:00) [4]

> > for i := 1 to ADOTable807Боюсь даже спрашивать, сколько
> у тебя таблиц на форме

Это просто так называется:)

Скажите, а как, если мне нужно много строк записать, т.е., когда мы читали, то было
ADOTable807.Next. А здесь такое не получается.

---

DrPass   (2008-05-13 14:00:00) [5]

> for i := 1 to ADOTable807

Боюсь даже спрашивать, сколько у тебя таблиц на форме

---

snake-as   (2008-05-13 13:57:00) [6]

Спасибо большое.

---

Ega23   (2008-05-13 13:52:00) [7]

> А смысл? Для этого придуман DBGrid.


Ну хочет человек поизвращаться...

---

Sergey13   (2008-05-13 13:49:00) [8]

> [0] snake-as ©   (13.05.08 13:37)
> с помощью ADOTable, загоняю таблицы в StringGrid

А смысл? Для этого придуман DBGrid.

---

Ega23   (2008-05-13 13:40:00) [9]


for i := 1 to ADOTable807.RecordCount do
begin
  ADOTable807DSDesigner.Edit;
  ADOTable807DSDesigner.AsString := StringGrid807.Cells[0, i];
  ADOTable807DSDesigner.Post;
end;


---

Наверх