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

whj1001 2009-07-31 01:56:40
小妹我刚学习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);

我想输出存储过程输出参数的值,但是最后几行代码出错,不知道怎么回事,希望各位哥哥姐姐帮帮忙,小妹在这谢谢大家了
...全文
445 点赞 收藏 40
写回复
40 条回复
切换为时间正序
请发表友善的回复…
发表回复
yanboliu_hz 2009-08-01
友情顶贴!
回复
whj1001 2009-08-01
小妹我又来了,呵呵,在这澄清一下,我的确是个新手,调用存储过程是老板的要求,我也没办法,所以才让各位哥哥姐姐帮忙,现在小妹的问题还有一点没解决,希望各位哥哥姐姐继续帮忙啊,谢谢了
回复
biweilun 2009-07-31
[Quote=引用 29 楼 xupeihuagudulei 的回复:]
已举报。

[/Quote]
您真是太疯狂了
回复
wwwcad2009 2009-07-31

太牛了,才学一个月,就这个调用存储过程了
回复
jameshooo 2009-07-31
output_para.ChangeType(VT_BSTR);
_bstr_t str = output_para;
AfxMessageBox(str);
回复
Conry 2009-07-31
[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]
既然不输出‘借书成功’
那么输出什么?
回复
xiaoqiang321 2009-07-31
你要真是刚学,还是去写个HelloWorld吧
回复
whj1001 2009-07-31
_variant_t VretVal ;
VretVal = outParam1->Value;
CString str = VretVal.bstrVal;
AfxMessageBox(str);

如果不在数据库插入数据的话,是没有问题的,设计到INSERT INTO TLend VALUES(@in_BookID, @in_ReaderID, @in_ISBN, GETDATE()) 语句后,在弹出框里不能输出‘借书成功' ,不知道为什么
回复
pornographer 2009-07-31
偶滴神啊。。。
回复
Conry 2009-07-31
变量用错了吧

_variant_t VretVal ;

VretVal = outParam1->Value;
CString str = VretVal.bstrVal;

AfxMessageBox(str);


回复
whj1001 2009-07-31
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一个多月,求各位哥哥姐姐帮帮小妹的忙吧
回复
xupeihuagudulei 2009-07-31
已举报。
回复
chqu18 2009-07-31
_variant_t varValue = pCmmd->Parameters->GetItem("@Out_str")->GetValue();
CString strTmp = (char*)_bstr_t(varValue);
AfxMessageBox(strTmp);
回复
whj1001 2009-07-31
还有那位大哥帮帮忙啊,
BEGIN
COMMIT TRAN
SET @out_str= '借书成功'
RETURN 1
运行后,弹出的框中为空,别的输出参数按照bohut这位大哥的方法,已经解决了,就是这句话不能显示成功,那位知道是为什么?小妹谢谢各位了,帮帮忙吧
回复
yxq281426250 2009-07-31
帮顶~!~!
回复
whj1001 2009-07-31
在sql server中调试时是没有问题的,就是在返回值0或1的时候出现问题了,其他的输出参数现在没有问题了
回复
bohut 2009-07-31
在sql server里调试一下你的存储过程,如果没问题的话,就要看你程序中添加输入参数的时候有没有正确
回复
whj1001 2009-07-31
我已经按你说的去掉了,但是对程序没有影响,输出参数可以输出了,就是返回值的问题还没有解决
回复
bohut 2009-07-31
我还是觉得那个'@'有问题。呵呵
回复
whj1001 2009-07-31
可是我用这个方法输出存储过程的返回值,弹出框里是空的,本来返回值是0或1的 这是为什么啊?
回复
发动态
发帖子
VC/MFC
创建于2007-09-28

1.5w+

社区成员

VC/MFC相关问题讨论
申请成为版主
社区公告
暂无公告