ADO连接oracle数据库，并调用带参数的存储过程

这两天要写一个与oracle存储过程相关的测试程序，可恨自己对着一无所知，探索两天终于出来了，记录之，备以后留用。啦啦啦啦~~~~

first：连接oracle数据库。

工具：oracle 11g

环境：我的数据库存在于虚拟机的远程主机上，所以要进行远程连接。需要在自己的电脑上装备上 Oracle 的客户端。设置数据源。

设置数据源步骤：1，安装好oracle client 11g 后，打开 net manger，选择本地-》服务命名，点击左边的绿色“+”号。

填入网络服务名字（设置odbc数据源时要用到）；

然后一步一步往下走，结束记得测试连接和保存哦。

2.设置odbc数据源，可以用管理页面的打开，也可以用oracle数据管理员。

点击添加，选择oracle 11g 选项， 设置

其中tns 为 net manger 设置的网络服务名，dsn 为 数据库名称。测试连接，并点击ok。 自此数据源设置ok。

3，下面打开vs，开始用ado连接数据库

#import "C://program files//common files//system//ado//msado15.dll" no_namespace rename ("EOF", "adoEOF") 加入库，并重命名结束符号

（64位系统编写是请使用，#import "C:\Program Files (x86)\Common Files\System\ado\msado15.dll" no_namespace rename("EOF",
"adoEOF") 否则会出现 存储过程错误）

_ConnectionPtr m_cConnectPtr;
_CommandPtr m_pCommand;

声明两个参数。然后对ado 组件进行初始化：CoInitialize(NULL); //初始化Com组件

当然，离开的时候要进行反初始化，CoUninitialize();

接下去是连接数据库：

HRESULT hr = m_cConnectPtr.CreateInstance(__uuidof(Connection));
if (FAILED(hr))
{
AfxMessageBox("Create ADO Connection Failed!");
return;
}
try
{
hr = m_cConnectPtr->Open("Provider=OraOLEDB.Oracle.1;Data Source=oracle_epolice", "epoliceadmin", "epoliceadmin", adModeUnknown);

//其中，ds为odbc数据源设置的tsn和netmanger设置的网络服务名，然后就是用户和密码了。
if (FAILED(hr))
{
AfxMessageBox("Cannot connect to database!");
}
}

catch(_com_error e)                                              //捕捉异常
{
AfxMessageBox(e.Description());
return;
}

AfxMessageBox("connect success");

ok，数据库连接上，则可以开始对数据库的操作了。当昨晚数据库操作后，要记得断开连接哦：m_cConnectPtr->Close();

3，我做的是数据库调用有参数的存储过程，程序如下：

void COracle_firstDlg::OnBtnBegin()
{
_ParameterPtr param = NULL;
_bstr_t    bstrSP("{CALL PROC_INSERT_EP_PASSVEHICLE(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)}" );
try
{
m_pCommand.CreateInstance(__uuidof(Command));
m_pCommand->ActiveConnection = m_cConnectPtr;  // 将库连接赋于它
m_pCommand->CommandText = bstrSP;
m_pCommand->CommandType      = adCmdText;

m_cConnectPtr->Properties->Refresh();   //重要步骤

create_param4proc_vchar("in_pass_index",m_pass_index.GetLength(),m_pass_index.GetBuffer(m_pass_index.GetLength()));
create_param4proc_vchar("in_chan_index",m_chan_index.GetLength(),m_chan_index.GetBuffer(m_chan_index.GetLength()));
create_param4proc_vchar("in_pass_direction",m_pass_direction.GetLength(),m_pass_direction.GetBuffer(m_pass_direction.GetLength()));
create_param4proc_vchar("in_pass_licence_code",m_pass_lience_code.GetLength(),m_pass_lience_code.GetBuffer(m_pass_lience_code.GetLength()));
create_param4proc_vchar("in_pass_licence_type",m_pass_lience_type.GetLength(),m_pass_lience_type.GetBuffer(m_pass_lience_type.GetLength()));
create_param4proc_data("in_pass_time",m_pass_time);
create_param4proc_num("in_pass_real_speed",m_pass_real_speed.GetLength(),m_pass_real_speed.GetBuffer(m_pass_real_speed.GetLength()));
create_param4proc_num("in_pass_length",m_pass_length.GetLength(),m_pass_length.GetBuffer(m_pass_length.GetLength()));
create_param4proc_vchar("in_pass_licence_color",m_pass_lience_color.GetLength(),m_pass_lience_color.GetBuffer(m_pass_lience_color.GetLength()));
create_param4proc_vchar("in_pass_type",m_pass_type.GetLength(),m_pass_type.GetBuffer(m_pass_type.GetLength()));
create_param4proc_blob("in_pass_part_pic",m_pass_real_pic.GetBuffer(m_pass_real_pic.GetLength()));
create_param4proc_blob("in_pass_full_pic",m_pass_full_pic.GetBuffer(m_pass_full_pic.GetLength()));
create_param4proc_blob("in_pass_licence_pic",m_pass_lience_pic.GetBuffer(m_pass_lience_pic.GetLength()));
create_param4proc_vchar("in_pass_record_type",m_pass_record_type.GetLength(),m_pass_record_type.GetBuffer(m_pass_record_type.GetLength()));
create_param4proc_vchar("in_pass_deal_mark",m_pass_deal_mark.GetLength(),m_pass_deal_mark.GetBuffer(m_pass_deal_mark.GetLength()));
create_param4proc_vchar("in_roadway_index",m_roadway_index.GetLength(),m_roadway_index.GetBuffer(m_roadway_index.GetLength()));
create_param4proc_blob("in_pass_option_pic",m_pass_option_pic.GetBuffer(m_pass_option_pic.GetLength()));
create_param4proc_blob("in_pass_splice_pic",m_pass_splice_pic.GetBuffer(m_pass_splice_pic.GetLength()));
create_param4proc_vchar("in_pic_asso_num",m_pic_asso_num.GetLength(),m_pic_asso_num.GetBuffer(m_pic_asso_num.GetLength()));
create_param4proc_vchar("in_full_pic_md5",m_full_pic_md5.GetLength(),m_full_pic_md5.GetBuffer(m_full_pic_md5.GetLength()));
create_param4proc_vchar("in_licence_pic_md5",m_lience_pic_md5.GetLength(),m_lience_pic_md5.GetBuffer(m_lience_pic_md5.GetLength()));
create_param4proc_vchar("in_splice_pic_md5",m_splice_pic_md5.GetLength(),m_splice_pic_md5.GetBuffer(m_splice_pic_md5.GetLength()));

m_pCommand->Properties->Refresh();   //重要步骤
//运行存储过程
PropertyPtr prop = m_pCommand->Properties->GetItem("SPPrmsLOB");
prop->PutValue(_variant_t(VARIANT_TRUE,VT_BOOL)) ;
m_pCommand->Execute(NULL,NULL, adExecuteNoRecords);
prop = m_pCommand->Properties->GetItem("SPPrmsLOB");
prop->PutValue(_variant_t(VARIANT_FALSE,VT_BOOL)) ;

}
catch (_com_error e)
{
AfxMessageBox(e.Description());
return ;
}
AfxMessageBox("instert sucess");
}

以下是对4中参数的用法：

int COracle_firstDlg::create_param4proc_vchar(char* proc_param,int length,char* value)
{
_ParameterPtr param = NULL;
param = m_pCommand->CreateParameter((_bstr_t)proc_param,adVarChar,adParamInput,length,(_variant_t)value);
m_pCommand->Parameters->Append(param);
return TRUE;
}

int COracle_firstDlg::create_param4proc_data(char* proc_param,COleDateTime m_data)
{
_ParameterPtr param = NULL;
// 	COleDateTime co_data;
// 	co_data.ParseDateTime(m_data);
_variant_t vardata = m_data;
param = m_pCommand->CreateParameter((_bstr_t)proc_param,adDate,adParamInput,20,vardata);
m_pCommand->Parameters->Append(param);
return TRUE;
}

int COracle_firstDlg::create_param4proc_blob(char* proc_param,char* pic_addr)
{
_ParameterPtr param = NULL;
//读取一张图片
_variant_t varOptional(DISP_E_PARAMNOTFOUND,VT_ERROR);
_StreamPtr adostream;
adostream.CreateInstance(_T("ADODB.Stream"));
adostream->Type = adTypeBinary;
adostream->Open(varOptional,adModeUnknown, adOpenStreamUnspecified, _T(""), _T(""));
adostream->LoadFromFile(pic_addr);
_variant_t vReadTo = adostream->Read(adReadAll);
long blob_size = adostream->GetSize();
adostream->Close();

param = m_pCommand->CreateParameter((_bstr_t)proc_param,adLongVarBinary,adParamInput,blob_size,vReadTo);
m_pCommand->Parameters->Append(param);

return TRUE;
}

int COracle_firstDlg::create_param4proc_num(char* proc_param,int length,char* value)
{
_ParameterPtr param = NULL;
param = m_pCommand->CreateParameter((_bstr_t)proc_param,adInteger,adParamInput,4,(_variant_t)value);
m_pCommand->Parameters->Append(param);
return TRUE;
}