上位机MFC如何使用ADO在数据库中修改记录

上位机MFC如何使用ADO在数据库中修改记录

上面是例程截图。
初始化COM库        if (!SUCCEEDED(CoInitialize(NULL)))        {
                ::AfxMessageBox(_T("Failed to initialize COM!"));
                return FALSE;
        }

加载ODA库

#import "c:\program files\common files\system\ado\msado15.dll"\
                no_namespace\
                rename("EOF", "adoEOF")

自定义数据库操作变量与函数
        _ConnectionPtr m_pConnection;
        _RecordsetPtr m_pRecordset;
        BOOL OpenDatabase(LPCTSTR lpszConnect, long nOptions=adConnectUnspecified);
        BOOL CloseDatabase();
        BOOL OpenRecordset(LPCTSTR lpszSource, long nCursorType=adOpenDynamic,
                          long nLockType=adLockOptimistic, long nOptions=adCmdText);
        BOOL CloseRecordset();

1. BOOL CDemoDlg::OpenDatabase(LPCTSTR lpszConnect, long nOptions)
   
2. {
   
3.         ASSERT(m_pConnection != NULL);
   
4.         ASSERT(lpszConnect != NULL);
   
5.         ASSERT(AfxIsValidString(lpszConnect));
   
6.        
   
7.         //打开数据库连接
   
8.         try
   
9.         {
   
10.                 return SUCCEEDED(m_pConnection->Open(_bstr_t(lpszConnect),
    
11.                         _T(""), _T(""), nOptions));
    
12.         }
    
13.         catch (_com_error& e)
    
14.         {
    
15.                 TRACE(_T("%s\n"), e.ErrorMessage());
    
16.                 return FALSE;
    
17.         }
    
18. }
    
19. 
    
20. BOOL CDemoDlg::CloseDatabase()
    
21. {
    
22.         ASSERT(m_pConnection != NULL);
    
23. 
    
24.         //关闭数据库连接
    
25.         try
    
26.         {
    
27.                 if (m_pConnection->State & adStateOpen)
    
28.                 {
    
29.                         return SUCCEEDED(m_pConnection->Close());
    
30.                 }
    
31.                 else
    
32.                 {
    
33.                         return TRUE;
    
34.                 }
    
35.         }
    
36.         catch (_com_error& e)
    
37.         {
    
38.                 TRACE(_T("%s\n"), e.ErrorMessage());
    
39.                 return FALSE;
    
40.         }
    
41. }
    
42. 
    
43. BOOL CDemoDlg::OpenRecordset(LPCTSTR lpszSource, long nCursorType, long nLockType, long nOptions)
    
44. {
    
45.         ASSERT(m_pConnection != NULL);
    
46.         ASSERT(m_pRecordset != NULL);
    
47.         ASSERT(lpszSource != NULL);
    
48.         ASSERT(AfxIsValidString(lpszSource));
    
49. 
    
50.         //打开记录集
    
51.         try
    
52.         {
    
53.                 return (SUCCEEDED(m_pRecordset->Open(_variant_t(lpszSource),
    
54.                                                                                 m_pConnection.GetInterfacePtr(),
    
55.                                                                                 (CursorTypeEnum)nCursorType,
    
56.                                                                                 (LockTypeEnum)nLockType,
    
57.                                                                                 nOptions)));
    
58.         }
    
59.         catch(_com_error e)
    
60.         {
    
61.                 TRACE(_T("%s\n"), e.ErrorMessage());
    
62.                 return FALSE;
    
63.         }
    
64. }
    
65. 
    
66. BOOL CDemoDlg::CloseRecorset()
    
67. {
    
68.         ASSERT(m_pRecordset != NULL);
    
69. 
    
70.         //关闭记录集
    
71.         try
    
72.         {
    
73.                 if (m_pRecordset->State & adStateOpen)
    
74.                 {
    
75.                         return SUCCEEDED(m_pRecordset->Close());
    
76.                 }
    
77.                 else
    
78.                 {
    
79.                         return TRUE;
    
80.                 }
    
81.         }
    
82.         catch (_com_error e)
    
83.         {
    
84.                 TRACE(_T("%s\n"), e.ErrorMessage());
    
85.                 return FALSE;
    
86.         }
    
87. }
    

复制代码

添加按钮与列表框等控件，并初始化。

1. //初始化ListCtrl
   
2.         CListCtrl* pListCtrl = (CListCtrl*)GetDlgItem(IDC_LIST);
   
3.         pListCtrl->SetExtendedStyle(LVS_EX_FULLROWSELECT | LVS_EX_GRIDLINES);
   
4.         pListCtrl->InsertColumn(1, _T("序号"), LVCFMT_CENTER, 80);
   
5.         pListCtrl->InsertColumn(2, _T("姓名"), LVCFMT_CENTER, 100);
   
6.         pListCtrl->InsertColumn(3, _T("年龄"), LVCFMT_CENTER, 100);
   
7. 
   
8.         //读取记录集
   
9.         if (m_pRecordset->BOF && m_pRecordset->adoEOF)
   
10.         {
    
11.                 return FALSE;
    
12.         }
    
13.         m_pRecordset->MoveFirst();
    
14.         int n = 0;
    
15.         while (!m_pRecordset->adoEOF)
    
16.         {
    
17.                 _variant_t varValue;
    
18.                 CString strName = _T("");
    
19.                 int nAge = 0;
    
20. 
    
21.                 varValue = m_pRecordset->GetCollect(_variant_t(_T("NAME")));
    
22.                 if (varValue.vt != VT_NULL)
    
23.                 {
    
24.                         strName = varValue.bstrVal;
    
25.                 }
    
26.                 else
    
27.                 {
    
28.                         strName = _T("");
    
29.                 }
    
30. 
    
31.                 varValue = m_pRecordset->GetCollect(_variant_t(_T("AGE")));
    
32.                 if (varValue.vt != VT_NULL)
    
33.                 {
    
34.                         nAge = varValue.intVal;
    
35.                 }
    
36.                 else
    
37.                 {
    
38.                         nAge = 0;
    
39.                 }
    
40. 
    
41.                 //刷新ListCtrl
    
42.                 CString strText = _T("");
    
43.                 strText.Format(_T("%d"), n + 1);
    
44.                 pListCtrl->InsertItem(n, strText);
    
45.                 strText.Format(_T("%s"), strName);
    
46.                 pListCtrl->SetItemText(n, 1, strText);
    
47.                 strText.Format(_T("%d"), nAge);
    
48.                 pListCtrl->SetItemText(n, 2, strText);
    
49.                 n++;
    
50. 
    
51.                 m_pRecordset->MoveNext();
    
52.         }

复制代码

两个按钮的函数

1. 
   
2. void CGkbc8Dlg::OnButton1()
   
3. {
   
4.         if (!(m_pRecordset->State & adStateOpen))
   
5.         {
   
6.                 AfxMessageBox((_T("记录集未打开。")));
   
7.                 return;
   
8.         }
   
9. 
   
10.         //获得记录集当前位置
    
11.         CListCtrl* pListCtrl = (CListCtrl*)GetDlgItem(IDC_LIST);
    
12.         POSITION pos = pListCtrl->GetFirstSelectedItemPosition();
    
13.         if (pos == NULL)
    
14.         {
    
15.                 return;
    
16.         }
    
17.         int nItem = pListCtrl->GetNextSelectedItem(pos);
    
18. 
    
19.        
    
20.         CString strName = "工控编程吧";
    
21.         long nAge = 5;
    
22. 
    
23.         //修改记录集
    
24.         if (m_pRecordset->BOF && m_pRecordset->adoEOF)
    
25.         {
    
26.                 return;
    
27.         }
    
28.         m_pRecordset->MoveFirst();
    
29.         m_pRecordset->Move((long)nItem);
    
30.         m_pRecordset->PutCollect(_variant_t(_T("NAME")),
    
31.                 _variant_t(strName));
    
32.         m_pRecordset->PutCollect(_variant_t(_T("AGE")),
    
33.                 _variant_t(nAge));
    
34.         m_pRecordset->Update();
    
35. 
    
36.         //读取记录集
    
37.         pListCtrl->DeleteAllItems();
    
38.         if (m_pRecordset->BOF && m_pRecordset->adoEOF)
    
39.         {
    
40.                 return;
    
41.         }
    
42.         m_pRecordset->MoveFirst();
    
43.         int n = 0;
    
44.         while (!m_pRecordset->adoEOF)
    
45.         {
    
46.                 _variant_t varValue;
    
47.                 CString strName = _T("");
    
48.                 int nAge = 0;
    
49. 
    
50.                 varValue = m_pRecordset->GetCollect(_variant_t(_T("NAME")));
    
51.                 if (varValue.vt != VT_NULL)
    
52.                 {
    
53.                         strName = varValue.bstrVal;
    
54.                 }
    
55.                 else
    
56.                 {
    
57.                         strName = _T("");
    
58.                 }
    
59. 
    
60.                 varValue = m_pRecordset->GetCollect(_variant_t(_T("AGE")));
    
61.                 if (varValue.vt != VT_NULL)
    
62.                 {
    
63.                         nAge = varValue.intVal;
    
64.                 }
    
65.                 else
    
66.                 {
    
67.                         nAge = 0;
    
68.                 }
    
69. 
    
70.                 //刷新ListCtrl
    
71.                 CString strText = _T("");
    
72.                 strText.Format(_T("%d"), n + 1);
    
73.                 pListCtrl->InsertItem(n, strText);
    
74.                 strText.Format(_T("%s"), strName);
    
75.                 pListCtrl->SetItemText(n, 1, strText);
    
76.                 strText.Format(_T("%d"), nAge);
    
77.                 pListCtrl->SetItemText(n, 2, strText);
    
78.                 n++;
    
79. 
    
80.                 m_pRecordset->MoveNext();
    
81.         }
    
82. }

复制代码

1. 
   
2. void CGkbc8Dlg::OnRead()
   
3. {        if (!(m_pRecordset->State & adStateOpen))
   
4.         {
   
5.                 AfxMessageBox((_T("记录集未打开。")));
   
6.                 return;
   
7.         }
   
8. 
   
9.         //读取记录集
   
10.         CListCtrl* pListCtrl = (CListCtrl*)GetDlgItem(IDC_LIST);
    
11.         pListCtrl->DeleteAllItems();
    
12.         if (m_pRecordset->BOF && m_pRecordset->adoEOF)
    
13.         {
    
14.                 return;
    
15.         }
    
16.         m_pRecordset->MoveFirst();
    
17.         int n = 0;
    
18.         while (!m_pRecordset->adoEOF)
    
19.         {
    
20.                 _variant_t varValue;
    
21.                 CString strName = _T("");
    
22.                 int nAge = 0;
    
23. 
    
24.                 varValue = m_pRecordset->GetCollect(_variant_t(_T("NAME")));
    
25.                 if (varValue.vt != VT_NULL)
    
26.                 {
    
27.                         strName = varValue.bstrVal;
    
28.                 }
    
29.                 else
    
30.                 {
    
31.                         strName = _T("");
    
32.                 }
    
33. 
    
34.                 varValue = m_pRecordset->GetCollect(_variant_t(_T("AGE")));
    
35.                 if (varValue.vt != VT_NULL)
    
36.                 {
    
37.                         nAge = varValue.intVal;
    
38.                 }
    
39.                 else
    
40.                 {
    
41.                         nAge = 0;
    
42.                 }
    
43. 
    
44.                 //刷新ListCtrl
    
45.                 CString strText = _T("");
    
46.                 strText.Format(_T("%d"), n + 1);
    
47.                 pListCtrl->InsertItem(n, strText);
    
48.                 strText.Format(_T("%s"), strName);
    
49.                 pListCtrl->SetItemText(n, 1, strText);
    
50.                 strText.Format(_T("%d"), nAge);
    
51.                 pListCtrl->SetItemText(n, 2, strText);
    
52.                 n++;
    
53. 
    
54.                 m_pRecordset->MoveNext();
    
55.         }
    
56. }
    

复制代码

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:上位机MFC如何使用ADO在数据库中修改记录.rar 
文件大小:182.62 KB  售价:1金币
下载权限: 不限 以上或 VIP会员   [购买捐助会员]   [充值积分]  

  

上位机VC MFC程序开发精典实例大全源码与视频讲解配套下载408例

  

经历1年的编程与录制点击进入查看

  

如果您认可，可联系功能定制！

  

如果您着急，充值会员可直接联系发您资料！