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; } (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |