void CMyDlg::OnButton1()
{// TODO: Add your control notification handler code hereif (AfxOleInit())//初始化OLE
    {_ConnectionPtr m_pConnection;//声明一个连接对象
        _RecordsetPtr m_pRecordset;HRESULT hr;try{hr = m_pConnection.CreateInstance("ADODB.Connection"); //创建连接if(SUCCEEDED(hr))//判断是否连接成功
            {MessageBox("指针连接成功！");m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb","","",adModeUnknown);//打开数据库
                _variant_t RecordsAffected;//声明返回被修改的条目数CString strSQL;//SQL字符串语句strSQL.Format("insert into d1(name) values('%s')","正月龙");m_pRecordset = m_pConnection->Execute((_bstr_t)strSQL,&RecordsAffected,adCmdText);//操作数据库MessageBox("数据加入成功！");//m_pRecordset->Close();
                                m_pRecordset = m_pConnection->Execute("select count(*) from d1",&RecordsAffected,adCmdText);//返回总条目数_variant_t vIndex = (long)0;  _variant_t vCount = m_pRecordset->GetCollect(vIndex);//取得第一个字段的整数值放入vCount变量
                CString str;str.Format("总共有%d条数据",vCount.lVal);MessageBox(str);m_pRecordset = m_pConnection->Execute("select * from d1",&RecordsAffected,adCmdText);//m_pRecordset->MoveNext();//m_pRecordset->MoveNext();_variant_t vIndex1 = (long)0;  _variant_t vCount1 = m_pRecordset->GetCollect(vIndex1);//取得第一个字段的字符串值放入vCount1变量
                CString str1;str1 = vCount1.bstrVal;MessageBox("第一个字段内容是："+str1);m_pRecordset->Close();}}catch(_com_error e){CString str;str.Format("数据库连接失败\r\n错误信息：%s",e.ErrorMessage());MessageBox(str);}//MessageBox("初始化 OLE 成功！");}elseMessageBox("初始化 OLE 失败");}