VC下的ADO编程入门(1)

n          新建一基于对话框的应用程序zjy，在对话框上添加一个列表框和一个按钮，用ClassWizard给列表框添加一个变量m_list

n          在StdAfx.h头文件的所有include语句下面添加如下一条语句

#import "c:program filescommon filessystemadomsado15.dll" no_namespace rename ("EOF","adoEOF")

n          在zjyDlg.h头文件处添加两个变量

         _ConnectionPtr m_pConnection;

         _RecordsetPtr m_pRecordset;

n          在zjyDlg.cpp的BOOL CZjyDlg::OnInitDialog()的return TRUE;语句前添加如下语句

         if(!AfxOleInit())

         {

                   AfxMessageBox("COM Error!");                 

         }

n          添加按钮的消息响应函数并写入下面代码

void CZjyDlg::OnButton1()

{

         m_list.ResetContent();

         int i=0;

         m_pConnection.CreateInstance(__uuidof(Connection));

         m_pRecordset.CreateInstance(__uuidof(Recordset));

         try{

                   m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:ActiveX 数据对象VC_ACCESSzjyMyDb1.mdb;","","",0);

                   m_pRecordset->Open("SELECT * FROM MyTable1",(IDispatch *)m_pConnection,adOpenDynamic,adLockOptimistic,adCmdText);

                   m_pRecordset->MoveFirst();

                   while(!m_pRecordset->adoEOF)

                   {

                            i=i+1;

                            _variant_t theValue = m_pRecordset->GetCollect("n1");

                            if(theValue.vt != VT_NULL)

                                     m_list.AddString((char *)_bstr_t(theValue));

                            m_pRecordset->MoveNext();

                   }

                   m_pRecordset->Close();

                   m_pConnection->Close();

         }

         catch(_com_error e)

         {

                   AfxMessageBox(e.ErrorMessage());

         } 

         char str[32];

         sprintf(str,"table have %d record",i);

         AfxMessageBox(str);

         m_pRecordset = NULL;

         m_pConnection = NULL;

}

完成的功能就是把Access数据库中的某表的某一字段添加到列表框中。下一篇介绍把SQL SERVER数据库中的某表添加到列表视图中。

(完)