Циклическая запись в базу

@Александр005 · Регистрация: 08.11.2014

Студворк — интернет-сервис помощи студентам

Всем доброго времени суток) Подскажите, пожалуйста, как организовать циклическую запись в таблицу базы данных. Есть таблица ДОМА(Код_дома, номер_дома), есть таблица КВАРТИРЫ(Код_квартиры, код_дома, номер_квартиры). Дома выбираються из LookupComboBox-а, есть два Edit-а - в одном пишеться номер первой квартиры, во втором номер последней квартиры.
Как при нажатии на кнопку записать в базу данных номера квартир от первого до последнего?(с учетом кода дома)
Работаю с ADO, пробывал много чего интиресного но чёт никак.

Помогите пожалуйста)

@northener · 29.10.2016, 01:07

Сообщение от Александр005

пробывал много чего интиресного

Покажи хоть одну свою пробу "интиресного".

@v90376 · 29.10.2016, 11:58

Надо сделать цикл от первой квартиры до последней, и писать в базу квартиры выбранного дома.

@Александр005 · 29.10.2016, 20:56 **[ТС]**

пробовал через sql

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
k,z,l,dbl:integer;
lol:integer;
begin
k:=StrToInt(Edit1.Text); - первая квартира
z:=StrToInt(Edit2.Text); - последняя квартира
dbl:=DBLookupComboBox2.KeyValue; - дом
while k<> z do
begin
l:=k+1;
ADOQuery1.Close;
ADOQuery1.Active:=true;
if ADOQuery1.Modified then
ADOQuery1.Close();
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO Квартири (Номер_квартиры,Код_дома) values(:lol,:cb)');
ADOQuery1.Parameters.ParamByName('lol').Value:=l;
ADOQuery1.Parameters.ParamByName('cb').Value:=dbl;
ADOQuery1.ExecSQL;
ADOQuery1.Post;
end;
end;

пробовал с дбэдитами..

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
k,z,dbl:integer;
begin
k:=StrToInt(DBEdit1.Text); - первая квартира
z:=StrToInt(Edit1.Text);  - последняя квартира
dbl:=DBLookupComboBox2.KeyValue; - дом
if ADOQuery1.Modified then
ADOQuery1.Post;
 
while k<> z do
 begin
k:=k+1;
DBLookupComboBox2.KeyValue:=dbl;
DBEdit1.Text:=IntToStr(k);
if ADOQuery1.Modified then
ADOQuery1.Post;
end;

Чувствую что-то там не так) но не знаю, что...

@northener · 30.10.2016, 02:16

Сообщение от Александр005

Чувствую что-то там не так) но не знаю, что...

Да всё не так.
Метод ненаучного тыка очень редко помогает.
Буде завтра свободное время, попробую помочь.

@Александр005 · 30.10.2016, 12:02 **[ТС]**

Помогите пожалуйста)

@qwertehok · 30.10.2016, 15:15

Сообщение от Александр005

ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('INSERT INTO Квартири (Номер_квартиры,Код_дома) values(:lol,:cb)'); ADOQuery1.Parameters.ParamByName('lol'). Value:=l; ADOQuery1.Parameters.ParamByName('cb').V alue:=dbl; ADOQuery1.ExecSQL;

вот эта часть правильная

а вот что за условие в цикле странное

Сообщение от Александр005

while k<> z do

у вас же в цикле ни K ни Z не меняется

@Александр005 · 30.10.2016, 15:57 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
while k<>z do
begin
k:=k+1;
ADOQuery1.Insert;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO Квартиры (Номер_квартиры,Код_дома) values(:lol,:cb)');
ADOQuery1.Parameters.ParamByName('lol').Value:=k;
ADOQuery1.Parameters.ParamByName('cb').Value:=dbl;
ADOQuery1.ExecSQL;
ADOQuery1.Post;
end;

Попробывал так, все равно чет не хочет..
Ругается, что не находиться в режиме редактирования, а при выходе что возвращает значение...
В чем проблема?

@qwertehok · 30.10.2016, 21:20

Зачем вы делаете квери.инсерт?
И квери.клосе?
И квери.пост?

Достаточно 1 sql запроса

@Александр005 · 31.10.2016, 11:56 **[ТС]**

qwertehok, Спасибо большое)
проблему решил...

Добавлено через 36 секунд
qwertehok, Спасибо большое)
проблему решил...

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

Циклическая запись в базу

Решение

Решение

@Александр005 0 / 0 / 0 Регистрация: 08.11.2014 Сообщений: 30

	Циклическая запись в базу 28.10.2016, 23:17. Показов 2456. Ответов 9 Метки нет (Все метки) Всем доброго времени суток) Подскажите, пожалуйста, как организовать циклическую запись в таблицу базы данных. Есть таблица ДОМА(Код_дома, номер_дома), есть таблица КВАРТИРЫ(Код_квартиры, код_дома, номер_квартиры). Дома выбираються из LookupComboBox-а, есть два Edit-а - в одном пишеться номер первой квартиры, во втором номер последней квартиры. Как при нажатии на кнопку записать в базу данных номера квартир от первого до последнего?(с учетом кода дома) Работаю с ADO, пробывал много чего интиресного но чёт никак. Помогите пожалуйста) 0

@v90376 4 / 4 / 1 Регистрация: 25.07.2016 Сообщений: 35
	29.10.2016, 11:58
	Надо сделать цикл от первой квартиры до последней, и писать в базу квартиры выбранного дома. 0

@Александр005 0 / 0 / 0 Регистрация: 08.11.2014 Сообщений: 30
	30.10.2016, 12:02 [ТС]
	Помогите пожалуйста) 0

@qwertehok 5978 / 4553 / 1095 Регистрация: 29.08.2013 Сообщений: 28,180 Записей в блоге: 3
	30.10.2016, 21:20
	Сообщение было отмечено Александр005 как решение Решение Зачем вы делаете квери.инсерт? И квери.клосе? И квери.пост? Достаточно 1 sql запроса 1

@Александр005 0 / 0 / 0 Регистрация: 08.11.2014 Сообщений: 30
	31.10.2016, 11:56 [ТС]
	qwertehok, Спасибо большое) проблему решил... Добавлено через 36 секунд qwertehok, Спасибо большое) проблему решил... 0