Запрос ADOQuery в Делфи 7 выводит не все записи

@son_yaa · Регистрация: 10.03.2018

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

Появилась это проблема после того как я заполнила таблицу с клиентами. По началу думала что проблема в том что в поле FIO у меня появились записи с ковычками (раньше все запросы работали и ковычек в ФИО клиентов я не вводила, но сейчас нужно заполнять таблицу с ковычками). и почему-то не выводит заказы тех клиентов в ФИО которых присутствуют ковычки
Помогите разобраться пожалуйста. Сижу второй день, не понимаю в чем проблема. Могу спросить программу, кто действительно может помочь

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
procedure TForm26.FormShow(Sender: TObject);
var  FirstDay, LastDay: TDateTime;
     data1, data2: TDateTime;
  begin
FirstDay := EnCodeDate(YearOf(Date), MonthOf(Date), 1); //первая дата месяца
LastDay := FirstDay + DaysInMonth(Date) - 1; //последняя дата месяца
DateTimePicker1.Date:= FirstDay;
DateTimePicker2.Date:= LastDay;
 
QueryPoliMes.SQL.Text := 'SELECT * FROM ZakazPoligraf WHERE Data between :data1 and :data2 ';
QueryPoliMes.Parameters.ParamByName('data1').Value := DateTimePicker1.DateTime;
QueryPoliMes.Parameters.ParamByName('data2').Value := DateTimePicker2.DateTime;
QueryPoliMes.Active:=true;
  QueryNaruzhMes.SQL.Text := 'SELECT * FROM ZakazNaruzh WHERE Data between :data1 and :data2 ';
  QueryNaruzhMes.Parameters.ParamByName('data1').Value := DateTimePicker1.DateTime;
  QueryNaruzhMes.Parameters.ParamByName('data2').Value := DateTimePicker2.DateTime;
  QueryNaruzhMes.Active:=true;
    QueryArendMes.SQL.Text := 'SELECT * FROM ZakazArenda WHERE Data between :data1 and :data2 ';
    QueryArendMes.Parameters.ParamByName('data1').Value := DateTimePicker1.DateTime;
    QueryArendMes.Parameters.ParamByName('data2').Value := DateTimePicker2.DateTime;
    QueryArendMes.Active:=true;
 
DataModule3.Tklient.Filtered:=false;
DataModule3.Tklient.Filter:= '(Data >= '+QuotedStr(DateTostr(DateTimePicker1.DateTime))+') and '+
 '(Data <= '+QuotedStr(DateTostr(DateTimePicker2.DateTime))+')';
DataModule3.Tklient.Filtered:=true;
end;

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm26.suiCheckBox1Click(Sender: TObject);
var  FirstDay, LastDay: TDateTime;
     data1, data2: TDateTime;
  begin
FirstDay := EnCodeDate(YearOf(Date), MonthOf(Date), 1); //ïåðâàÿ äàòà ìåñÿöà
LastDay := FirstDay + DaysInMonth(Date) - 1; //ïîñëåäíÿÿ äàòà ìåñÿöà
DateTimePicker1.Date:= FirstDay;
DateTimePicker2.Date:= LastDay;
 
QueryPoliMes.SQL.Text := 'SELECT * FROM ZakazPoligraf WHERE Data between :data1 and :data2 ';
QueryPoliMes.Parameters.ParamByName('data1').Value := DateTimePicker1.DateTime;
QueryPoliMes.Parameters.ParamByName('data2').Value := DateTimePicker2.DateTime;
QueryPoliMes.Active:=true;
  QueryNaruzhMes.Active:=false;
  QueryNaruzhMes.SQL.Text := 'SELECT * FROM ZakazNaruzh WHERE Data between :data1 and :data2 ';
  QueryNaruzhMes.Parameters.ParamByName('data1').Value := DateTimePicker1.DateTime;
  QueryNaruzhMes.Parameters.ParamByName('data2').Value := DateTimePicker2.DateTime;
  QueryNaruzhMes.Active:=true;
    QueryArendMes.SQL.Text := 'SELECT * FROM ZakazArenda WHERE Data between :data1 and :data2 ';
    QueryArendMes.Parameters.ParamByName('data1').Value := DateTimePicker1.DateTime;
    QueryArendMes.Parameters.ParamByName('data2').Value := DateTimePicker2.DateTime;
    QueryArendMes.Active:=true;
 end;

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm26.suiDBGrid1CellClick(Column: TColumn);
var fio1, fio2: string;
begin
  QueryNaruzhMes.Active:=false;
  suiCheckBox1.Checked:= false;
  QueryPoliMes.SQL.Text := 'SELECT * FROM ZakazPoligraf WHERE FIO=:fio1 and Data between :data1 and :data2';
  QueryPoliMes.Parameters.ParamByName('fio1').Value := DataModule3.Tklient.FieldByName('FIO').AsString;
  QueryPoliMes.Parameters.ParamByName('data1').Value := DateTimePicker1.DateTime;
  QueryPoliMes.Parameters.ParamByName('data2').Value := DateTimePicker2.DateTime;
  QueryPoliMes.Active:=true;
QueryNaruzhMes.Active:=false;
QueryNaruzhMes.SQL.Text := 'SELECT * FROM ZakazNaruzh WHERE FIO=:fio1 and Data between :data1 and :data2';
QueryNaruzhMes.Parameters.ParamByName('fio1').Value := DataModule3.Tklient.FieldByName('FIO').AsString;
QueryNaruzhMes.Parameters.ParamByName('data1').Value := DateTimePicker1.DateTime;
QueryNaruzhMes.Parameters.ParamByName('data2').Value := DateTimePicker2.DateTime;
QueryNaruzhMes.Active:=true;
  QueryArendMes.Active:=false;
  QueryArendMes.SQL.Text := 'SELECT * FROM ZakazArenda WHERE FIO=:fio1 and Data between :data1 and :data2';
  QueryArendMes.Parameters.ParamByName('fio1').Value := DataModule3.Tklient.FieldByName('FIO').AsString;
  QueryArendMes.Parameters.ParamByName('data1').Value := DateTimePicker1.DateTime;
  QueryArendMes.Parameters.ParamByName('data2').Value := DateTimePicker2.DateTime;
  QueryArendMes.Active:=true;
end;

@son_yaa · 19.03.2018, 06:52 **[ТС]**

опять вернулась та же проблема. Не выводит все записи. как глюк какой-то(((

@Алекcей · 19.03.2018, 16:53

не стал разбираться с проектом т.к. в нем используются сторонние компоненты, которые мне не нужны. накидал небольшое приложение, все фильтруется. посмотрите может быть поможет.

@son_yaa · 19.03.2018, 19:46 **[ТС]**

увы не разобралась. Может посмотрите программу мою? что-то мне никто не может помочь уже 3 дня бьюсь и не понимаю в чем проблема. даже делфи переустановила всеравно не показывает все записи

@qwertehok · 19.03.2018, 19:49

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

Может посмотрите программу мою?

так выкладывайте без сторонних компонент

@son_yaa · 19.03.2018, 19:51 **[ТС]**

не могу без компонентов, у меня все формы программы и все компоненты в основном из дополнительных компонентов. она просто напросто не откроется без них. я же не могу заново переписать то что уже вторую неделю делаю

@D1973 · 20.03.2018, 04:55

Комментарий модератора

Алекcей, son_yaa, предупреждаю! Нарываетесь на нарушение п. 4.6 правил форума!

Обсуждение вопросов - только в теме на форуме. Приглашения к обсуждению еще где-либо (в том числе и с помощью системы личных сообщений) запрещены, за исключением коммерческих разделов.

son_yaa, сделайте минимальный проект с текущей базой, но без сторонних компонентов, где эта проблема будет воспроизводится, и выкладывайте его сюда.

@son_yaa · 20.03.2018, 07:28 **[ТС]**

Извините. не знала.
Вот набросала утром перед работой, как вы сказали.
почему-то не выводятся записи которые были 1 числа.

и при выборе клиента их тоже нет

@D1973 · 20.03.2018, 08:38

1. Везде, где есть упоминание Date (DateTimePicker1.Date, DateToStr() и т.д.) замените на DateTime (DateTimePicker1.DateTime, DateTimeToStr() и т.д.)
2. Правильно определяем начало и конец месяца!

Delphi
1
2
FirstDay := StartOfAMonth(YearOf(Now), MonthOf(Now)); //первая дата месяца
LastDay := EndOfAMonth(YearOf(Now), MonthOf(Now)); //последняя дата месяца

ну и как бы все...

@qwertehok · 20.03.2018, 10:15

son_yaa,
вы опять прописываете путь к БД на свой рабочий стол

@son_yaa · 20.03.2018, 20:33 **[ТС]**

Спасибо огромное! Все работает как надо. Очень благодарна.

Новые блоги и статьи Все статьи Все блоги /
[golang] Двоичная куча, min-heap alhaos 20.05.2026 Двоичная куча Двоичная куча — структура данных, которая всегда держит самый важный элемент наготове. Представьте очередь к хилеру в игре, и очередь из игроков в приоритете те у кого меньше. . .	[golang] Breadth-First Search alhaos 19.05.2026 BFS (Breadth-First Search) — это базовый алгоритм обхода графа в ширину, который поуровнево исследует все связанные вершины. Он начинает с выбранной точки и проверяет всех соседей, прежде чем. . .	[golang] Алгоритм «Хак Госпера» alhaos 17.05.2026 Алгоритм «Хак Госпера» Хак Госпера (Gosper's Hack) — алгоритм нахождения следующего по величине числа с тем же количеством установленных бит. Придуман Биллом Госпером в 1970-х, опубликован в. . .	Рисование бинарного древа до 6-го колена на js, svg. russiannick 17.05.2026 <svg width="335" height="240" viewBox="0 0 335 240" fill="#e5e1bb"> <style> <!]> </ style> <g id="bush"> </ g> </ svg> function fn(){ let rost;/ / высота древа let xx=165,yy=210,w=256;
FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .	Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .

Запрос ADOQuery в Делфи 7 выводит не все записи

Решение

Решение

@son_yaa 0 / 0 / 1 Регистрация: 10.03.2018 Сообщений: 51
	19.03.2018, 06:52 [ТС]
	опять вернулась та же проблема. Не выводит все записи. как глюк какой-то((( 0

@son_yaa 0 / 0 / 1 Регистрация: 10.03.2018 Сообщений: 51
	19.03.2018, 19:46 [ТС]
	увы не разобралась. Может посмотрите программу мою? что-то мне никто не может помочь уже 3 дня бьюсь и не понимаю в чем проблема. даже делфи переустановила всеравно не показывает все записи 0

@son_yaa 0 / 0 / 1 Регистрация: 10.03.2018 Сообщений: 51
	19.03.2018, 19:51 [ТС]
	не могу без компонентов, у меня все формы программы и все компоненты в основном из дополнительных компонентов. она просто напросто не откроется без них. я же не могу заново переписать то что уже вторую неделю делаю 0

@qwertehok 5997 / 4572 / 1096 Регистрация: 29.08.2013 Сообщений: 28,237 Записей в блоге: 3
	20.03.2018, 10:15
	Сообщение было отмечено ZX Spectrum-128 как решение Решение son_yaa, вы опять прописываете путь к БД на свой рабочий стол 0

@son_yaa 0 / 0 / 1 Регистрация: 10.03.2018 Сообщений: 51
	20.03.2018, 20:33 [ТС]
	Спасибо огромное! Все работает как надо. Очень благодарна. 0