Показать сообщение отдельно
  #36  
Старый 19.12.2015, 16:22
ЧайниКсНосикоМ ЧайниКсНосикоМ вне форума
Прохожий
 
Регистрация: 11.12.2015
Сообщения: 23
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от lmikle
на вид все нормально, только там одинарная кавычка вокруг = должна быть (для ввода надо поставить в строке подряд 2 одинарные кавычки).
Ну и конец запроса-то ты куда дел? Я ж не просто так многоточие поставил. Это значит, что все остальные строки запроса надо оставить как есть.
при таком виде
Код:
Chr(count(1)+64) +'='+ T1.[pole3]-T1.[pole4]
выдаёт ошибку при компиляции [Error] Unit2.pas(36): Incompatible types: 'String' and 'Boolean'
если писать так
Код:
Chr(count(1)+64) +''=''+ T1.[pole3]-T1.[pole4] 
две одинарные кавычки вместо одних двойных, отсутствует пишет значение для одного или нескольких параметров, ну а код я просто не стал весь копировать, так то получается вот такой код
Код:
begin
 qry1.Close; 
 qry1.SQL.Clear;
 qry1.SQL.Add('SELECT T1.[поле1], T1.[поле2],Chr(count(1)+64), T1.[поле3] as [Первое слогаемое], T1.[поле4] as [Второе слогаемое], T1.[поле3]-T1.[поле4] AS summa, Chr(count(1)+64) +''=''+ T1.[pole3]-T1.[pole4] as summa_str');
 qry1.SQL.Add('FROM [таблица1] as T1 inner join [таблица1] as T2 on T1.[код]>T2.[код] group by T1.[поле1], T1.[поле2], T1.[поле3], T1.[поле4]');
 qry1.SQL.Add(' having T1.[поле1]=:p1 AND T1.[поле2]=:p2'); 
 qry1.Parameters.ParamByName('p1').Value := edt1.text;
 qry1.Parameters.ParamByName('p2').Value := edt2.text;
 qry1.Open;
end;
Ответить с цитированием