sql запрос - БД в Delphi - Страница 4

Аватар · 03.03.2016, 10:56

Код:

'select OborudovanieID from Oborudovanie where '+inttostr(MonthsBetween(Date,DataModule2.ADOQuery3.FieldByName('Дата следующих замеров').AsDateTime))+'<=2'

Ernest027 · 03.03.2016, 11:03

А здесь?

Код:

inttostr(Int(DataModule2.ADOQuery3.FieldByName('Дата следующих замеров').AsDateTime)+'>='+Int(Date)-7

evg_m · 03.03.2016, 11:12

НЕ БОЙТЕСЬ "лишних" переменных. С ними программы писать гораздо легче.

Код:

d:=DataModule2.ADOQuery3.FieldByName('Дата следующих замеров').AsDateTime;
inttostr(Int(d)+'>='+Int(Date)-7

?????????????????

Ernest027 · 03.03.2016, 11:18

все равно ошибки

Ernest027 · 03.03.2016, 11:23

пишет
"there is no overloaded 'InttoStr'..." здесь inttostr(Int(d)
"there is no overloaded 'InttoStr'..." и здесь Int(Date)-7

evg_m · 03.03.2016, 11:26

Цитата:

все равно ошибки

так я просто напросто разбил ВАШУ строку на две и все. Ошибки я не исправлял!!! Надеялся что в короткой строке вы их найдете и исправите сами.
Ну тогда делим дальше. И опять я не исправляю ошибки!!!

Код:

r:=int(d) +'>=' +Int(Date) -7; // тип переменной r найдите САМИ (как средство исправления ошибок)
Inttostr(r);

ИЛИ Вам надо было ЧТО-ТО Другое ? так напишите это другое.

Ernest027 · 03.03.2016, 11:33

Код:

inttostr(Int(DataModule2.ADOQuery3.FieldByName('Дата следующих замеров').AsDateTime))+'>='+inttostr(Int(date)-7)

evg_m · 03.03.2016, 11:39

Цитата:

inttostr(Int(DataModule2.ADOQuery3. FieldByName('Дата следующих замеров').AsDateTime))+'>='+inttost r(Int(date)-7)

да от этой строки мы уже пришли к

Код:

d:=DataModule2.ADOQuery3.FieldByName('Дата следующих замеров').AsDateTime;
inttostr(Int(d))+'>='+inttostr(Int(date)-7)

Код:

d:=DataModule2.ADOQuery3.FieldByName('Дата следующих замеров').AsDateTime;
r:=Int(d))+'>='+inttostr(Int(date)-7;
inttostr(r);

ВЫ можете ОБЪЯСНИТЬ смысл этого ВАШЕГО кода ?!

Ernest027 · 03.03.2016, 11:48

если разница между текущей и "Датой следующих замеров" = -7 то ...
Это нужно на случай, если после "Даты следующих замеров" прошло 7 дней.

Dvoishnik · 03.03.2016, 12:01

Цитата:

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

да от этой строки мы уже пришли к

Код:

d:=DataModule2.ADOQuery3.FieldByName('Дата следующих замеров').AsDateTime;
inttostr(Int(d))+'>='+inttostr(Int(date)-7)

Код:

d:=DataModule2.ADOQuery3.FieldByName('Дата следующих замеров').AsDateTime;
r:=Int(d))+'>='+inttostr(Int(date)-7;
inttostr(r);

ВЫ можете ОБЪЯСНИТЬ смысл этого ВАШЕГО кода ?!

ну не хочет человек вникать

Цитата:

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

А здесь?

Код:

inttostr(Int(DataModule2.ADOQuery3.FieldByName('Дата следующих замеров').AsDateTime)+'>='+Int(Date)-7

inttostr не подходит так как функция Int имеет не целочисленное значение
либо inttostr заменяете на FloatToStr либо int на
Trunc

03.03.2016, 10:56	#31
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	Код: `'select OborudovanieID from Oborudovanie where '+inttostr(MonthsBetween(Date,DataModule2.ADOQuery3.FieldByName('Дата следующих замеров').AsDateTime))+'<=2'` Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

03.03.2016, 11:03	#32
Ernest027 Форумчанин Регистрация: 27.04.2015 Сообщений: 437	А здесь? Код: `inttostr(Int(DataModule2.ADOQuery3.FieldByName('Дата следующих замеров').AsDateTime)+'>='+Int(Date)-7`

03.03.2016, 11:12	#33
evg_m Старожил Регистрация: 20.04.2008 Сообщений: 5,526	НЕ БОЙТЕСЬ "лишних" переменных. С ними программы писать гораздо легче. Код: `d:=DataModule2.ADOQuery3.FieldByName('Дата следующих замеров').AsDateTime; inttostr(Int(d)+'>='+Int(Date)-7` ????????????????? программа — запись алгоритма на языке понятном транслятору Последний раз редактировалось evg_m; 03.03.2016 в 11:18.

03.03.2016, 11:33	#37
Ernest027 Форумчанин Регистрация: 27.04.2015 Сообщений: 437	Код: `inttostr(Int(DataModule2.ADOQuery3.FieldByName('Дата следующих замеров').AsDateTime))+'>='+inttostr(Int(date)-7)`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
SQL запрос	Tanushka=)	SQL, базы данных	2	23.05.2011 17:09
Запрос в SQL	Анн	Помощь студентам	2	16.12.2010 19:51
Запрос с CASE переделать в запрос с PIVOT (MS SQL Server 2005)	Машуля	SQL, базы данных	4	06.05.2010 21:09
Создание новых таблиц в MS SQL SERVERE через SQL запрос в Delphi	S_Yevgeniy	Помощь студентам	1	27.10.2009 06:26
SQL запрос на основе другого SQL запрса...	Timoxa	БД в Delphi	1	07.01.2007 18:15

03.03.2016, 11:18	#34
Ernest027 Форумчанин Регистрация: 27.04.2015 Сообщений: 437	все равно ошибки

03.03.2016, 11:23	#35
Ernest027 Форумчанин Регистрация: 27.04.2015 Сообщений: 437	пишет "there is no overloaded 'InttoStr'..." здесь inttostr(Int(d) "there is no overloaded 'InttoStr'..." и здесь Int(Date)-7

03.03.2016, 11:48	#39
Ernest027 Форумчанин Регистрация: 27.04.2015 Сообщений: 437	если разница между текущей и "Датой следующих замеров" = -7 то ... Это нужно на случай, если после "Даты следующих замеров" прошло 7 дней.