Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.05.2010, 00:26   #1
DimOn4Ik
Форумчанин
 
Регистрация: 10.10.2009
Сообщений: 206
По умолчанию Работа с Query [даты,удаление записей]

Помогите пожалуйста..Есть таблица.. Как выделенную запись удалить через TQuery ? И возможно ли вывести записи по текущий дате если поле с датой в формете DateTime т.е. дата и время.. Подскажите как
DimOn4Ik вне форума Ответить с цитированием
Старый 26.05.2010, 00:48   #2
Скандербег
Форумчанин
 
Регистрация: 04.04.2009
Сообщений: 438
По умолчанию

База какая? Какая таблица на форме (где выделяется запись для удаления)? Через какой компонент таблица на форме соединена с таблицей в базе?
Скандербег вне форума Ответить с цитированием
Старый 26.05.2010, 01:48   #3
DimOn4Ik
Форумчанин
 
Регистрация: 10.10.2009
Сообщений: 206
По умолчанию

База Paradox
Компонент DBGrid
Таблица test

в DBGrid выделенную запись удалить ( POPUpMenu)
DimOn4Ik вне форума Ответить с цитированием
Старый 26.05.2010, 06:54   #4
Alkatras
Пользователь
 
Регистрация: 25.05.2010
Сообщений: 24
По умолчанию

В событии OnCellClick DBGrid'a пропиши
Код:
Id:=Query.Fields[0].AsInteger; //определение Id строки которую будешь удалять
(если конечно такое поле в таблице есть)
затем для ButtonClick пиши
if (Application.MessageBox('Удалить запись?','Внимание!!!',
         mb_YesNo+mb_Iconquestion)=idYes) then  begin

         with Query do begin
         Query.SQL.Clear;
         Query.SQL.Add('DELETE FROM test');
         Query.SQL.Add('WHERE Id='+IntToStr(Id));
         Query.ExecSQL;
                                                                   end;

         with Query do begin
         Query.Active:=False;
         Query.SQL.Clear;
         Query.SQL.Add('SELECT * FROM test');
         Query.ExecSQL;
         Query.Active:=true;
                             end;
                                                                     end;

Последний раз редактировалось Stilet; 26.05.2010 в 08:01.
Alkatras вне форума Ответить с цитированием
Старый 26.05.2010, 08:03   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
with Query do begin
Query.SQL.Clear;
Это что за финт? Зачем ты with написал если в нем пишешь полный путь?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 26.05.2010, 08:27   #6
Alkatras
Пользователь
 
Регистрация: 25.05.2010
Сообщений: 24
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Это что за финт? Зачем ты with написал если в нем пишешь полный путь?
касяк. но не критично
Alkatras вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Query : редактирования записей SeregaIRK БД в Delphi 0 18.01.2010 20:44
Добавление записей в DBGrid с помощью Query Droid БД в Delphi 5 21.06.2009 03:02
Удаление нескольких записей Hobbit_88 БД в Delphi 5 23.04.2009 17:18
Удаление записей Blackmore БД в Delphi 2 26.05.2008 08:18
Удаление записей Arsgun БД в Delphi 7 09.07.2007 11:56