ADO:实现向Oracle数据库中插入数据
|
1、使用Command对象完成插入。 Command 对象定义了将对数据源执行的指定命令。该对象中常用的属性和方法如下: ⑷ 调用 Execute 方法执行命令。 实例代码: /*
功能:使用 Command 对象向数据库中插入数据
*/
BOOL CRentDVDDlg::RentDVDByCommand(CString& strDVDID,CString& strRentName,CString& strRentDate)
{
BOOL bRet = FALSE;
HRESULT hr;
/*实例化一个Command对象*/
_CommandPtr pCommand;
hr = pCommand.CreateInstance(__uuidof(Command));
if(FAILED(hr))
{
MessageBox(_T("RentDVDByCommand:Command对象实例化失败!"));
return FALSE;
}
/*关联当前连接*/
pCommand->ActiveConnection = m_pConnection;
/*组串*/
CString strSQL;
strSQL.Format(_T("insert into tbRentInfo(sDVDID,sName,sDate) values('%s','%s','%s')"),strDVDID,strRentName,strRentDate);
pCommand->CommandText =_bstr_t(strSQL);
/*执行插入操作*/
try
{
_variant_t vRecords;
hr = pCommand->Execute(&vRecords,NULL,adCmdText);
if (SUCCEEDED(hr))
{
bRet = TRUE;
}
}
catch(_com_error *e)
{
MessageBox(e->ErrorMessage());
}
return bRet;
}
2、使用Connection对象完成插入数据的操作,与上一种比较类似: /*
功能:使用 Connection 对象向数据库中插入数据
*/
BOOL CRentDVDDlg::RentDVDByConnection(CString& strDVDID,CString& strRentDate)
{
BOOL bRet = FALSE;
HRESULT hr;
/*组串*/
CString strSQL;
strSQL.Format(_T("insert into tbRentInfo(sDVDID,strRentDate);
/*执行插入操作*/
try
{
_variant_t vRecords,RecordsAffected;
hr = m_pConnection->Execute(_bstr_t(strSQL),&RecordsAffected,adCmdText);
if (SUCCEEDED(hr))
{
bRet = TRUE;
}
}
catch(_com_error *e)
{
MessageBox(e->ErrorMessage());
}
return bRet;
}
3、使用RecordSet对象完成插入数据操作,RecordSet对象的使用前面文章有介绍: /*
功能:使用 Connection 对象向数据库中插入数据
*/
BOOL CRentDVDDlg::RentDVDByConnection(CString& strDVDID,adCmdText);
if (SUCCEEDED(hr))
{
bRet = TRUE;
}
}
catch(_com_error *e)
{
MessageBox(e->ErrorMessage());
}
return bRet;
} (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |
