[ЧайниКсНосикоМ]

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

Ну разбей на несколько строк, хотя и странно это все, AnsiString до 2 Гб:

Код:

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');
qry1.SQL.Add('FROM [таблица1] as T2 on T1.id>T2.id group by T1.[поле1], T1.[поле2], T1.[поле3], T1.[поле4]');
qry1.SQL.Add('having [поле1]=:p1 AND [поле2]=:p2');

Код:

begin
 qry1.Close; 
 qry1.SQL.Clear;
 qry1.SQL.Add('SELECT T1.[pole1], T1.[pole2],Chr(count(1)+64), T1.[pole3] as [Первое слагаемое], T1.[pole4] as [Второе слагаемое], T1.[pole3]+T1.[pole4] AS summa');
 qry1.SQL.Add(' FROM [tablitsa1] as T1 inner join [tablitsa1] as T2 on T1.id>T2.id group by T1.[pole1], T1.[pole2], T1.[pole3], T1.[pole4]');
 qry1.SQL.Add(' having T1.[pole1]=:p1 AND T1.[pole2]=:p2'); 
 qry1.Parameters.ParamByName('p1').Value := edt1.text;
 qry1.Parameters.ParamByName('p2').Value := edt2.text;
 qry1.Open;
end;

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