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