VC6.0通過ADO呼叫SQL Server 2000的儲存過程出現引數過多的問題
阿新 • • 發佈:2019-02-17
今天在做畢業設計的時候遇到一個很奇怪的問題,我以前通過傳遞三個引數的儲存過程呼叫都還是很成功的,為什麼今天就不行了呢?程式碼如下:
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物件的指標)"。