Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Циклы при добавлении в бд, помогите разобраться 
:(
    Опции темы
dize
Дата 4.9.2009, 17:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 128
Регистрация: 1.7.2009

Репутация: нет
Всего: нет
Код

  for i:=0 to count do
  begin
    if CheckBox2.Checked=true then
    begin
    for a:=0 to count2 do
    begin
      sql:= 'INSERT INTO Zayavki (Kod_klienta, Bumaga_socr, CLASSCODE, Kod_bumagi, [Action], Nomer_zayvki) VALUES ("'+id_clients[i]+'", "", "'+ck[a]+'", "", "KILL_ALL_ORDERS", "0")';

    showmessage(sql);
    ADOQ_new.Close;
    ADOQ_new.SQL.Clear;
    ADOQ_new.SQL.Text:=sql;
    ADOQ_new.ExecSQL;
    end; //конец блока вложенного цикла
    end  //конец блока условия
    else
    for z:=0 to count4 do
    begin
      for k:=0 to count3 do
      begin
      sql:= 'INSERT INTO Zayavki (Kod_klienta, Bumaga_socr, CLASSCODE, Kod_bumagi, [Action], Nomer_zayvki) VALUES ("'+cli[z]+'", "'+sec+'", "'+class_code+'", "'+id_paper+'", "KILL_ORDER", "'+nomer[k]+'")';

    showmessage(sql);
    ADOQ_new.Close;
    ADOQ_new.SQL.Clear;
    ADOQ_new.SQL.Text:=sql;
    ADOQ_new.ExecSQL;
      end;
    end;
    end;  //конец циклов

Необходимо, чтобы все после else работало по принципу перед ним,т.е. необходимо каким-то образом закончить цикл " for i:=0 to count do " и начать новый " for z:=0 to count4 do " для другого условия.

Это сообщение отредактировал(а) dize - 5.9.2009, 16:59
--------------------
- Скажите, Большой Брат существует в том же смысле что и я? - Вы не существуете.
PM MAIL   Вверх
Romikgy
Дата 4.9.2009, 19:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 4
Всего: 146
я лично не понял что нужно 


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
dize
Дата 4.9.2009, 20:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 128
Регистрация: 1.7.2009

Репутация: нет
Всего: нет
Необходимо после выполнения условия(if CheckBox2.Checked=true then) закончить цикл for i:=0 to count do, а для else начать новый for z:=0 to count4 do. В данном мной коде после else цикл for i:=0 to count do все еще работает, а хотелось бы его закончить.
--------------------
- Скажите, Большой Брат существует в том же смысле что и я? - Вы не существуете.
PM MAIL   Вверх
Staruha
Дата 5.9.2009, 22:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: нет
Всего: 27
  
Код

  if CheckBox2.Checked=true then
  begin

for i:=0 to count do
     begin
    for a:=0 to count2 do
    begin
      sql:= 'INSERT INTO Zayavki (Kod_klienta, Bumaga_socr, CLASSCODE, Kod_bumagi, [Action], Nomer_zayvki) VALUES ("'+id_clients[i]+'", "", "'+ck[a]+'", "", "KILL_ALL_ORDERS", "0")';

    showmessage(sql);
    ADOQ_new.Close;
    ADOQ_new.SQL.Clear;
    ADOQ_new.SQL.Text:=sql;
    ADOQ_new.ExecSQL;
    end; //конец блока вложенного цикла
    end  //конец блока условия
end//конец i
    else



--------------------
Возмездие настигнет
PM MAIL   Вверх
dize
Дата 5.9.2009, 23:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 128
Регистрация: 1.7.2009

Репутация: нет
Всего: нет
Не добавляет так в бд(access).
--------------------
- Скажите, Большой Брат существует в том же смысле что и я? - Вы не существуете.
PM MAIL   Вверх
Staruha
Дата 6.9.2009, 11:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: нет
Всего: 27
 
Код

 end; //конец блока вложенного цикла
   end;//конец i
 end  //конец блока условия

    else

Цитата

Не добавляет так в бд(access). 

на что ругается?

Это сообщение отредактировал(а) Staruha - 6.9.2009, 11:59


--------------------
Возмездие настигнет
PM MAIL   Вверх
Данкинг
Дата 6.9.2009, 12:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130
Цитата(dize @ 6.9.2009,  00:16)
Не добавляет так в бд(access).

Наверное, у тебя count =0. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0481 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.