请教高手：使用ADO, _RecordsetPtr 能否执行带参数和返回值的存储过程。谢谢

[comAcom]

如题。

[FireEmissary]

应该不能

[masterz]

// SQL Server, stored procedure , Command , Recordset, input parameter, output parameter, returned recordset from stored procedure
//execute stored procedure , get returned value, output value, and returned recordset.
#include "stdafx.h"
#import "C:\PROGRA~1\COMMON~1\System\ado\msado15.dll" rename( "EOF", "adoEOF" )
struct InitOle
{
InitOle() { ::CoInitialize(NULL); }
~InitOle() { ::CoUninitialize(); }
} _init_InitOle_;
void PrintProviderError(ADODB::_ConnectionPtr pConnection);

int main(int argc, char* argv[])
{
printf("Create a adParamReturnValue for Command object to get return value of stored procedure\n");
printf("Reference :MSDN---Append and CreateParameter Methods Example (VC++)\n");
ADODB::_ConnectionPtr Conn1;
ADODB::_CommandPtr Cmd1;
ADODB::_RecordsetPtr Rs1;
ADODB::_ParameterPtr retParam= NULL;
ADODB::_ParameterPtr inParam=NULL;
ADODB::_ParameterPtr outParam=NULL;
_variant_t vtEmpty (DISP_E_PARAMNOTFOUND, VT_ERROR);
_variant_t vtEmpty2 (DISP_E_PARAMNOTFOUND, VT_ERROR);
_bstr_t bstrConnect( L"driver={sql server};server=Cell;Database=zhg;UID=sa;PWD=;" );
// the following stored procedure return 12345 int value
_bstr_t bstrCreate ( L"create proc sp_AdoTest( @OutParam int OUTPUT,@InParam int ) "
L"as "
L"select @OutParam = @InParam + 10 "
L"select * from Table1"
L"return 12345" );
_bstr_t bstrSP(L"sp_Adotest" );
try
{
_bstr_t bstrEmpty;
Conn1.CreateInstance( __uuidof( ADODB::Connection ) );
Cmd1.CreateInstance( __uuidof( ADODB::Command ) );
Rs1.CreateInstance(__uuidof(ADODB::Recordset));
// Establish connection.
Conn1->ConnectionString = bstrConnect;
Conn1->Open( bstrConnect, bstrEmpty, bstrEmpty, -1 );
// Open recordset.
Cmd1->ActiveConnection = Conn1;
Cmd1->CommandText = bstrSP;
Cmd1->CommandType = ADODB::adCmdStoredProc;
retParam=Cmd1->CreateParameter(_bstr_t("Return"),ADODB::adInteger,ADODB::adParamReturnValue,sizeof(int));
Cmd1->Parameters->Append(retParam);
outParam = Cmd1->CreateParameter(_bstr_t("OutParam"),ADODB::adInteger,ADODB::adParamOutput,sizeof(int));
Cmd1->Parameters->Append(outParam);
inParam = Cmd1->CreateParameter(_bstr_t("InParam"),ADODB::adInteger,ADODB::adParamInput,sizeof(int),_variant_t( (long) 10 ));
inParam->Value=_variant_t( (long) 10 );
Cmd1->Parameters->Append(inParam);
Cmd1->Parameters->Refresh();
Cmd1->Parameters->Item[ _variant_t( _bstr_t("@InParam") ) ]->Value =_variant_t( (long) 11 );
Rs1->put_CursorLocation(ADODB::adUseClient);
Rs1->Open((_variant_t((IDispatch *) Cmd1)),vtEmpty,ADODB::adOpenStatic,
ADODB::adLockReadOnly, -1);
// Get return value of the stored procedure.adCmdUnknown
TCHAR tcbuf[1024];
long retvalue=Cmd1->Parameters->Item[(short)0]->Value;
long p2=Cmd1->Parameters->Item[(short)1]->Value;
long p3=Cmd1->Parameters->Item[(short)2]->Value;
int recordcount=0;
if(Rs1->State==ADODB::adStateClosed)
MessageBox(NULL,"no recordset is returned from the stored procedure","Information",MB_OK);
else
recordcount = Rs1->GetRecordCount();
wsprintf(tcbuf,"retvalue of the stored procedure:%d,input value:%d,output value:%d,record count :%d",retvalue,p2,p3,recordcount);
MessageBox(NULL,tcbuf,"Output",MB_OK);
}
catch(_com_error &e)
{
_bstr_t bstrSource(e.Source());
_bstr_t bstrDescription(e.Description());
printf("\nCOM error occurred, Source : %s \n Description : %s \n",(LPCSTR)bstrSource,(LPCSTR)bstrDescription);
PrintProviderError(Conn1);
}
return 0;
}
VOID PrintProviderError(ADODB::_ConnectionPtr pConnection)
{
// Print Provider Errors from Connection object.
// pErr is a record object in the Connection's Error collection.
ADODB::ErrorPtr pErr = NULL;
long nCount = 0;
long i = 0;

if( (pConnection->Errors->Count) > 0)
{
nCount = pConnection->Errors->Count;
// Collection ranges from 0 to nCount -1.
for(i = 0; i < nCount; i++)
{
pErr = pConnection->Errors->GetItem(i);
printf("\n\t Error number: %x\t%s", pErr->Number, (LPCSTR)pErr->Description);
}
}
}

[comAcom]

五颗星的老兄，[眩晕中:)]，你的代码可能不完整。

下面的连接字符串我已经该过：
L"driver={sql server};server=Cell;Database=zhg;UID=sa;PWD=;" );

[masterz]

上面的代码是完整的，我根据vbscript调试出来的。

[comAcom]

感谢各位！
我试了一下，对于没有输出参数和返回值的存储过程，可以使用_RecordsetPtr ,比如下面这个存储过程：
CREATE PROCEDURE findPerson @name varchar(10)
AS
select * from PERSON where 姓名 like @name + '%'
GO

可以通过下面的语句得到正确结果：
Rs1->Open("findPerson('张')",
vtEmpty,
ADODB::adOpenStatic,
ADODB::adLockReadOnly,
-1);


使用 _CommandPtr 来执行存储过程比较合理。不过对无输出参数和返回值的存储过程，可以使用 _RecordsetPtr 来完成，甚至可以人为地将输出参数和返回值构造的一个查询语句中，通过记录集的形式返给调用者，我试验结果是存储过程只返回第一条sql语句的结果，不太理想。

另外，上面代码
wsprintf(tcbuf,"retvalue of the stored procedure:%d,input value:%d,output value:%d,record count :%d",retvalue,p2,p3,recordcount);
中的input 和 output 好像颠倒了。

masterz,我加你为联系人了。

[comAcom]

上面代码的前提是数据库中已经建立了存储过程。

生成存储过程的代码没有使用：
_bstr_t bstrCreate ( L"create proc sp_AdoTest( @OutParam int OUTPUT,@InParam int ) "
L"as "
L"select @OutParam = @InParam + 10 "
L"select * from Table1" <====缺空格
L"return 12345" );

-------------------------
这样就可以了：
1、
set _bstr_t bstrCreate = (if exists (select * from dbo.sysobjects where id = object_id(N'[sp_AdoTest]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [sp_AdoTest]
GO

create proc sp_AdoTest( @OutParam int OUTPUT,@InParam int ) as select @OutParam = @InParam + 10 select * from users return 12345
GO)

2、加上：
Conn1->Execute(bstrCreate,NULL,0);

-------------------------------------------------
回到原来的问题：用_RecordsetPtr 能否执行存储过程，该怎么用？

[masterz]

没看懂你的意思，我以为只要用ADO执行stored procedure就可以了。既然用到了ADO，为什么要局限于_RecordsetPtr呢？这个东西没有Execute方法，从它暴露的接口来看，它也不是用来执行命令的。

[spwnihao]

http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=7839