通过ADOQuery调用SQLServer的存储过程
来源:互联网 发布:mysql设置级联删除 编辑:程序博客网 时间:2024/05/16 19:53
☆、在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存储过程
- 枚举简单用法
- Delphi实现通用的定时自动关机程序
- iOS JSON解析 NSJSONReadingMutableContainers的作用:
- Android开发——Android Studio中配置及使用OpenCV示例
- 利用数据库复制技术实现数据同步更新
- 通过ADOQuery调用SQLServer的存储过程
- Reservoir Sampling
- usaco 01串 Stringsobits
- UrlRewritingNet 完美实现 ASP.NET 2.0 中的URL重写(映射)
- 在树莓派上安装Arch Linux
- JavaScript正则表达式的模式匹配
- eclipse 编码时 代码上的横线
- 使用MediaPlayer播放音频
- 地图制图