通过ADOQuery调用SQLServer的存储过程
来源:互联网 发布:js encodeuri导入 编辑:程序博客网 时间:2024/05/16 17:54
☆、在SQLServer中建立存储过程
--DROP PROCEDURE Test;
CREATE PROCEDURE Test
@aa VARCHAR(15),
@bb INT,
@cc VARCHAR(15) OUTPUT,
@dd INT OUTPUT
AS
BEGIN
SELECT @cc=UPPER(@aa)
PRINT @cc
SELECT @dd=@bb+1
PRINT @dd
RETURN
END
/* 在SQLServer中测试
DECLARE @cc VARCHAR(15)
DECLARE @dd INT
EXECUTE Test 'Test Area', 123, @cc, @dd
*/
☆、在Delphi中调用
procedure TForm1.btn1Click(Sender: TObject);
begin
With ADOQuery1 Do Begin
Close;
SQL.Clear ;
SQL.Add(' EXECUTE Test :aa, :bb, :cc Output, :dd Output ') ;
Parameters.Items[0].Value := 'Test aa';
Parameters.Items[1].Value := 1234;
Prepared;
ExecSQL;
Edit1.Text := Parameters.Items[2].Value + ' : ' + IntToStr(Parameters.Items[3].Value);
Close;
end;
end;
--DROP PROCEDURE Test;
CREATE PROCEDURE Test
@aa VARCHAR(15),
@bb INT,
@cc VARCHAR(15) OUTPUT,
@dd INT OUTPUT
AS
BEGIN
SELECT @cc=UPPER(@aa)
PRINT @cc
SELECT @dd=@bb+1
PRINT @dd
RETURN
END
/* 在SQLServer中测试
DECLARE @cc VARCHAR(15)
DECLARE @dd INT
EXECUTE Test 'Test Area', 123, @cc, @dd
*/
☆、在Delphi中调用
procedure TForm1.btn1Click(Sender: TObject);
begin
With ADOQuery1 Do Begin
Close;
SQL.Clear ;
SQL.Add(' EXECUTE Test :aa, :bb, :cc Output, :dd Output ') ;
Parameters.Items[0].Value := 'Test aa';
Parameters.Items[1].Value := 1234;
Prepared;
ExecSQL;
Edit1.Text := Parameters.Items[2].Value + ' : ' + IntToStr(Parameters.Items[3].Value);
Close;
end;
end;
0 0
- 通过ADOQuery调用SQLServer的存储过程
- 通过ADOQuery调用SQLServer的存储过程
- 通过ADOQuery调用SQLServer的存储过程
- Delphi使用AdoQuery调用Mysql存储过程
- delphi中调用oracle的存储过程(ADODataSet,ADOQuery,过程带返回值不带返回值均有)
- sqlserver存储过程调用
- VS2010-MFC通过ADO调用SQLServer存储过程
- JDBC调用sqlserver的存储过程
- 使用SqlSrv调用sqlserver的存储过程
- sqlServer分页存储过程的调用
- C#SQLServer中存储过程的调用
- 通过ODBC连接sqlserver数据库调用存储过程并获得return或output的值
- sqlserver调用外部存储过程
- java调用SQLSERVER存储过程
- Hibernate 调用sqlserver存储过程
- Hibernate调用SQLserver存储过程
- ibatis调用sqlserver存储过程
- 通过一个实际的例子学习SQLServer存储过程
- Codeforces Round #332 (Div. 2) B. Spongebob and Joke
- 2016年最新iOS面试题精选总结 --- 人事面试问题(七)
- windows下为apache配置https
- CentOS7 安装 Chrome Stable
- freemarker介绍
- 通过ADOQuery调用SQLServer的存储过程
- Tomcat和Apache部署XML,JSON文件
- Mybatis与SpringMVC整合 源码分析
- 【华为OJ】统计大写字母个数
- 利用数据库复制技术实现数据同步更新
- 2016年最新iOS面试题精选总结 --- 行业认知(八)
- BGRABitmap图像操作5:擦除部分图像
- centOs+ VirtualBox网络连接
- 第一个汇编程序