Question

求delphi调用带有out参数的SQL SERVER存储过程的例子!(详细例子加分)

ALTER PROCEDURE [dbo].[LoginEnter]
@user VARCHAR(10),
@password VARCHAR(12),
@msg VARCHAR(50) OUT
AS
BEGIN
IF EXISTS (SELECT * FROM rt.ZLYH WHERE @user=用户 and
@password=密码)
BEGIN
IF @@ROWCOUNT>0
SET @msg='show'
ELSE
SET @msg='SHIRT'
END
ELSE
SET @msg='用户名不存在'

IF @@ERROR<>0
BEGIN
SET @msg='登陆失败'
end
END
以上用delphi怎样调用这个存储过程?(目的是登陆成功就显示其他窗体,失败时显示@msg,求例子(+20)分!

Answer 1

首先， sqlsever当中， @msg VARCHAR(50) OUT只是一个普通输入参数，而输出参数是output，所以应该是
ALTER PROCEDURE [dbo].[LoginEnter]
@user VARCHAR(10),
@password VARCHAR(12),
@msg VARCHAR(50) OUTPUT
============================================
以下是delphi实现过程
uses
DB, ADODB;
var
Qry:tadoquery;
begin
Qry:=Tadoquery.Create(nil);
Qry.ConnectionString:='Provider=SQLOLEDB.1;Password=12345;Persist Security Info=True;'
+'User ID=sa;Initial Catalog=testdatabase;Data Source=127.0.0.1' ;
Qry.SQL.Text:='Exec LoginEnter ''user'',''12345'' ';
Qry.ExecSQL;
if Qry.RecordCount>0 then
MessageBox(0,Pchar(Qry.Fields[0].AsString),PChar('提示'),Mb_OK+MB_ICONWARNING)
else
begin
ShowMessage('登录成功');
end;
end;