小妹我快急疯了，求求各位高手哥哥姐姐帮忙，帮帮小妹吧，快崩溃了

[whj1001]

小妹我刚学习VC，在VC6.0中调用带有存储过程的返回值时遇到了问题，希望各位哥哥姐姐们帮帮小妹，我的存储过程是：
CREATE PROCEDURE Book_Borrow @in_ReaderID char(8), @in_ISBN char(18), @in_BookID char(10), @out_str char(30) OUTPUT
AS
BEGIN
IF NOT EXISTS(SELECT * FROM TReader WHERE ReaderID=@in_ReaderID)
BEGIN
SET @out_str= '该读者不存在'
RETURN 0
END
IF NOT EXISTS(SELECT * FROM TBook WHERE ISBN=@in_ISBN)
BEGIN
SET @out_str= '该图书不存在'
RETURN 0
END
IF (SELECT Num FROM TReader WHERE ReaderID=@in_ReaderID)=5
BEGIN
SET @out_str= '读者借书量不能大于5'
RETURN 0
END
IF (SELECT SNum FROM TBook WHERE ISBN=@in_ISBN)=0
BEGIN
SET @out_str= '图书库存量为0'
RETURN 0
END
IF @in_ISBN IN (SELECT ISBN FROM TLend WHERE ReaderID=@in_ReaderID)
BEGIN
SET @out_str= '读者已经借过该书'
RETURN 0
END
IF EXISTS(SELECT * FROM TLend WHERE BookID=@in_BookID)
BEGIN
SET @out_str= '该图书ID已存在'
RETURN 0
END
BEGIN TRAN /*开始一个事务*/
INSERT INTO TLend VALUES(@in_BookID, @in_ReaderID, @in_ISBN, GETDATE())
IF @@ERROR>0 /*如果前面一条SQL语句出错则回滚事务并返回*/
BEGIN
ROLLBACK TRAN
SET @out_str= '执行过程中遇到错误'
RETURN 0
END
UPDATE TReader SET Num=Num+1 WHERE ReaderID=@in_ReaderID
IF @@ERROR>0 /*如果前面一条SQL语句出错则回滚事务并返回*/
BEGIN
ROLLBACK TRAN
SET @out_str= '执行过程中遇到错误'
RETURN 0
END
UPDATE TBook SET SNum=SNum-1 WHERE ISBN=@in_ISBN
IF @@ERROR=0 /*如果所有语句都不出错则结束事务并返回*/
BEGIN
COMMIT TRAN
SET @out_str= '借书成功'
RETURN 1
END
ELSE /*如果执行出错则回滚所有操作并返回*/
BEGIN
ROLLBACK TRAN
SET @out_str= '执行过程中遇到错误'
RETURN 0
END
END
在VC中调用函数为：
UpdateData();
_ConnectionPtr pConnection = NULL;
_CommandPtr pCmd = NULL;
_RecordsetPtr pRs = NULL;
_ParameterPtr pParam = NULL;
_ParameterPtr retParam = NULL;
_ParameterPtr outParam1 = NULL;


HRESULT hr;
_variant_t varFld;
// Execute函数的参数
_variant_t vNULL;
vNULL.vt = VT_ERROR;
vNULL.scode = DISP_E_PARAMNOTFOUND;
_bstr_t strCnn(SQLCONSTR);
try
{
UpdateData(TRUE);
// 定义ADO变量
pConnection.CreateInstance(__uuidof(Connection));
hr = pConnection->Open(strCnn,"","",NULL);
pCmd.CreateInstance(__uuidof(Command));
pCmd->ActiveConnection = pConnection;
//
retParam.CreateInstance(__uuidof(Parameter));
retParam=pCmd->CreateParameter(_bstr_t("Return"),adInteger,adParamReturnValue,(0));
pCmd->Parameters->Append(retParam);


// 指定存储过程Book_Borrow
CString SqlStr;
SqlStr.Format("Book_Borrow");
pCmd->CommandText = (_bstr_t)SqlStr;
pCmd->CommandType = adCmdStoredProc;

pParam = pCmd->CreateParameter("@in_ReaderID",adVarChar,adParamInput,8);
pParam->Value = _variant_t(m_ReaJSZH); //借书证号参数值
pCmd->Parameters->Append(pParam);

pParam = pCmd->CreateParameter("@in_ISBN",adVarChar,adParamInput,18);
pParam->Value = _variant_t(m_TsISBN); //ISBN参数值
pCmd->Parameters->Append(pParam);

pParam = pCmd->CreateParameter("@in_BookID",adVarChar,adParamInput,10);
pParam->Value = _variant_t(m_TsID);
pCmd->Parameters->Append(pParam);

outParam1=pCmd->CreateParameter(_bstr_t("Out_str"),adVarChar,adParamOutput, (20));
pCmd->Parameters->Append(outParam1);
// 执行存储过程，结果记录集保存到pRs中
pRs = pCmd->Execute(&vNULL,&vNULL,adCmdStoredProc);
_variant_t VretVal ;

VretVal = retParam->Value;
AfxMessageBox(VretVal);

我想输出存储过程输出参数的值，但是最后几行代码出错，不知道怎么回事，希望各位哥哥姐姐帮帮忙，小妹在这谢谢大家了

[whj1001]

可是我用这个方法输出存储过程的返回值，弹出框里是空的，本来返回值是0或1的 这是为什么啊？

[bohut]

我还是觉得那个'@'有问题。呵呵

[whj1001]

我已经按你说的去掉了，但是对程序没有影响，输出参数可以输出了，就是返回值的问题还没有解决

[bohut]

在sql server里调试一下你的存储过程，如果没问题的话，就要看你程序中添加输入参数的时候有没有正确

[whj1001]

在sql server中调试时是没有问题的，就是在返回值0或1的时候出现问题了，其他的输出参数现在没有问题了

[yxq281426250]

帮顶~!~!

[whj1001]

还有那位大哥帮帮忙啊，
BEGIN
COMMIT TRAN
SET @out_str= '借书成功'
RETURN 1
运行后，弹出的框中为空，别的输出参数按照bohut这位大哥的方法，已经解决了，就是这句话不能显示成功，那位知道是为什么？小妹谢谢各位了，帮帮忙吧

[chqu18]

_variant_t varValue = pCmmd->Parameters->GetItem("@Out_str")->GetValue();
CString strTmp = (char*)_bstr_t(varValue);
AfxMessageBox(strTmp);

[xupeihuagudulei]

已举报。

[whj1001]

CREATE PROCEDURE [dbo].[Book_Borrow] @in_ReaderID char(8), @in_ISBN char(18), @in_BookID char(10), @out_str char(20) OUTPUT
AS
BEGIN
INSERT INTO TLend VALUES(@in_BookID, @in_ReaderID, @in_ISBN, GETDATE())
SET @out_str= '借书成功'
END

存储过程在VC中运行后，为什么弹出框里为空啊？那位大哥哥大姐姐知道啊，帮帮忙，小妹都弄了好几天了，快愁死了，我真的是个新手，刚学VC一个多月，求各位哥哥姐姐帮帮小妹的忙吧

[Conry]

变量用错了吧

                  _variant_t VretVal ; 

                  VretVal = outParam1->Value; 
                  CString str = VretVal.bstrVal; 
                  
                  AfxMessageBox(str); 

[pornographer]

偶滴神啊。。。

[whj1001]

_variant_t VretVal ;
VretVal = outParam1->Value;
CString str = VretVal.bstrVal;
AfxMessageBox(str);

如果不在数据库插入数据的话，是没有问题的，设计到INSERT INTO TLend VALUES(@in_BookID, @in_ReaderID, @in_ISBN, GETDATE()) 语句后，在弹出框里不能输出‘借书成功' ，不知道为什么

[飞天赤狐]

你要真是刚学，还是去写个HelloWorld吧

[Conry]

[Quote=引用 33 楼 whj1001 的回复:]
_variant_t VretVal ;
VretVal = outParam1->Value;
CString str = VretVal.bstrVal;
AfxMessageBox(str);

如果不在数据库插入数据的话，是没有问题的，设计到INSERT INTO TLend VALUES(@in_BookID, @in_ReaderID, @in_ISBN, GETDATE()) 语句后，在弹出框里不能输出‘借书成功' ，不知道为什么

[/Quote]
既然不输出‘借书成功’
那么输出什么？

[jameshooo]

output_para.ChangeType(VT_BSTR);
_bstr_t str = output_para;
AfxMessageBox(str);

[wwwcad2009]

太牛了,才学一个月,就这个调用存储过程了

[biweilun]

[Quote=引用 29 楼 xupeihuagudulei 的回复:]
已举报。

[/Quote]
您真是太疯狂了

[whj1001]

小妹我又来了，呵呵，在这澄清一下，我的确是个新手，调用存储过程是老板的要求，我也没办法，所以才让各位哥哥姐姐帮忙，现在小妹的问题还有一点没解决，希望各位哥哥姐姐继续帮忙啊，谢谢了

[yanboliu_hz]

友情顶贴！