SQL запросы.

@HalSaw · Регистрация: 18.12.2009

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

Здраствуйте.

Есть база данных на парадоксе. Нужно написать запросы :
1) Удалить записи лиц со стажем > 20 лет.
2) Показать записи лиц, принятых на работу в определенный период.

1* Стаж - calculated поле. SQL на него ругается =\
2* Ругается на непонятный формат даты наверное.

Посмотрите, пожалуйста, что не так.

@HalSaw · 24.06.2011, 09:35 **[ТС]**

Насчет первого запроса :

Delphi
1
2
3
4
5
  DataModule2.Query1.Close;
  DataModule2.Query1.SQL.Clear;
  DataModule2.Query1.SQL.Add('delete from General');
  DataModule2.Query1.SQL.Add('where Datapost<' + QuotedStr(IntToStr(Dayof(Now)) + '.0' + IntToStr(MonthOf(Now)) + '.' + IntToStr(YearOf(now)-20)));
  DataModule2.Query1.Open;

Теперь не ругается, но удаялет все записи =\

@MsGuns · 24.06.2011, 10:24

Поставьnе после Open

ShowMessage(DataModule2.Query1.SQL.Text)

И полюбуйтесь шо Вы суете в условие.

Добавлено через 5 минут
А вообще надо использовать параметрические запросы типа

Delphi
1
2
3
4
5
6
7
8
9
with DataModule2.Query1 do
   try
    SQL.Text := 'delete from General where Datapost<:dt';
    ParamByName('dt').AsDateTime := StrToDateTime(QuotedStr(IntToStr(Dayof(Now))+
                                      '.0' + IntToStr(MonthOf(Now)) + '.' + IntToStr(YearOf(now)-20)));
    Open;
   except
     ShowMessage('Ошибка удаления');
   end;

Добавлено через 1 минуту
QuotedStr конечно не нужен

@HalSaw · 24.06.2011, 10:36 **[ТС]**

C Open он ругается - Error creating cursor handle
Или то, что в квери1 не находит параметр дт.
С ExecSQL не ругается, но все удаляет. Хотя и с Open тоже все удаляет)

@MsGuns · 24.06.2011, 12:42

Вы допускаете одну из самых любимых "детских" ошибок - путаете методы Open и ExecSQL
А вот если бы Вы воспользовались справкой хотя бы однажды, то не было б у Вас никакой каши в голове, а только ростбиф с жареным колечками луком и картофелем фри

@HalSaw · 24.06.2011, 12:59 **[ТС]**

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

Вы допускаете одну из самых любимых "детских" ошибок - путаете методы Open и ExecSQL
А вот если бы Вы воспользовались справкой хотя бы однажды, то не было б у Вас никакой каши в голове, а только ростбиф с жареным колечками луком и картофелем фри

А толку то, если бы работало хотя бы с одним из них еще )

@Grossmeister · 24.06.2011, 13:02

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

А толку то, если бы работало хотя бы с одним из них еще )

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

@MsGuns · 24.06.2011, 14:24

Delphi
1
2
3
4
5
6
7
8
9
with DataModule2.Query1 do
   try
    SQL.Text := 'delete from General where Datapost<:dt';
    ParamByName('dt').AsDateTime := StrToDateTime(QuotedStr(IntToStr(Dayof(Now))+
                                      '.0' + IntToStr(MonthOf(Now)) + '.' + IntToStr(YearOf(now)-20)));
    [B]ExecSQL[/B];
   except
     ShowMessage('Ошибка удаления');
   end;

Просто пропустил

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@HalSaw 2 / 2 / 1 Регистрация: 18.12.2009 Сообщений: 117
	24.06.2011, 10:36 [ТС]
	C Open он ругается - Error creating cursor handle Или то, что в квери1 не находит параметр дт. С ExecSQL не ругается, но все удаляет. Хотя и с Open тоже все удаляет) 0

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	24.06.2011, 12:42
	Вы допускаете одну из самых любимых "детских" ошибок - путаете методы Open и ExecSQL А вот если бы Вы воспользовались справкой хотя бы однажды, то не было б у Вас никакой каши в голове, а только ростбиф с жареным колечками луком и картофелем фри 0