1. 程式人生 > >VC6.0通過ADO呼叫SQL Server 2000的儲存過程出現引數過多的問題

VC6.0通過ADO呼叫SQL Server 2000的儲存過程出現引數過多的問題

今天在做畢業設計的時候遇到一個很奇怪的問題,我以前通過傳遞三個引數的儲存過程呼叫都還是很成功的,為什麼今天就不行了呢?程式碼如下:

   HRESULT hr;
    if (m_pCmd == NULL) 
    {
        hr = m_pCmd.CreateInstance(__uuidof(Command));
        if(FAILED(hr))
        {
            AfxMessageBox("建立_CommandPtr物件失敗");
            return FALSE;
        }
    }
    _ParameterPtr param1, param2, param3;
    param1.CreateInstance(__uuidof(Parameter));
    param2.CreateInstance(__uuidof(Parameter));
    param3.CreateInstance(__uuidof(Parameter));
    try
    {
        param1 = m_pCmd->CreateParameter("user_id",adInteger, adParamInput,
            4, _variant_t((long)userId));
        m_pCmd->Parameters->Append(param1);
        param2 = m_pCmd->CreateParameter("bycle_id",adInteger, adParamInput,
            4, _variant_t((long)bycleId));
        m_pCmd->Parameters->Append(param2);
         param3 = m_pCmd->CreateParameter("error_code",adInteger, adParamOutput,
            4, _variant_t((long)iErrorCode));
         m_pCmd->Parameters->Append(param3);
         
        m_pCmd->ActiveConnection = m_pConn;
        m_pCmd->CommandText = "rent_bycle_main";
        m_pCmd->CommandType = adCmdStoredProc;
         
        m_pCmd->Execute(NULL, NULL, adCmdStoredProc);
         
        iErrorCode = (long)m_pCmd->Parameters->GetItem("error_code")->GetValue();
    }
    catch (_com_error& e)
    {
        dump_com_error(e);
        return FALSE;
    }
儲存過程如下:
SQL Server 2000的儲存過程
alter procedure rent_bycle_main (@user_id int, @bycle_id int, @if_can_borrow int out)
as
begin
declare @borrow_flag int, @user_title varchar(8), @avail_time int, @date_hour int;
select @if_can_borrow = 0;
select @borrow_flag = user_if_borrow, @user_title = user_title 
from userInfo where user_id = @user_id;
if (@borrow_flag = 1) 
。。。。。
明明都是一一對應的,為什麼會出現過程或函式引數太多的情況呢?這個問題搞了一下午,無意間,我在VC中無聊的使用了".",顯示知道Command->Parameters有個方法叫GetCount()。通過除錯一看,確實引數有六個(因為在這步呼叫ADO之前,還有一個函式使用ADO呼叫儲存過程,所以呼叫兩次都使用三個引數,總過就是六個引數),報錯很正常。關鍵是怎麼改正,讓在呼叫之前把引數搞正確,我採用的是在每個使用Command物件的Parameters屬性的函式的最後都來一句"m_pCommand = NULL(m_pCommand 為Command物件的指標)"。