Ошибка при удалении из БД "Несоответствие типов данных в выражении условия отбора"

@Seruch · Регистрация: 11.11.2020

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

Приветствую. Проблема такая. Я нажимаю на нужную мне запись в DBGrid и по нажатию клавиши выбраная запись должна удаляться, но она не удаляется и ещё мне выводиться ошибка базы данных "Несоответствие типов данных в выражении условия отбора". Скрин прикрепил ниже. При этом сама прога не вылетает. Как это исправить? Много где искал в том числе и на форуме но не нашел ясного ответа. Пожалуйста помогите! Прикрепляю ниже скрины структур моих таблиц. И коды кнопок.
Кнопка удаления

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
void __fastcall TForm2::Button4Click(TObject *Sender)
{
 AnsiString number = DBGrid1->Fields[0]->AsString;
    AnsiString messageTxt = "При удаление записи будут удалены все записи связаные в анкете ";
    if(MessageDlg(messageTxt, mtConfirmation, TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes)
    {
        try{
        ADOQuery1->Active = false;
        ADOQuery1->SQL->Text = "DELETE FROM Owner WHERE (Номер_документу = '"+ number +"');";
        ADOQuery1->Active = true;
        } catch(Exception& e){
        }
            ADOQuery1->Active = false;
            ADOQuery1->SQL->Text="Select * from Owner";
            ADOQuery1->Active = true;
    }
 
}

В ADOQuery1 у меня:

SQL
1
SELECT * FROM Owner

На всякий случай скидываю еще кнопку добавления этих записей

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
void __fastcall TForm3::Button2Click(TObject *Sender)
{
     #define O Form1->ADOTable1
            for(int i=0;i<1;i++){
O->Last();
Form1->ADOQuery1->Active=false;
Form1->ADOQuery2->Active=false;
        Form1->ADOQuery3->Active=false;
            Form1->ADOQuery4->Active=false;
    int id =Form1->ADOTable1->FieldByName("Номер_документу")->AsInteger;
        O->Insert();
O->FieldByName("Номер_документу")->AsString=id+1; // +1 к каждой новой записи
        O->FieldByName("Імя")->AsString=Edit2->Text;
    O->FieldByName("Прізвище")->AsString=Edit3->Text;
        O->FieldByName("По батькові")->AsString=Edit4->Text;
    O->FieldByName("Адреса_прописки")->AsString=Edit5->Text;
        O->Post();
    }
    Form1->ADOQuery3->Active=true;
    Form1->ADOQuery1->Active=true;
    Form1->ADOQuery2->Active=true;
    Form1->ADOQuery4->Active=true ;
 
}

@TrollHammer · 06.10.2022, 01:10

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

ADOQuery1->SQL->Text = "DELETE FROM Owner WHERE (Номер_документу = '"+ number +"');"

на

C++
1
ADOQuery1->SQL->Text = "DELETE FROM Owner WHERE (Номер_документу = "+ number +")";

Вы полю "Номер документа" строковой подкидываете в запросе.

@Seruch · 06.10.2022, 01:21 **[ТС]**

TrollHammer, Оно удаляет, но выдает выдает две ошибки(( И увидеть его можно только после перезахода

@Seruch · 06.10.2022, 16:24 **[ТС]**

Кто то знает способы как это пофиксить?

@D1973 · 06.10.2022, 16:48

Seruch, без обид, но какой смысл что-то говорить, если Вы все равно этого не читаете и не делаете... Это касается и использование ADOTable и это вот Ваше:

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

увидеть его можно только после перезахода

я же уже объяснял, что надо делать, а толку-то?

@Seruch · 06.10.2022, 17:35 **[ТС]**

D1973, Делал все как вы говорили. я завел отдельный ADOQuery1 на этой форме (видно на скрине), При запуске програмы, то есть в FormCreate1 я прописал

C++
1
ADOQuery1->Open();

, после удаления перевыполнил этот запрос:

C++
1
2
ADOQuery1->Close();
ADOQuery1->Open();

Вот фулл код кнопки с вашими рекомандациями. Но оно ничего не меняет. Эти две ошибки по прежнему вылазят.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
void __fastcall TForm2::Button4Click(TObject *Sender)
{
 
 AnsiString number = DBGrid1->Fields[0]->AsString;
    AnsiString messageTxt = "При удаление записи будут удалены все записи связаные в анкете ";
    if(MessageDlg(messageTxt, mtConfirmation, TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes)
    {
        try{
        ADOQuery1->Active = false;
        ADOQuery1->SQL->Text = "DELETE FROM Owner WHERE (Номер_документу = "+ number +")";
        ADOQuery1->Close();   // 1 вставка после удаления
        ADOQuery1->Open();  //    2 вставка после удаления
 
        ADOQuery1->Active = true;
        } catch(Exception& e){
        }
            ADOQuery1->Active = false;
            ADOQuery1->SQL->Text="Select * from Owner";
            ADOQuery1->Active = true;
    }
 
}

@D1973 · 06.10.2022, 17:38

Ну а Датасет для грида? Он ведь у Вас, 100%, так и остался на ADOTable?

@Seruch · 06.10.2022, 17:49 **[ТС]**

D1973,

@Seruch · 06.10.2022, 22:43 **[ТС]**

Я ещё хочу чтобы оно если удаляло запись с этой таблицы, то удаляло связаную по номеру документу в таблице Account_data.
Вот написал запрос

C++
1
    DOQuery1->SQL->Text = "DELETE FROM Owner, Account_data WHERE (Owner.Номер_документу = "+ number +" AND Account_data.Номер_документу= " + number +")";

Но оно выдает эту ошибку. Что не так? Я же указал название обеих таблиц в начале и потом ещё поля приравнял.

@D1973 · 07.10.2022, 04:14

Seruch, Вам компонентов ADOQuery жалко? Что Вы в один компонент все пихаете, сделайте один компонент на добавление, один на удаление один для вывода в грид, один для вспомогательных операций... Дайте им нормальные осмысленные имена - и все Вам самому станет понятно, что, когда и зачем происходит.

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

Но оно ничего не меняет.

И не будет. Почитайте про блок try .. catch(), для чего он нужен и как он работает - все Вам станет понятно

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

ADOQuery1->Open(); // 2 вставка после удаления
ADOQuery1->Active = true;

Вот эти две строки - абсолютно одно и то же. Причем ни одно, ни другое в данном случае неуместно: метод Open() выполняется для запросов, которые возвращают некоторый набор данных. В языке SQL этому требованию удовлетворяет только команда SELECT. Команды INSERT, UPDATE, DELETE никакого НД не возвращают, о чем, собственно, Вам и говорится в сообщениях об ошибках из поста #3. Для выполнения таких команд используется метод ExecSQL()

Не по теме:

Вот еще одно подтверждение того, что Вы не читаете или не запоминаете того, что Вам пишут в Ваших темах: ответ на этот вопрос уже был дан в одной из ближайших Ваших тем.

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

Вот написал запрос

А теперь откройте любой букварь по SQL и прочитайте про синтаксис команды DELETE.
Вообще, в нормальных СУБД, такие вещи делаются при помощи инструментов, которые называются триггеры и которые позволяют осуществлять каскадные изменения данных без нарушения их целостности. Но эта чудо-поделка, которая Access, этого тупо не умеет и весь контроль целостности данных ложится на плечи клиентского приложения. Следовательно, прежде чем удалять главную запись, вы должны сначала удалить все подчиненные.

Не по теме:

И еще одно подтверждение того, что советы Вами просто пропускаются мимо ушей (ну, т.е. глаз в текущих реалиях): про то, что ничего удалять из БД нельзя, я тоже говорил уже...

@Bit_Man · 10.10.2022, 14:59

D1973,

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Seruch 2 / 2 / 0 Регистрация: 11.11.2020 Сообщений: 232
	06.10.2022, 01:21 [ТС]
	TrollHammer, Оно удаляет, но выдает выдает две ошибки(( И увидеть его можно только после перезахода Миниатюры 0

@Seruch 2 / 2 / 0 Регистрация: 11.11.2020 Сообщений: 232
	06.10.2022, 16:24 [ТС]
	Кто то знает способы как это пофиксить? 0

@D1973 Модератор 9921 / 6457 / 2457 Регистрация: 21.01.2014 Сообщений: 27,399 Записей в блоге: 3
	06.10.2022, 17:38
	Ну а Датасет для грида? Он ведь у Вас, 100%, так и остался на ADOTable? 0

@Seruch 2 / 2 / 0 Регистрация: 11.11.2020 Сообщений: 232
	06.10.2022, 17:49 [ТС]
	D1973, Миниатюры 0

@Bit_Man 480 / 393 / 113 Регистрация: 24.04.2012 Сообщений: 1,632 Записей в блоге: 3
	10.10.2022, 14:59
	D1973, 0