Delphi调用存储过程

一测试存储过程

CREATE PROCEDURE DelphiSql
@age int
 AS
begin
select * from person where nianling>@age;
end;
GO

调用例子 通过ADOQUERY调用代码

procedure TForm1.btn1Click(Sender: TObject);
var
  listitem:TListItem ;
begin
with qry1 do
begin
  Close ;
  SQL.Clear ;
  SQL .Add('execute delphisql :queryage');
  Parameters .ParamByName('queryage').Value := 20;
  ExecSQL ;
  Open ;
while not Eof do
begin
  with lv1 do
  begin
    listitem :=lv1 .Items .Add ;
    listitem .Caption := fieldbyname('bianhao').asstring;
    listitem .SubItems .Add(fieldbyname('xingming').asstring);
    listitem .SubItems .Add(fieldbyname('pyjianma').asstring);
    listitem .SubItems .Add(fieldbyname('xingbie').asstring);
    listitem .SubItems .Add(fieldbyname('nianling').asstring);
    listitem .SubItems .Add(fieldbyname('zhuzhi').asstring);
    end;
  Next;
  end;
end;
end;