create proc myproc (@param char(20)) as select @param myadoquery.close; myadoquery.sql.clear; myadoquery.sql.add('exec myproc '''return''''); myadoquery.open; showmessage(trim(myadoquery.fields[0].asstring));create proc myproc1 as use pubs select name from authors --name char 型 myadoquery.close; myadoquery.sql.clear; myadoquery.sql.add('exec myproc1'); myadoquery.open; while not myadoquery.eof do begin showmessage(trim(myadoquery.fieldbyname('name').asstring)); myadoquery.next; end;
设置成什么属性?
as
select @param
myadoquery.close;
myadoquery.sql.clear;
myadoquery.sql.add('exec myproc '''return'''');
myadoquery.open;
showmessage(trim(myadoquery.fields[0].asstring));create proc myproc1
as
use pubs
select name from authors --name char 型
myadoquery.close;
myadoquery.sql.clear;
myadoquery.sql.add('exec myproc1');
myadoquery.open;
while not myadoquery.eof do
begin
showmessage(trim(myadoquery.fieldbyname('name').asstring));
myadoquery.next;
end;