Запросы в цикле, можно ли так?

@Vid_012 · Регистрация: 29.10.2024

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

Я не профи, это первое знакомство с SQLite и все делаю методом проб. Можно ли в цикле значение вычитать и суммировать как в примере.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
double ka, fk, wk;
int a,b;
 for (x=0; y<z; x++)
{
if (a < b)
ka= fk;
 
      try {
     query->SQL->Text = "Update Tabl SET Kf = Kf - (:ka) WHERE Name == (:TbName)";
     query->Params->ParamByName("ka") ->Value = ka;
     query->Params->ParamByName("TbName") ->AsString = TbName;
     query->ExecSQL();
    } catch (Exception &E) {
     ShowMessage(" Error ka - ");
    }
 
//-----------
if (a >b)
ka= wk;
 
     try {
     query->SQL->Text = "Update Tabl SET Kf = Kf + (:ka) WHERE Name == (:TbName)";
     query->Params->ParamByName("ka") ->Value = ka;
     query->Params->ParamByName("TbName") ->AsString = TbName;
     query->ExecSQL();
    } catch (Exception &E) {
     ShowMessage(" Error ka + ");
    }
                                      
 }

@Vid_012 · 30.11.2024, 08:03 **[ТС]**

Когда выполняется этот запрос в отдельном юните, который создал, при запуске программы выскакивает каждый цикл

C++
1
ShowMessage("Error Read Pos  From Tabl " + newkl );

на форме откуда я его перенес в юнит, такого не было

@D1973 · 30.11.2024, 08:15

Значит, возникает исключение, надо смотреть текст этого исключения, а не Ваше сообщение "Error Read Pos From Tabl "

@Vid_012 · 30.11.2024, 08:20 **[ТС]**

Сообщение от D1973

надо смотреть текст этого исключения

где и как его смотреть?

@D1973 · 30.11.2024, 09:28

Сообщение от Vid_012

где и как его смотреть?

Вот так попробуйте:

C++
1
2
3
4
5
6
try {
      //...
}
catch (Exception &E) {
     ShowMessage(" Error " + E.Message);
}

@Vid_012 · 30.11.2024, 10:35 **[ТС]**

Появляется такая мессага:

@Vid_012 · 30.11.2024, 10:37 **[ТС]**

Перевел что соединение не определено, попробовал как раньше

C++
1
2
3
4
5
6
TFDConnection* Connect2 = new TFDConnection(NULL);
TFDQuery*   query2 = new TFDQuery(NULL);
Connect2->DriverName = "SQLite";
String PatchFire = PathDB;           
Connect2->Params->Values["DataBase"] = PatchFire;
Connect2->Open();

но такая же мессага

@D1973 · 30.11.2024, 11:19

Ну а компоненты TFDConnection и ТFDQuery кто связывать между собой будет?

Я, честно говоря, не понимаю, в чем прикол динамического создания подключения, запросов и т.д. Почему нельзя сложить эти компоненты в отдельный DataModule и пользоваться нормально?

@Vid_012 · 30.11.2024, 11:40 **[ТС]**

Сообщение от D1973

Ну а компоненты TFDConnection и ТFDQuery кто связывать между собой будет?

Упустил... исправил и заработало!

Сообщение от D1973

отдельный DataModele

не знаю о чем речь, хотя интересно в чем его плюсы, делаю как знаю, главное что бы работало
Спасибо!!

@D1973 · 30.11.2024, 11:48

Сообщение от Vid_012

не знаю о чем речь

DataModule - это, по сути, как раз то же самое, что Вы пытаетесь сделать при помощи отдельного модуля - специальная невизуальная форма для размещения на ней компонентов для доступа к базам данных, которая подключается к остальным формам и модулям проекта, тем, из которых планируется обращение к БД.

@Vid_012 · 30.11.2024, 11:54 **[ТС]**

Сообщение от D1973

DataModule - это, по сути, как раз то же самое, что Вы пытаетесь сделать при помощи отдельного модуля - специальная невизуальная форма для размещения на ней компонентов для доступа к базам данных, которая подключается к остальным формам и модулям проекта, тем, из которых планируется обращение к БД.

Точно, вспомнил, я с ней экспериментировал, но уже и забыл как она называется, и действительно там все просто было

@Vid_012 · 01.12.2024, 19:25 **[ТС]**

D1973, Напомнили вы про DataModule и я удалил юнит, а добавил 4 DataModule разбив запросы по блокам. Стало намного читабельнее и удобнее что править. Удобная штука!
Спасибо!

Новые блоги и статьи Все статьи Все блоги /
Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .

@D1973 Модератор 9952 / 6487 / 2461 Регистрация: 21.01.2014 Сообщений: 27,487 Записей в блоге: 3
	30.11.2024, 08:15
	Значит, возникает исключение, надо смотреть текст этого исключения, а не Ваше сообщение "Error Read Pos From Tabl " 0

@Vid_012 0 / 0 / 0 Регистрация: 29.10.2024 Сообщений: 29
	30.11.2024, 10:35 [ТС]
	Появляется такая мессага: Миниатюры 0

@D1973 Модератор 9952 / 6487 / 2461 Регистрация: 21.01.2014 Сообщений: 27,487 Записей в блоге: 3
	30.11.2024, 11:19
	Сообщение было отмечено Vid_012 как решение Решение Ну а компоненты TFDConnection и ТFDQuery кто связывать между собой будет? Я, честно говоря, не понимаю, в чем прикол динамического создания подключения, запросов и т.д. Почему нельзя сложить эти компоненты в отдельный DataModule и пользоваться нормально? 1

@Vid_012 0 / 0 / 0 Регистрация: 29.10.2024 Сообщений: 29
	01.12.2024, 19:25 [ТС]
	D1973, Напомнили вы про DataModule и я удалил юнит, а добавил 4 DataModule разбив запросы по блокам. Стало намного читабельнее и удобнее что править. Удобная штука! Спасибо! 0

Запросы в цикле, можно ли так?

Решение