iBase.ru Forum

Код: Выделить всё

NUMBER	FAMILY	NAME	DOLZHNOST
1234	Чуйко	Николай	Начальник бюро
3421	Болдин	Геннадий	инженер-программист	
3486	Андреева 	Надежда 	инженер

Код: Выделить всё

CREATE PROCEDURE VIEW_DOLZHN (
    PFAM CHAR(20))
RETURNS (
    PDOLZHN CHAR(50))
AS
begin
    select dolzhnost from new_table
    where family=:pfam
    into pdolzhn;
end

Код: Выделить всё

  Q.SQL.Add('execute procedure get_emp_proj (:a)');
  Q.ParamByName('a').AsInteger:=8;
  Q.ExecQuery;
  b:=Q.Current[0].AsString;
// или Q.Current.ByName('PROJ_ID').asString;
  Q.Close;

Код: Выделить всё

  Q.SQL.Add('select * from get_emp_proj (:a)');
  Q.ParamByName('a').AsInteger:=8;
  Q.ExecQuery;
  while not Q.Eof do
    begin
      b:=Q.Current.ByName('proj_id').AsString;
      Q.Next;
    end;
  Q.Close;