Re: OFF: любопытно

[Мадорский Г . В .]

в незамутненный ObjectPascal нет
возможности написать:
begin
 select field
 from table
 into var1;
 var1 := var1 + 1;
end;
т.е. использовать результат запроса в
скрипте
еще пример :
var1 := 10;
sql
 insert into table1(field1) values(:var1);
end;


Как это нет возможности?

With TIbSql.Create(Application) do begin
   DataBase := Db;
   Transaction := Tr;
   SQL.Add('Select Field From Tbl Where Id = :Id');
   Params[0].AsInteger := Id;
   ExecQuery;
   Var := Fields[0].AsInteger;
   Free;
end;

With b/r. Gleb.