Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
2 из 2 « 1 2
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
2 / 1 / 0
Регистрация: 17.06.2016
Сообщений: 65

Не могу отфильтровать по полю дата

01.08.2018, 09:57. Показов 1334. Ответов 21
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Добрый день! Помогите с моим вопросом. Не могу отфильтровать по дате. Есть таблица с данными. В Accese поле data_poverki стоит тип дата/время. при фильтрации по дате выходит сообщение "не удается открыть фильтр"
Delphi
1
2
3
4

qry1.Filtered:=false;
//qry1.Filter:=' data_poverki=' + '''11.07.2017''';
qry1.Filter:=' data_poverki LIKE '+ #39  + Edit9.Text + '%' + #39;
qry1.Filtered:=true;
При смене типа на текстовой все нормально, фильтрация проходит. Как сделать так, что все работало когда в базе данных стоит тип дата/время? Спасибо.Вот полный код
Delphi
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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Menus, ComObj;
 
type
  TForm1 = class(TForm)
    dbgrd1: TDBGrid;
    ds1: TDataSource;
    con1: TADOConnection;
    qry1: TADOQuery;
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    btn4: TButton;
    btn5: TButton;
    btn6: TButton;
    btn7: TButton;
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    edt4: TEdit;
    edt5: TEdit;
    edt6: TEdit;
    edt7: TEdit;
    edt8: TEdit;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    lbl6: TLabel;
    lbl7: TLabel;
    lbl8: TLabel;
    btn8: TButton;
    btn9: TButton;
    btn10: TButton;
    btn11: TButton;
    Edit9: TEdit;
    ComboBox1: TComboBox;
    btn14: TButton;
    lbl9: TLabel;
    lbl10: TLabel;
    lbl11: TLabel;
    CheckBox1: TCheckBox;
    btn12: TButton;
    btn13: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn9Click(Sender: TObject);
    procedure btn8Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn10Click(Sender: TObject);
    procedure btn11Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure dbgrd1CellClick(Column: TColumn);
    
    procedure Edit9Change(Sender: TObject);
    procedure btn14Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure btn12Click(Sender: TObject);
    procedure btn13Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure btn7Click(Sender: TObject);
   
 
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2, Unit3;
 
{$R *.dfm}
 procedure TForm1.FormCreate(Sender: TObject);
begin
   try
qry1.SQL.Clear;
qry1.SQL.Add('SELECT * FROM poverka');
qry1.Active:=True;
 except
    on e:Exception do
end;
 end;
procedure TForm1.btn1Click(Sender: TObject);
begin
try
if (Trim( edt1.Text)='') or (Trim( edt2.Text)='')
or (Trim( edt3.Text)='')or (Trim( edt4.Text)='')
or (Trim( edt5.Text)='') or (Trim( edt6.Text)='')
or (Trim( edt7.Text)='')or (Trim( edt8.Text)='')
 then
begin
exit;
end;
qry1.Insert;
//qry1.FieldByName('data_poverki').AsString:= edt1.Text;
qry1.FieldByName('data_poverki').AsDateTime:=StrToDate(edt1.Text);
qry1.FieldByName('zakazchik').AsString:=edt2.Text;
qry1.FieldByName('tip_si').AsString:= edt3.Text;
qry1.FieldByName('god_vipuska').AsInteger:= StrToInt(edt4.Text);
qry1.FieldByName('zav_nomer').AsString:= edt5.Text;
qry1.FieldByName('mpi').AsInteger:= StrToInt(edt6.Text);
qry1.FieldByName('goden_do').AsString:= edt7.Text;
qry1.FieldByName('sv_poverki').AsString:= edt8.Text;
edt1.Clear;
edt2.Clear;
edt3.Clear;
edt4.Clear;
edt5.Clear;
edt6.Clear;
edt7.Clear;
edt8.Clear;
except
on e:Exception do
end;
end;
 
procedure TForm1.btn9Click(Sender: TObject);
begin
 qry1.Last;
end;
 
procedure TForm1.btn8Click(Sender: TObject);
begin
 qry1.First;
end;
 
procedure TForm1.btn2Click(Sender: TObject);
begin
 try
if Application.MessageBox('Óäàëèòü äàííûå?','',MB_YESNO)=IDYES then
begin
qry1.Delete;
end;
except
on e:Exception do
end;
end;
 
procedure TForm1.btn10Click(Sender: TObject);
begin
qry1.Next;
end;
 
procedure TForm1.btn11Click(Sender: TObject);
begin
qry1.Prior;
end;
 
procedure TForm1.btn5Click(Sender: TObject);
begin
qry1.Refresh;
end;
 
procedure TForm1.btn4Click(Sender: TObject);
begin
 try
qry1.Active:=True;
qry1.Post;
except
on e:Exception do
end;
end;
 procedure TForm1.dbgrd1CellClick(Column: TColumn);
begin
try
//edt1.Text:=qry1.FieldByName('data_poverki').AsString;
edt1.Text:=DateToStr(qry1.FieldByName('data_poverki').AsDateTime);
edt2.Text:=qry1.FieldByName('zakazchik').AsString;
edt3.Text:=qry1.FieldByName('tip_si').AsString;
edt4.Text:=qry1.FieldByName('god_vipuska').AsString;
//edt4.Text:=IntToStr(qry1.FieldByName('god_vipuska').AsInteger);
edt5.Text:=qry1.FieldByName('zav_nomer').AsString;
edt6.Text:=qry1.FieldByName('mpi').AsString;
//edt6.Text:=IntToStr(qry1.FieldByName('mpi').AsInteger);
edt7.Text:=qry1.FieldByName('goden_do').AsString;
edt8.Text:=qry1.FieldByName('sv_poverki').AsString;
except
on e:Exception do
end;
end;
 
procedure TForm1.btn3Click(Sender: TObject);
begin
 begin
try
qry1.Edit;
//qry1.FieldByName('data_poverki').AsString:= edt1.Text;
qry1.FieldByName('data_poverki').AsDateTime:=StrToDate(edt1.Text);
qry1.FieldByName('zakazchik').AsString:=edt2.Text;
qry1.FieldByName('tip_si').AsString:= edt3.Text;
qry1.FieldByName('god_vipuska').AsString:= edt4.Text;
//qry1.FieldByName('god_vipuska').AsInteger:= StrToInt(edt4.Text);
qry1.FieldByName('zav_nomer').AsString:= edt5.Text;
qry1.FieldByName('mpi').AsString:= edt6.Text;
//qry1.FieldByName('mpi').AsInteger:= StrToInt(edt6.Text);
qry1.FieldByName('goden_do').AsString:= edt7.Text;
qry1.FieldByName('sv_poverki').AsString:= edt8.Text;
except
on e:Exception do
end;
end;
 
end;
procedure TForm1.Edit9Change(Sender: TObject);
 
begin
 If ComboBox1.ItemIndex = 0 Then
  begin
  if ((Length(Edit9.Text) > 0)and(Length(ComboBox1.Text) > 0)) then
begin
qry1.Filtered:=false;
qry1.Filter:=' zakazchik LIKE '+ #39 + Edit9.Text + '%' + #39;
qry1.Filtered:=true;
end
else qry1.Filtered:=false;
  end
  else
  Caption:= 'Ñòðîêà ôèëüòðà - ' + qry1.Filter +'   Êîë-âî çàïèñåé - ' + inttostr(qry1.RecordCount);
  If ComboBox1.ItemIndex = 1 Then
  begin
  if ((Length(Edit9.Text) > 0)and(Length(ComboBox1.Text) > 0)) then
begin
 
qry1.Filtered:=false;
//qry1.Filter:=' data_poverki=' + '''11.07.2017''';
qry1.Filter:=' data_poverki LIKE '+ #39  + Edit9.Text + '%' + #39;
qry1.Filtered:=true;
end
else qry1.Filtered:=false;
  end
  else
  Caption:= 'Ñòðîêà ôèëüòðà - ' + qry1.Filter +'   Êîë-âî çàïèñåé - ' + inttostr(qry1.RecordCount);
  If ComboBox1.ItemIndex = 2 Then
  begin
  if ((Length(Edit9.Text) > 0)and(Length(ComboBox1.Text) > 0)) then
begin
qry1.Filtered:=false;
qry1.Filter:=' zav_nomer LIKE '+ #39 + Edit9.Text + '%' + #39;
qry1.Filtered:=true;
end
else qry1.Filtered:=false;
  end
  else
  Caption:= 'Ñòðîêà ôèëüòðà - ' + qry1.Filter +'   Êîë-âî çàïèñåé - ' + inttostr(qry1.RecordCount);
  If ComboBox1.ItemIndex = 3 Then
  begin
  if ((Length(Edit9.Text) > 0)and(Length(ComboBox1.Text) > 0)) then
begin
qry1.Filtered:=false;
qry1.Filter:=' goden_do LIKE '+ #39 + Edit9.Text + '%' + #39;
qry1.Filtered:=true;
end
else qry1.Filtered:=false;
  end
  else
  Caption:= 'Ñòðîêà ôèëüòðà - ' + qry1.Filter +'   Êîë-âî çàïèñåé - ' + inttostr(qry1.RecordCount);
  If ComboBox1.ItemIndex = 4 Then
  begin
  if ((Length(Edit9.Text) > 0)and(Length(ComboBox1.Text) > 0)) then
begin
qry1.Filtered:=false;
qry1.Filter:=' sv_poverki LIKE '+ #39 + Edit9.Text + '%' + #39;
qry1.Filtered:=true;
end
else qry1.Filtered:=false;
  end
  else
  Caption:= 'Ñòðîêà ôèëüòðà - ' + qry1.Filter +'   Êîë-âî çàïèñåé - ' + inttostr(qry1.RecordCount);
end;
 
procedure TForm1.btn14Click(Sender: TObject);
begin
  Caption:= 'Ïîâåðêà ÑÈ';
 qry1.Filtered:=false;
end;
 
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked = False then
 btn1.Enabled:=False
 else
   btn1.Enabled:=True;
    if CheckBox1.Checked = False then
 btn2.Enabled:=False
 else
   btn2.Enabled:=True;
    if CheckBox1.Checked = False then
 btn3.Enabled:=False
 else
   btn3.Enabled:=True;
   if CheckBox1.Checked = False then
 btn4.Enabled:=False
 else
    btn4.Enabled:=True;
   
   if CheckBox1.Checked = False then
 btn5.Enabled:=False
 else
   btn5.Enabled:=True;
 
   if CheckBox1.Checked = False then
 btn13.Enabled:=False
 else
   btn13.Enabled:=True;
end;
 
 
 
 
procedure TForm1.btn12Click(Sender: TObject);
begin
Form2.Show;
end;
 
 
 
procedure TForm1.btn13Click(Sender: TObject);
begin
qry1.Cancel;
end;
 
procedure TForm1.btn6Click(Sender: TObject);
var
  XLApp,Sheet,Colum:Variant;
  Index,i:Integer;
begin
  XLApp:=CreateOleObject('Excel.Application');
  XLApp.Visible:=true;
  XLApp.Workbooks.Add(-4167);
  XLApp.Workbooks[1].WorkSheets[1].Name:='Îò÷åò';
  Colum:=XLApp.Workbooks[1].WorkSheets['Îò÷åò'].Columns;
  Colum.Columns[1].ColumnWidth:=12;
  Colum.Columns[2].ColumnWidth:=20;
  Colum.Columns[3].ColumnWidth:=10;
  Colum.Columns[4].ColumnWidth:=20;
  Colum.Columns[5].ColumnWidth:=17;
  Colum.Columns[6].ColumnWidth:=20;
  Colum.Columns[7].ColumnWidth:=12;
  Colum.Columns[8].ColumnWidth:=20;
  Colum:=XLApp.Workbooks[1].WorkSheets['Îò÷åò'].Rows;
  Colum.Rows[2].Font.Bold:=true;
  Colum.Rows[1].Font.Bold:=true;
  Colum.Rows[1].Font.Color:=clBlue;
  Colum.Rows[1].Font.Size:=14;
  Sheet:=XLApp.Workbooks[1].WorkSheets['Îò÷åò'];
  Sheet.Cells[1,2]:='Îò÷åò ïî ïîâåðêè';
  Sheet.Cells[2,1]:='Äàòà';
  Sheet.Cells[2,2]:='Çàêàç÷èê';
  Sheet.Cells[2,3]:='Òèï';
  Sheet.Cells[2,4]:='Ãîä';
  Sheet.Cells[2,5]:='Íîìåð';
  Sheet.Cells[2,6]:='ÌÏÈ';
  Sheet.Cells[2,7]:='Ãîäåí';
  Sheet.Cells[2,8]:='Ñâèäåòåëüñòâî';
  index:=3;
  qry1.First;
  while not qry1.Eof do
  begin
    Sheet.Cells[index,1]:=qry1.Fields.Fields[1].AsString;
    Sheet.Cells[index,2]:=qry1.Fields.Fields[2].AsString;
    Sheet.Cells[index,3]:=qry1.Fields.Fields[3].AsString;
    Sheet.Cells[index,4]:=qry1.Fields.Fields[4].AsString;
    Sheet.Cells[index,5]:=qry1.Fields.Fields[5].AsString;
    Sheet.Cells[index,6]:=qry1.Fields.Fields[6].AsString;
    Sheet.Cells[index,7]:=qry1.Fields.Fields[7].AsString;
    Sheet.Cells[index,8]:=qry1.Fields.Fields[8].AsString;
    Inc(index);
    qry1.Next;
  end;
 
end;
 
procedure TForm1.btn7Click(Sender: TObject);
begin
Form3.Show;
end;
 
end.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
 01.08.2018, 09:57
Ответы с готовыми решениями:

Фильтрация таблицы по полю типа дата
Всем добрый день. Мне нужно отфильтровать таблицу по полю типа дата. Использую такую конструкцию: ADOQuery1.Filtered := False; ...

Фильтр по полю Дата и полю Время
Добрый вечер! Очередная проблема. Подскажите пожалуйста! Есть таблица с наименованием работы. Есть поле с датой окончания работ и поле...

Отфильтровать список по определенному полю объекта
Доброго дня, коллеги! Помогите советом пожалуйста! У меня есть такой вот объект: $scope.objTop = { "key1":...

21
 Аватар для krapotkin
6854 / 4680 / 1465
Регистрация: 14.04.2014
Сообщений: 20,686
Записей в блоге: 21
07.08.2018, 13:28
Студворк — интернет-сервис помощи студентам
Цитата Сообщение от vice4 Посмотреть сообщение
6 штук за 2-3 секунды и это дико долго
это ваще ниочем

Добавлено через 1 минуту
кроме того обычно есть техника отложенного выполнения
например после нажатия очередной клавиши перезапускается таймер например на 300-400 мсек
поэтому если продолжать набирать строку, поиск не происходит
как только вы остановитесь, через 0.3 сек сработает таймер и выполнит ваш запрос
0
28 / 28 / 4
Регистрация: 07.06.2017
Сообщений: 166
07.08.2018, 14:23
Цитата Сообщение от D1973 Посмотреть сообщение
Стараюсь представить, зачем такое может понадобиться в реальной жизни - и не получается
Дела индейцев шерифа не волнуют. ТЗ придумали такое.

Добавлено через 54 секунды
Цитата Сообщение от krapotkin Посмотреть сообщение
это ваще ниочем
Не соглашусь. Насчет таймера идея интересная.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
 07.08.2018, 14:23

Выборка по полю Дата
Добрый день, Уважаемые! Возник вопрос во время работы VB6 и Access. В базе имеется таблица НАКЛАДНАЯ. В ней есть поле...

Сортировка постов по произвольному полю Дата
Всем привет! Возникла такая необходимость реализовать сортировку постов по произвольному полю. Смысл такой. Есть категория Анонсы у нее...

Поиск в ленточной форме по полю Дата
Добрый день! Есть ленточная форма Договора. В ней с помощью фильтра проводим поиск по определенным полям. Поиск по тестовому полю: ...

Выборка по полю типа дата/время
Доброго времни суток всем. Столкнулся с такой проблемой, в базе данных есть поле типа дата/время, там записана только дата, т.е. например...

Как выбрать по полю дата, последние 7 дней?
Вот так я получаю строки с датой "Завтра" из mysql таблицы. $sql = "SELECT * FROM `servers` WHERE `server_opendate`=CURDATE()+INTERVAL 1...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
22
Ответ Создать тему
2 из 2 « 1 2
Новые блоги и статьи
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3)
8Observer8 18.10.2026
Содержание блога | English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .
Локальный http сервер
Argus19 17.10.2026
Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .
Копировать Windows на новый диск на UEFI
damix 17.10.2026
https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .
ИИ не может найти нужный язык в списке
Supersumestria 05.10.2026
Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO
zorxor 05.10.2026
Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru