Удаление записей

@KMD · Регистрация: 26.03.2016

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

Удаление разрешить только для такой записи, на которую нет ссылок из дочерних таблиц, есть код, проблема в том, что он возвращает RecordCount >0 для любой записи :

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm5.N2Click(Sender: TObject);
   var a:integer;
begin
DataModule2.ADOQuery1.Close;
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.Add('SELECT * FROM T_osmotr, Incpector WHERE ( T_insp=T_number)');
DataModule2.ADOQuery1.Open;
a:=DataModule2.ADOQuery1.RecordCount;
 
if a <> 0 then
  begin
    MessageDlg('NO DELETE ', mtError,[mbOK], 0);
  end
else
  MessageDlg(' Delete', mtError, [mbOK], 0);
end;

@krapotkin · 30.06.2016, 20:39

и что нужно понять из вашего запроса?
взять все записи из двух таблиц где поле одной равно полю другой

как без порошка семицвета и вытяжки выхухоли узнать про строение

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

дочерних таблиц

?

@andevel · 01.07.2016, 15:58

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

DataModule2.ADOQuery1.SQL.Add('SELECT * FROM T_osmotr, Incpector WHERE ( T_insp=T_number)');

Попробуй запрос сделать так:

SQL
1
2
3
4
SELECT * FROM T_osmotr
JOIN Incpector ON T_insp = T_number
WHERE T_insp = "' + IntToStr(InspID) + '"
GROUP BY T_insp

InspID - код инспектора, для которого хотите проверить наличие записей в другой таблице

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

if a <> 0 then

Лучше так:

Delphi
1
if a > 0 then

@Пытливый · 02.07.2016, 02:16

в запросе группировка и * не дружат, надо конкретное поле или агрегатную функцию использовать

@andevel · 02.07.2016, 08:34

Сообщение от Пытливый

в запросе группировка и * не дружат, надо конкретное поле или агрегатную функцию использовать

Я проверил, у меня дружат

@Пытливый · 02.07.2016, 10:18

Это где же они у вас дружат? В какой БД? Не встречал что-то такой дружбы.

@andevel · 02.07.2016, 10:38

Сообщение от Пытливый

Это где же они у вас дружат? В какой БД? Не встречал что-то такой дружбы.

Mysql. Такой запрос объединяет поля. Могу скриншоты дать

SQL
1
SELECT * FROM dir_customers WHERE cstm_deleted=0  GROUP BY cstm_sex;

@Пытливый · 02.07.2016, 10:57

Да я верю, но это видимо какой-то изврат специфичный, классический SQL запрещает такое использование. Большинство популярных баз типа Акцеса,MSSQL,Interbase тоже не разрешают такой вольности, насчет Oracle не уверен, там тоже любят поэкспериментировать, но думаю тоже нельзя так делать. Так что лучше не использовать такую запись, во избежании получения вредного навыка.

@andevel · 02.07.2016, 11:22

Спасибо, буду знать)

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	02.07.2016, 02:16
	в запросе группировка и * не дружат, надо конкретное поле или агрегатную функцию использовать 0

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	02.07.2016, 10:18
	Это где же они у вас дружат? В какой БД? Не встречал что-то такой дружбы. 0

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	02.07.2016, 10:57
	Да я верю, но это видимо какой-то изврат специфичный, классический SQL запрещает такое использование. Большинство популярных баз типа Акцеса,MSSQL,Interbase тоже не разрешают такой вольности, насчет Oracle не уверен, там тоже любят поэкспериментировать, но думаю тоже нельзя так делать. Так что лучше не использовать такую запись, во избежании получения вредного навыка. 0

@andevel 4 / 4 / 0 Регистрация: 19.07.2015 Сообщений: 96
	02.07.2016, 11:22
	Спасибо, буду знать) 0