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

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

IBsql [D7, FB]

Id ©   (2006-01-16 13:30:00) 

Здраствуйте, уважаемые.
Осваиваю IBSQL
  with DataModule1.IBSQL1 do begin
   Close;
   sql.Clear;
   SQL.Add('insert into Mainkop Values (');
   SQL.Add('gen_Id(g_main_id,1),'''','''+edit1.Text+''','''+RadioGroup1.Items[RadioGroup1.itemIndex]+'''');
   sql.Add(','''+RadioGroup10.Items[RadioGroup10.itemIndex]+''','''+DateEdit1.Text+''','''+edit2.Text+'''');
   SQL.Add(','''+edit5.Text+''','''+edit6.Text+''','''+edit7.Text+''','''+edit8.Text+''','''+edit3.Text+'''');
   SQL.Add(','''+edit4.Text+''','''+DateEdit2.Text+''','''+DateEdit3.Text+''','''+RadioGroup2.Items[RadioGroup2.itemIndex]+ '''');
   SQL.add(','''+RadioGroup3.Items[RadioGroup3.itemIndex]+''','''+ComboBox1.Text+''','''+DateEdit4.Text+'''');
   SQL.Add(','''+RadioGroup4.Items[RadioGroup4.itemIndex]+''','''+DateEdit5.Text+''','''+ComboBox2.Text+'''');
   SQL.Add(','''+DateEdit6.Text+''','''+ComboBox3.Text+''','''+edit9.Text+''','''+DateEdit7.Text+'''');
   SQL.Add(','''+Edit10.Text+''','''+Edit11.Text+''','''+edit12.Text+''','''+Edit13.Text+''','''+ComboBox4.Text+'''');
   SQL.Add(','''+RadioGroup5.Items[RadioGroup5.itemIndex]+''','''+RadioGroup7.Items[RadioGroup7.itemIndex]+'''');
   SQL.Add(','''+ComboBox5.Text+''','''+RadioGroup6.Items[RadioGroup6.itemIndex]+''','''+ComboBox7.Text+'''');
   SQL.Add(','''+Edit14.Text+''','''+ComboBox6.Text+''','''+ComboBox8.Text+''','''+ComboBox9.Text+'''');
   SQL.Add(','''+RadioGroup8.Items[RadioGroup8.itemIndex]+''','''+RadioGroup9.Items[RadioGroup9.itemIndex]+''','''+ComboBox 10.Text+''')');
Уже на третьей строчке ошибка:"List index out of bounds(-1)".
Какая такая особенность у данного компонента?

---

Sergey13   (2006-01-16 14:08:00) [1]

2[4] Id   (16.01.06 13:49)
Повеситься можно не от сложности, а от читаемости такого запроса. С транзакциями это никак не связано. Тем более с их длинной.

---

Id   (2006-01-16 13:52:00) [2]

> вот-вот, скорее всего, в радигруппе ничего не выбрано (нет
> точки по умолчанию)

Спасибо, так и есть

---

Id   (2006-01-16 13:49:00) [3]

> Повеситься можно от таких запросов

Согласен.
Прочитал ibase про транзакции - "Транзакции должны быть максимально короткими", затем указано "Больше кода? Увы, да", только исходя из этого пришлось так поступать.

> Попробуй через параметры все это дело

Попробую. У данного компонента надеюсь есть данное свойство

---

Desdechado   (2006-01-16 13:48:00) [4]

[2]
вот-вот, скорее всего, в радигруппе ничего не выбрано (нет точки по умолчанию)

---

Johnmen   (2006-01-16 13:38:00) [5]

Данный компонент здесь непричём.
Ошибка в RadioGroup1.Items[RadioGroup1.itemIndex]или в   RadioGroup10.Items[RadioGroup10.itemIndex]

---

Sergey13   (2006-01-16 13:35:00) [6]

Повеситься можно от таких запросов. 8-)
Попробуй через параметры все это дело. Самому же проще будет и серверу заодно.

---

Наверх