sql select fastreport полученное значение - PullRequest
Новая
       36

sql select fastreport полученное значение

0 голосов
/ 19 сентября 2019

Доброе утро, хочу сделать новую процедуру для repot.Как должно работать?

  • 1.Получить ProgramName
  • 2.Проверить проверку во внешней БД (у меня есть соединение)
  • Если существует, сделать memo1 в 'NEW', еслине на «ПЕЧАТЬ ПЕРЕДАЧИ»

У меня проблема с получением значения из SQL-запроса, может быть, у вас есть какие-либо мысли, как исправить 

procedure rara(Sender: TfrxComponent);
var                       
CHECKEDVALUE : integer;                                                                                                                                              
begin
ProgramName := <Nest."PrgName">;

SQLIntranetExist.SQL.Clear;      
SQLIntranetExist.SQL.Add('SELECT COUNT(ProgramName) As Returninfo FROM dbo.RecivePrograms WHERE ProgramName ='''+ProgramName+'''');
try
       CHECKEDVALUE = SQLIntranetExist.ExecSQL;

       if CHECKEDVALUE > 1 then begin
               memo1.text := 'RE-PRINTING';                   
       end else begin
               memo1.text := 'NEW';                                    
       end;                 

except
       Showmessage('Error in SQLQuery:'+SQLIntranetExist.SQL.Text);
end;  

end;
...