procedure TForm1.Button4Click(Sender: TObject);
begin
AdoQuery1.Close ;
AdoQuery1.Parameters.Clear ;
AdoQuery1.SQL.Clear ;
AdoQuery1.SQL.Add('{call PKG_JCCTEST1.sp_GetShop(?,?)}') ;
AdoQuery1.Parameters.CreateParameter('P1',ftinteger,pdinput, 50,25) ;
AdoQuery1.Parameters.CreateParameter('P2',ftinteger,pdinput, 50,22) ;
AdoQuery1.Open ;
AdoQuery1.First;
While not Eof do
Begin
Showmessage(string( AdoQuery1.FieldByName('sub').Value)+'-'+ string( AdoQuery1.FieldByName('sum').Value));
AdoQuery1.Next;
End;
end;
二 利用ADODataSet也同样
三 利用ADOStoredProc1调用包中存储过程
with DmMain.ADOStoredProc1 do
begin
Close;
Parameters.Clear;
ProcedureName := 'pkg_SynZhongTai.sp_SynZTShop';
Parameters.CreateParameter('vShopID', ftString, pdInput, 100, ShopID);
Parameters.CreateParameter('vuserId', ftFloat, pdInput, 100, userId);
Parameters.CreateParameter('vmerchantId', ftFloat, pdInput, 100, merchantId);
Parameters.CreateParameter('vmerchantCode', ftString, pdInput, 100, merchantCode);
ExecProc;
end;