delphi调用oracle存储过程（ODAC）

CREATE OR REPLACE PACKAGE p_lee01
IS
TYPE cur_lee01 IS REF CURSOR;
END;

CREATE OR REPLACE PROCEDURE pro_lee01(in_a IN NUMBER,out_01 OUT NUMBER,cur_01 OUT p_lee01.cur_lee01) IS
BEGIN
out_01 := 3;
OPEN cur_01 FOR
SELECT * FROM TLEE01;
dbms_output.put_line(IN_a);

END;

-- Create table
create table TLEE01
(
ID NUMBER,
FNAME VARCHAR2(10)
)

----------------------------------
ODAC 两种调用方式

procedure TForm1.Button15Click(Sender: TObject);
begin
orastoredproc1.Params.clear;
OraStoredProc1.StoredProcName := 'pro_lee01';
orastoredproc1.PrepareSQL;
orastoredproc1.ParamByName('in_a').Value := 5;
orastoredproc1.prepare;
OraStoredProc1.ExecProc;
showmessage(OraStoredProc1.ParamByName('out_01').AsString);
ShowValue(OraStoredProc1, Button8.Caption);
end;

procedure TForm1.Button9Click(Sender: TObject);
var
s: string;
begin
s := 'begin pro_lee01(:a,:b,:cur_01 ); end;';
OraQuery1.SQL.Clear;
OraQuery1.SQL.Add(s);
OraQuery1.AutoCommit := false;
OraQuery1.FetchAll := true;
OraQuery1.ParamByName('a').value := 4;
OraQuery1.ParamByName('b').ParamType := ptoutput;
OraQuery1.ParamByName('b').DataType:= ftinteger;

OraQuery1.ParamByName('cur_01').ParamType := ptoutput;
OraQuery1.ParamByName('cur_01').DataType:= ftcursor;
OraQuery1.Open;

showmessage(OraQuery1.ParamByName('b').AsString); //显示返回值
ShowValue(OraQuery1, Button8.Caption);
end;

巴特西

delphi调用oracle存储过程（ODAC）

最新文章

热门文章