Open; end; except showMessage('连接不成功'); exit; end;
try with ADOStoredProc1 do begin Connection := ADOConnection1; Parameters.Clear; ProcedureName:= 'pkg_test.get'; Parameters.CreateParameter('p1',ftInteger,pdInput,10,1); Open; end; except showMessage('无法执行过程.'); end; end;
|
请发表评论