求一个Oracle完整例子—包括连接，记录的读增删改

Question

rt
用ADO连接Oracle数据库，进行一些基本操作（读取，增加，删除，修改）3q very much！

Answer 1

void CDataOperDlg::OnAdd() 
{
::CoInitialize(NULL); //初始化OLE/COM库环境 
m_pConnection.CreateInstance(_uuidof(Connection)); //初始化Connection指针
m_pRecordset.CreateInstance(_uuidof(Recordset));//初始化Recordset指针 try
{
m_pConnection->Open("Data source = myoraclelink; uid=system; pwd=system;","","",adModeUnknown); //连接叫作ADOTest的ODBC数据源
CString strSql="select * from student";
BSTR bstrSQL = strSql.AllocSysString(); 
m_pRecordset->Open(bstrSQL,(IDispatch*)m_pConnection,adOpenDynamic,adLockOptimistic,adCmdText); 
    m_pRecordset->AddNew();///添加新记录
    m_pRecordset->PutCollect("sno",_variant_t("9"));
m_pRecordset->PutCollect("name",_variant_t("叶利钦"));
m_pRecordset->Update();
m_pRecordset->Close();
MessageBox("add ok");
}
catch (_com_error e)//异常处理
{
AfxMessageBox(e.ErrorMessage());
}
}void CDataOperDlg::OnDelete() 
{
::CoInitialize(NULL); //初始化OLE/COM库环境 
m_pConnection.CreateInstance(_uuidof(Connection)); //初始化Connection指针
m_pRecordset.CreateInstance(_uuidof(Recordset));//初始化Recordset指针 try
{
m_pConnection->Open("Data source = myoraclelink; uid=system; pwd=system;","","",adModeUnknown); //连接叫作ADOTest的ODBC数据源
CString strSql="select * from student where sno=9";
BSTR bstrSQL = strSql.AllocSysString(); 
m_pRecordset->Open(bstrSQL,(IDispatch*)m_pConnection,adOpenDynamic,adLockOptimistic,adCmdText); 
    m_pRecordset->Delete(adAffectCurrent);
m_pRecordset->Update();
m_pRecordset->Close();
m_pConnection->Close();
MessageBox("del ok");
}
catch (_com_error e)//异常处理
{
AfxMessageBox(e.ErrorMessage());
}}void CDataOperDlg::OnModify() 
{
::CoInitialize(NULL); //初始化OLE/COM库环境 
m_pConnection.CreateInstance(_uuidof(Connection)); //初始化Connection指针
m_pRecordset.CreateInstance(_uuidof(Recordset));//初始化Recordset指针 try
{
m_pConnection->Open("Data source = myoraclelink; uid=system; pwd=system;","","",adModeUnknown); //连接叫作ADOTest的ODBC数据源
CString strSql="select * from student where sno=1";
BSTR bstrSQL = strSql.AllocSysString(); 
m_pRecordset->Open(bstrSQL,(IDispatch*)m_pConnection,adOpenStatic,adLockOptimistic,adCmdText); 
m_pRecordset->PutCollect("name",_variant_t("voljin"));
m_pRecordset->Update();
m_pRecordset->Close();
m_pConnection->Close();
MessageBox("mod ok");
}
catch (_com_error e)//异常处理
{
AfxMessageBox(e.ErrorMessage());
}

}