工控编程吧

标题: 上位机MFC如何使用ADO在数据库中查找记录 [打印本页]

---

作者: qq263946146    时间: 2019-8-9 12:26
标题: 上位机MFC如何使用ADO在数据库中查找记录
https://www.gkbc8.com/thread-15136-1-1.html
如下图。我们在上边帖子的代码基础上实现数据库查找功能。
(, 下载次数: 2)

上传

点击文件名下载附件
查找按钮的点击函数如下。
在数据库中查找指定的内容工控编程吧。

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

复制代码

(, 下载次数: 0)

上传

点击文件名下载附件
[MFC408]1[/MFC408]
[weixinlianxi]1[/weixinlianxi]

---

欢迎光临 工控编程吧 (https://www.gkbc8.com/)

Powered by Discuz! X3.4