Здравствуйте! Почитал похожие темы, пробовал, как там предлагают решение, но все равно получаю ошибку. Суть в следующем. У меня в переменную
prod типа
int записывается число в зависимости от того, что выбрано. Теперь я по двум полям методом RecordCount нахожу одинаковые записи. Этот метод отлично работал на другой таблице. Но в другой таблице не могу записать сам запрос. Ругается на строку:
| C++ |
1
2
3
| AnsiString querySQL = "select *from plan_work where (ID_PRODUCE=" +
prod + ") and (NUMBER_LOT='" +
StrToInt(EdAnalysisNumLot->Text) + "')"; |
|
Вот сам код кнопки:
| 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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
| void __fastcall TFormMain::BtAnalysisSaveClick(TObject *Sender) {
/* Сохраняю в сводной таблице plan_work введенные данные */
try {
AnsiString querySQL = "select *from plan_work where (ID_PRODUCE=" +
prod + ") and (NUMBER_LOT='" +
StrToInt(EdAnalysisNumLot->Text) + "')";
DM->QueryAnalysisWork->Close();
DM->QueryAnalysisWork->SQL->Clear();
DM->QueryAnalysisWork->SQL->Add(querySQL);
DM->QueryAnalysisWork->Open();
/* ищу в таблице plan_work */
if (DM->QueryAnalysisWork->RecordCount == 0) {
/* если запись не найдена, то добавляю из полей редактирования */
DM->QueryAnalysisWork->SQL->Clear();
DM->QueryAnalysisWork->SQL->Add
("insert into plan_work (DATE_PLAN, ID_PRODUCE, ID_PACKING, WEIGHT_PLAN, NUMBER_LOT)"
);
DM->QueryAnalysisWork->SQL->Add
("values (:newDATE_PLAN, :newID_PRODUCE, :newID_PACKING, :newWEIGHT_PLAN, :newNUMBER_LOT)"
);
// беру новые значения из полей редактирования:
DM->QueryAnalysisWork->ParamByName("newDATE_PLAN")->AsDate =
DateTimePicker2->Date;
DM->QueryAnalysisWork->ParamByName("newID_PRODUCE")
->AsInteger = prod;
DM->QueryAnalysisWork->ParamByName("newID_PACKING")
->AsInteger = pack;
DM->QueryAnalysisWork->ParamByName("newWEIGHT_PLAN")->AsInteger =
StrToInt(EdAnalysisWeight->Text);
DM->QueryAnalysisWork->ParamByName("newNUMBER_LOT")->AsInteger =
StrToInt(EdAnalysisNumLot->Text);
try {
DM->QueryAnalysisWork->ExecSQL();
/* обновим бд завершаем транзакцию */
DM->QueryAnalysisWork->Transaction->Commit();
DM->QueryAnalisis->Open();
/* вновь активируем запрос,
обновим запрос на показ таблицы,
завершаем транзакцию*/
DM->QueryAnalysisVisio->Transaction->Commit();
// вновь активируем запрос
DM->QueryAnalysisVisio->Active = true;
}
catch (...) {
ShowMessage("Не получается добавить! ХЗ почему!!!");
}
}
else {
ShowMessage("Продукт с таким номером уже существует!!!");
}
}
catch (EDatabaseError& E) {
CatchDBMess(E.Message);
Application->MessageBox(L"Ошибка операции добавления!", L"Ошибка",
MB_OK + MB_ICONINFORMATION);
}
} |
|
(
