请会用ado+sql server存储过程的高手帮忙，我不会用存储过程！！

Question

CREATE PROCEDURE wl2 @lname varchar(50),@llb varchar(50)
AS
begin
select * from gongshiban where 发布人=@lname and 类别=@llb
end
GO以上是我写的存储过程，以下是菜鸟用sql语句写的查询sql server数据库的代码，但不知如何把它改成存储过程方式的：void CbinguanDlg::OnBnClickedButton1()
{
// TODO: 在此添加控件通知处理程序代码
UpdateData();    CString sql="select * from gongshiban where 发布人='"+m_yh1+"' and 类别='"+m_mm1+"'"; m_pRecordset.CreateInstance("ADODB.Recordset");
    m_pRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);
    if(m_pRecordset->adoEOF)
{
AfxMessageBox("没有！");
}
else
{
AfxMessageBox("有"); }
m_pRecordset->Close();

}高手帮忙啊？？？？！！！！

Answer 1

// 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);
      }
  }
}

Answer 2

m_pRecordset->Open((_variant_t)”wl2“,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdStoredProc );

Answer 3

忘了你还有参数，看看下面的代码mmas98.GetUserACL是存储过程 GUID userID = pUserAccount->m_id; _CommandPtr pCmd;
HRESULT hr = pCmd.CreateInstance(__uuidof(Command));
if (FAILED(hr)) 
{
ASSERT(FALSE);
return NULL;
} pCmd->PutRefActiveConnection(AfxGetDBConnection());
if (FAILED(hr)) 
{
ASSERT(FALSE);
return NULL;
} _ParameterPtr pPar = pCmd->CreateParameter(_bstr_t(""), 
adBinary, adParamInput, sizeof(GUID)); ParametersPtr pParams = pCmd->GetParameters();
hr = pParams->Append(pPar);
if (FAILED(hr)) 
{
ASSERT(FALSE);
return NULL;
} hr = pCmd->put_CommandText(_bstr_t("mmas98.GetUserACL"));
if (FAILED(hr)) 
{
ASSERT(FALSE);
return NULL;
} _variant_t vaUserID;
GUID2Variant(userID, vaUserID);
hr = pPar->put_Value(vaUserID); if (FAILED(hr))
{
ASSERT(FALSE);
return NULL;
} int groupID;
OPERATIONID operID;
CUserACL* pUserACL = new CUserACL; try
{
// Executes the stored procedure 'GetUserACL'
_RecordsetPtr pRecordset = pCmd->Execute(&vtEmpty, &vtEmpty2, adCmdStoredProc);
if (pRecordset->EOF == VARIANT_TRUE)
return NULL; // Fetches the rows
long lIndex[2];
_variant_t cRows = pRecordset->GetRows(adGetRowsRest);

Answer 4

菜鸟以前是用delphi的，好不容易劝老板用了vc，结果在存储过程上碰到了麻烦，请各位高手帮忙啊？

Answer 5

没救了，一定要自救，讲解一下
_CommandPtr pCmd;
HRESULT hr = pCmd.CreateInstance(__uuidof(Command));//创建一个命令对象
if (FAILED(hr)) 
{
ASSERT(FALSE);
return NULL;
}
pCmd->PutRefActiveConnection(AfxGetDBConnection());//设置命令对象的数据库连接
if (FAILED(hr)) 
{
ASSERT(FALSE);
return NULL;
} _ParameterPtr pPar = pCmd->CreateParameter(_bstr_t(""), 
adBinary, adParamInput, sizeof(GUID));
//创建命令对象的参数，参数类型二进制，输入，大小sizeof（GUID）
ParametersPtr pParams = pCmd->GetParameters();
hr = pParams->Append(pPar);//加入参数对象
if (FAILED(hr)) 
{
ASSERT(FALSE);
return NULL;
}hr = pCmd->put_CommandText(_bstr_t("mmas98.GetUserACL"));//设置存储过程的名字
if (FAILED(hr)) 
{
ASSERT(FALSE);
return NULL;
} _variant_t vaUserID;
GUID2Variant(userID, vaUserID);
hr = pPar->put_Value(vaUserID);//设置参数值 if (FAILED(hr))
{
ASSERT(FALSE);
return NULL;
} int groupID;
OPERATIONID operID;
CUserACL* pUserACL = new CUserACL; try
{
// Executes the stored procedure 'GetUserACL'
_RecordsetPtr pRecordset = pCmd->Execute(&vtEmpty, &vtEmpty2, adCmdStoredProc);//执行存储过程adCmdStoredProc表示本次执行的是一个过程

Answer 6

更改如下： CString sql="exec w12 '" + m_yh1 + "','" + m_mm1 + "'";