procedure TForm1.Button1Click(Sender: TObject); var mm : string; var nn : integer; begin mm:='myid'; nn:=2; ADOStoredProc1.Close; ADOStoredProc1.Parameters.Clear; ADOStoredProc1.Parameters.CreateParameter(mm,ftstring,Pdinput,0,0); adostoredproc1.Parameters.ParamByName(mm).value:=nn; adostoredproc1.open; label1.caption:= adostoredproc1.fields[1].asstring; while not adostoredproc1.eof do begin label2.caption:= adostoredproc1.fields[1].asstring; adostoredproc1.Next; end; end; 存储过程本身已是一个记录集了
遮和sql server不同。
var mm : string;
var nn : integer;
begin
mm:='myid';
nn:=2;
ADOStoredProc1.Close;
ADOStoredProc1.Parameters.Clear;
ADOStoredProc1.Parameters.CreateParameter(mm,ftstring,Pdinput,0,0);
adostoredproc1.Parameters.ParamByName(mm).value:=nn;
adostoredproc1.open;
label1.caption:= adostoredproc1.fields[1].asstring;
while not adostoredproc1.eof do
begin
label2.caption:= adostoredproc1.fields[1].asstring;
adostoredproc1.Next;
end;
end; 存储过程本身已是一个记录集了
對于oracle來說,沒有這個必要,也是不建議的。
遮和sql server不同为什么这么说呢