咏南开发框架调用存储过程演示
2016-06-14 16:38
495 查看
create or replace package RD_pk
as
type Cursor_Ref is ref cursor;
end;
create or replace procedure P_999(p_cur out RD_pk.Cursor_Ref) is
begin
OPEN p_cur FOR
select c1,c2 from table999;
end P_999;
create or replace procedure P_998(p1 in varchar2, p2 in varchar2) is
begin
insert into table999(c1,c2) values (p1,p2);
COMMIT;
end P_998;
procedure TForm1.Button1Click(Sender: TObject);
var m:TServerMethods1Client;
begin
m:=TServerMethods1Client.Create(SQLConnection1.DBXConnection);
ClientDataSet1.Data := m.spOpen('1', 'P_999', null);
m.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
var m:TServerMethods1Client;
p:TParams;
begin
m:=TServerMethods1Client.Create(SQLConnection1.DBXConnection);
p:=TParams.Create(nil);
p.CreateParam(ftString, 'p1', ptInput).AsString := '1';
p.CreateParam(ftString, 'p2', ptInput).AsString := '1';
m.spExec('1', 'P_998', PackageParams(p));
m.Free;
p.Free;
end;
as
type Cursor_Ref is ref cursor;
end;
create or replace procedure P_999(p_cur out RD_pk.Cursor_Ref) is
begin
OPEN p_cur FOR
select c1,c2 from table999;
end P_999;
create or replace procedure P_998(p1 in varchar2, p2 in varchar2) is
begin
insert into table999(c1,c2) values (p1,p2);
COMMIT;
end P_998;
procedure TForm1.Button1Click(Sender: TObject);
var m:TServerMethods1Client;
begin
m:=TServerMethods1Client.Create(SQLConnection1.DBXConnection);
ClientDataSet1.Data := m.spOpen('1', 'P_999', null);
m.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
var m:TServerMethods1Client;
p:TParams;
begin
m:=TServerMethods1Client.Create(SQLConnection1.DBXConnection);
p:=TParams.Create(nil);
p.CreateParam(ftString, 'p1', ptInput).AsString := '1';
p.CreateParam(ftString, 'p2', ptInput).AsString := '1';
m.spExec('1', 'P_998', PackageParams(p));
m.Free;
p.Free;
end;
相关文章推荐
- 删除数组中指定的某个元素
- 选中一行并且选中该行的radio
- 图情期刊要求2015(A,B,C类)
- php代码效率测试
- 使用PreTranslateMessage(MSG* pMsg)截获键盘数字键
- was密码遗忘的解决方案
- 几何学
- cocoapods中的pod file介绍
- 体外诊断(POCT)之系统配置文件修改
- cloud 数据库操作方法
- 【干货】”首个“ .NET Core 验证码组件
- js 返回上一页
- 反射工具类、流操作工具类、文件操作工具类
- JavaScript实现全选 反选 全不选
- 实习杂记(23):ant有关的知识点
- 由eclipse工程创建一个Android studio 工程
- [免费在线培训]RAD Studio 10.1 Berlin网络研讨会
- 柴俊理金:退欧风波牵扯原油,黄金1280不温不火
- Python 错误处理
- java通过JDBC链接SQLSERVER2012