ADO：实现向Oracle数据库中插入数据

ADO：实现向Oracle数据库中插入数据

1、使用Command对象完成插入。

Command 对象定义了将对数据源执行的指定命令。该对象中常用的属性和方法如下：
⑴ ActiveConnection 属性：该属性指定 Command 对象当前所属的 Connection 对象；
⑵ CommandText 属性：该属性包含发送给数据提供者的命令文本，该属性的值可以是 SQL 语句、表名 或 存储过程名 的字符串。
⑶ CommandType 属性：指示 Command 对象的属性，其值可以取 CommandTypeEnum 中的某个值，取值类似 Recordset 对象的 Open 方法的 Options 参数。
⑷ Execute 方法：执行在 CommandText 属性中指定的查询、SQL 语句 或 存储过程。

使用 Command 对象的过程步骤：
⑴ 定义 _CommandPtr 型变量；
⑵ 实例化变量；
⑶ 设置变量的相关属性；

⑷ 调用 Execute 方法执行命令。

实例代码：

[html] view plain copy

1. /*
2.     功能:使用 Command 对象向数据库中插入数据
3. */
4. BOOL CRentDVDDlg::RentDVDByCommand(CString& strDVDID, CString& strRentName, CString& strRentDate)
5. {
6.     BOOL bRet = FALSE;
7.     HRESULT hr;
9.     /*实例化一个Command对象*/
10.     _CommandPtr pCommand;
11.     hr = pCommand.CreateInstance(__uuidof(Command));
12.     if(FAILED(hr))
13.     {
14.         MessageBox(_T("RentDVDByCommand:Command对象实例化失败！"));
15.         return FALSE;
16.     }
18.     /*关联当前连接*/
19.     pCommand->ActiveConnection = m_pConnection;
21.     /*组串*/
22.     CString strSQL;
23.     strSQL.Format(_T("insert into tbRentInfo(sDVDID,sName,sDate) values(\'%s\',\'%s\',\'%s\')"), strDVDID, strRentName, strRentDate);
24.     pCommand->CommandText =_bstr_t(strSQL);
26.     /*执行插入操作*/
27.     try
28.     {
29.         _variant_t vRecords;
30.         hr = pCommand->Execute(&vRecords,NULL,adCmdText);
31.         if (SUCCEEDED(hr))
32.         {
33.             bRet = TRUE;
34.         }
35.     }
36.     catch(_com_error *e)
37.     {
38.         MessageBox(e->ErrorMessage());
39.     }
41.     return bRet;
42. }

2、使用Connection对象完成插入数据的操作，与上一种比较类似：

[html] view plain copy

1. /*
2.     功能:使用 Connection 对象向数据库中插入数据
3. */
4. BOOL CRentDVDDlg::RentDVDByConnection(CString& strDVDID, CString& strRentName, CString& strRentDate)
5. {
6.     BOOL bRet = FALSE;
7.     HRESULT hr;
9.     /*组串*/
10.     CString strSQL;
11.     strSQL.Format(_T("insert into tbRentInfo(sDVDID,sName,sDate) values(\'%s\',\'%s\',\'%s\')"), strDVDID, strRentName, strRentDate);
13.     /*执行插入操作*/
14.     try
15.     {
16.         _variant_t vRecords,RecordsAffected;
17.         hr = m_pConnection->Execute(_bstr_t(strSQL), &RecordsAffected, adCmdText);
18.         if (SUCCEEDED(hr))
19.         {
20.             bRet = TRUE;
21.         }
22.     }
23.     catch(_com_error *e)
24.     {
25.         MessageBox(e->ErrorMessage());
26.     }
28.     return bRet;
29. }

3、使用RecordSet对象完成插入数据操作，RecordSet对象的使用前面文章有介绍：

[html] view plain copy

1. /*
2.     功能:使用 Connection 对象向数据库中插入数据
3. */
4. BOOL CRentDVDDlg::RentDVDByConnection(CString& strDVDID, CString& strRentName, CString& strRentDate)
5. {
6.     BOOL bRet = FALSE;
7.     HRESULT hr;
9.     /*组串*/
10.     CString strSQL;
11.     strSQL.Format(_T("insert into tbRentInfo(sDVDID,sName,sDate) values(\'%s\',\'%s\',\'%s\')"), strDVDID, strRentName, strRentDate);
13.     /*执行插入操作*/
14.     try
15.     {
16.         _variant_t vRecords,RecordsAffected;
17.         hr = m_pConnection->Execute(_bstr_t(strSQL), &RecordsAffected, adCmdText);
18.         if (SUCCEEDED(hr))
19.         {
20.             bRet = TRUE;
21.         }
22.     }
23.     catch(_com_error *e)
24.     {
25.         MessageBox(e->ErrorMessage());
26.     }
28.     return bRet;
29. }

原文地址 http://www.bieryun.com/3286.html