VC++访问Access

VC++访问Access

2009-08-23 21:58:54| 分类：Windows编程| 标签：|字号大中小订阅

转载出处：http://blog.csdn.net/wanshi131/archive/2007/08/25/1758790.aspx

以前的时候用VC写了两种连接Access数据库的方法，为了方便以后查找把这两种方法做一下简单的介绍。Windows平台的数据接口标准有ODBC、OLE DB、ADO和Borland的BDE接口，ODBC(Open DataBase Connectivity)只能用于访问关系型数据库，为了访问非关系型数据微软设计了OLE DB接口并在此基础上推出了ADO(ActiveX Data Objects)。

使用ADO连接数据库，因为要使用COM，需要初始化(CoInitialize).然后就可以生成接口的对象操作，代码如下：

#import "C:Program Files\Common Files\System\ado\msado15.dll" rename("EOF", "adoEOF") //生成C++类，改变EOF函数的名称
using namespace ADODB;

BOOL ADOConnect(CString strDBFile)
{
_ConnectionPtr pConnection;
if(pConnection.CreateInstance(__uuidof(Connection)) != S_OK)
{
return FALSE;
}

CString strConnect;
strConnect.Format(_T("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s"), strDBFile);
if(pConnection->Open(_bstr_t(strConnect), "", "", adModeUnknown) == S_OK)
{
//连接数据库成功
_RecordsetPtr pRecordset;
if(pRecordset.CreateInstance(__uuidof(Recordset)) != S_OK)
{
pConnection->Close();
return FALSE;
}

CString strSql;
strSql = _T("select * from info");
HRESULT hr = pRecordset->Open(_bstr_t(strSql), _variant_t((IDispatch*)pConnection, TRUE), adOpenUnspecified, adLockUnspecified, adCmdUnknown);
if(hr != S_OK)
{
pConnection->Close();
return FALSE;
}
_variant_t vt;

pRecordset->MoveFirst();
while(!pRecordset->adoEOF)
{
vt = pRecordset->Fields->GetItem("姓名")->Value;

pRecordset->MoveNext();
}

pConnection->Close();
return TRUE;
}

return FALSE;
}

----------------------------------------------------------------------------------------------------------------------------------------

出处：http://www.vckbase.com/document/viewdoc/?id=1215

VC++6.0 中用 ADO 存取 Access 数据库的一点总结

作者：querw
北方工业大学计算机2000级4班

下载源代码

　　事情是这样的，我的女朋友想要对日常生活的开销做个记录，以便控制花钱的尺度。看她每日用笔头记录，然后和我抢电脑用，曰：要用附件中的计算器统计结果，每每如此 ，不胜其烦，就给她做了一个个人家庭记帐系统，一劳永逸解决问题。期间用到了ADO操作Access数据库，在网上找了若干关于ADO的资料结合实践总结了一点使用心得如下 ，供有相同需求的朋友参考：

附带了那个个人记帐系统,运行的界面如下：



VC++下使用ADO编写数据库程序

准备：
(1)、引入ADO类

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

(2)、初始化COM

在MFC中可以用AfxOleInit();非MFC环境中用:

CoInitialize(NULL);  CoUnInitialize();  

(3)#import 包含后就可以用3个智能指针了:_ConnectionPtr、_RecordsetPtr和_CommandPtr

1.连接和关闭数据库 (1)连接

例子:连接Access数据库

m_pConnection.CreateInstance(__uuidof(Connection));  try                   {    // 打开本地Access库Demo.mdb   m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Demo.mdb",    "","",adModeUnknown);  }  catch(_com_error e)  {   AfxMessageBox("数据库连接失败，确认数据库Demo.mdb是否在当前路径下!");   return FALSE;  }   

(2)、关闭

//如果数据库连接有效

if(m_pConnection->State)         m_pConnection->Close();  m_pConnection= NULL;    

(3)、设置连接时间 //设置连接时间-----------------------------------

pConnection->put_ConnectionTimeout(long(5));

2.打开一个结果集

(1)打开,首先创建一个_RecordsetPtr实例,然后调用Open()得到一条SQL语句的执行结果

_RecordsetPtr m_pRecordset;  m_pRecordset.CreateInstance(__uuidof(Recordset));    // 在ADO操作中建议语句中要常用try...catch()来捕获错误信息，  // 因为它有时会经常出现一些意想不到的错误。jingzhou xu  try  {   m_pRecordset->Open("SELECT * FROM DemoTable",// 查询DemoTable表中所有字段   m_pConnection.GetInterfacePtr(),  // 获取库接库的IDispatch指针   adOpenDynamic,   adLockOptimistic,   adCmdText);  }  catch(_com_error *e)  {   AfxMessageBox(e->ErrorMessage());  }    

(2)关闭结果集

m_pRecordset->Close();  

3.操作一个结果集

(1)、遍历(读取)
a)、用pRecordset->adoEOF来判断数据库指针是否已经移到结果集的末尾了；m_pRecordset->BOF判断是否 在第一条记录前面：

while(!m_pRecordset->adoEOF)  {   var = m_pRecordset->GetCollect("Name");   if(var.vt != VT_NULL)    strName = (LPCSTR)_bstr_t(var);   var = m_pRecordset->GetCollect("Age");   if(var.vt != VT_NULL)    strAge = (LPCSTR)_bstr_t(var);   m_AccessList.AddString( strName + " --> "+strAge );   m_pRecordset->MoveNext();  }    

b)、取得一个字段的值的办法有两种办法

一是

//表示取得第0个字段的值

m_pRecordset->GetCollect("Name");  

或者

m_pRecordset->GetCollect(_variant_t(long(0));  

二是

pRecordset->get_Collect("COLUMN_NAME");  

或者

pRecordset->get_Collect(long(index));  

(2)、添加

a)、调用m_pRecordset->AddNew();
b)、调用m_pRecordset->PutCollect();给每个字段赋值
c)、调用m_pRecordset->Update();确认

(3)、修改
(4)、删除
a)、把记录指针移动到要删除的记录上,然后调用Delete(adAffectCurrent)

try  {   // 假设删除第二条记录   m_pRecordset->MoveFirst();   m_pRecordset->Move(1);           // 从0开始   m_pRecordset->Delete(adAffectCurrent);     // 参数adAffectCurrent为删除当前记录   m_pRecordset->Update();  }  catch(_com_error *e)  {   AfxMessageBox(e->ErrorMessage());  }  

4.直接执行SQL语句,除了要用到结果集其余的大部分功能都可以直接用SQL语言实现

(1)、用_CommandPtr和_RecordsetPtr配合

_CommandPtr  m_pCommand;  m_pCommand.CreateInstance(__uuidof(Command));  // 将库连接赋于它  m_pCommand->ActiveConnection = m_pConnection;    // SQL语句  m_pCommand->CommandText = "SELECT * FROM DemoTable";    // 执行SQL语句，返回记录集  m_pRecordset = m_pCommand->Execute(NULL, NULL,adCmdText);  

(2)、直接用_ConnectionPtr执行SQL语句

_RecordsetPtr Connection15::Execute ( _bstr_t CommandText,                                         VARIANT * RecordsAffected,                                         long Options )     其中CommandText是命令字串，通常是SQL命令。   参数RecordsAffected是操作完成后所影响的行数,   参数Options表示CommandText中内容的类型，Options可以取如下值之一：   adCmdText:表明CommandText是文本命令   adCmdTable:表明CommandText是一个表名   adCmdProc:表明CommandText是一个存储过程   adCmdUnknown:未知       例子:  _variant_t RecordsAffected;  m_pConnection->Execute("UPDATE users SET old = old+1",&RecordsAffected,adCmdText);  

5.调用存储过程
(1)、利用_CommandPtr

_CommandPtr m_pCommand;  m_pCommand.CreateInstance(__uuidof(Command));  m_pCommand->ActiveConnection = m_pConnection;  // 将库连接赋于它  m_pCommand->CommandText = "Demo";    m_pCommand->Execute(NULL,NULL, adCmdStoredProc);   

(2)、直接用_ConnectionPtr直接调用(见4.(2))

6.遍历数据库中的所有表名

_ConnectionPtr m_pConnect;   _RecordsetPtr pSet;   HRESULT hr;   try   {     hr = m_pConnect.CreateInstance("ADODB.Connection");       if(SUCCEEDED(hr))     {       CString dd;       dd.Format("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s",file);       hr = m_pConnect->Open((_bstr_t)dd,"","",adModeUnknown);       pSet = m_pConnect->OpenSchema(adSchemaTables);          while(!(pSet->adoEOF))       {              //获取表格         _bstr_t table_name = pSet->Fields->GetItem("TABLE_NAME")->Value;          //获取表格类型             _bstr_t table_type = pSet->Fields->GetItem("TABLE_TYPE")->Value;          //过滤一下，只输出表格名称，其他的省略     if ( strcmp(((LPCSTR)table_type),"TABLE")==0){      CString tt;      tt.Format("%s",(LPCSTR)table_name);           AfxMessageBox(tt);             }            pSet->MoveNext();        }       pSet->Close();     }     m_pConnect->Close();    }catch(_com_error e)///捕捉异常   {     CString errormessage;     errormessage.Format("连接数据库失败!rn错误信息:%s",e.ErrorMessage());     AfxMessageBox(errormessage);   return -1;  }  

7.遍历一个表中的所有字段

Field *   field = NULL;    HRESULT   hr;  Fields *  fields = NULL;  hr = m_pRecordset->get_Fields (&fields); //得到记录集的字段集和       if(SUCCEEDED(hr))       fields->get_Count(&ColCount);     //得到记录集的字段集合中的字段的总个数   for(i=0;iItem[i]->get_Name(&bstrColName); //得到记录集//中的字段名   strColName=bstrColName;    nameField = strColName;   m_FieldsList.AddString(nameField);  }  if(SUCCEEDED(hr))   fields->Release();//释放指针  

附:
1、_variant_t
(1)、一般传给这3个指针的值都不是MFC直接支持的数据类型,而要用_variant_t转换一下
_variant_t(XX)可以把大多数类型的变量转换成适合的类型传入：
(2)、_variant_t var;

_variant_t -> long: (long)var;  _variant_t -> CString: CString strValue = (LPCSTR)_bstr_t(var);  CString -> _variant_t: _variant_t(strSql);

2、BSTR宽字符串与CString相互转换

BSTR bstr;  CString strSql;  CString -> BSTR: bstr = strSql.AllocSysString();  BSTR -> CString: strSql = (LPCSTR)bstr;

3、_bstr_t与CString相互转换

_bstr_t bstr;  CString strSql;  CString -> _bstr_t: bstr = (_bstr_t)strSql;  _bstr_t -> CString: strSql = (LPCSTR)bstr;

4、关于时间
Access:表示时间的字符串#2004-4-5#
Sql:表示时间的字符串''2004-4-5''
DateField(时间字段) select * from my_table where DateField > #2004-4-10#

-----------------------------------------------------------------------------------------------------------------------------------------

出处：http://www.programfan.com/blog/article.asp?id=28876

baidu记录VC访问ACCESS

VC调用ACCESS数据库，高分求助

悬赏分：100 - <>

刚开始学习VC，学编程刚入门，很多都不懂，就下载了一个源代码来修改，源代码经简单调试后可以运行，可以调用ACCESS数据库，但是数据库是97版的。我想把数据库的字段增多，改为我希望的样子，也就是添加了10个名目。只好转换为2003后修改再改回97保存。VC的程序里面，所有原来涉及的字段我都修改了，并在对话框里也加了TEXT，命名为IDC-TEL、IDC-FAX等，现在调试完成后，可执行文件也生成了，主程序有时候又可以运行，但是读取MDB就弹出严重错误，然后只能关闭。有时候又不能运行，出错“DEBUG ASSERTION FAILED！”和终止忽略调试，我该怎么办呢？

有高手愿意指导，或者帮我调就感谢了

提问者： 诸葛亮弹钢琴 - 见习魔法师 二级

最佳答案

1：针对问题解决问题。
将库从XP转到2003，是没有问题的，在转回去也可以。但是从97转到2003就有问题了，起初我也遇到类似的问题。你说的是出错现象，我们无法猜想出你的程序

哪里有问题，出现bug。建议你在对数据库操作的时候都加上断言（assert）,
参考资料 http://msdn.microsoft.com/library/chs/default.asp?url=/library/CHS/cpguide/html/cpconassert.asp
或者在对数据库操作的时候都加上错误处理(try{...}catch(...){...})，这样就可以知道错误出现在哪里，例如：
BOOL CODBCHandle::SetConnection(CString strDSN, CString strUID, CString strPWD)
{
CString str;
str.Format("DSN=%s;UID=%s;PWD=%s", strDSN, strUID, strPWD);
BOOL bStatus = FALSE; //数据库是否成功打开
m_database.SetLoginTimeout(3); //连接超时属性
try
{
if(!m_database.IsOpen())
{
bStatus = m_database.OpenEx(str, CDatabase::openReadOnly | CDatabase::noOdbcDialog);
if(bStatus)
AfxMessageBox("连接成功.");
}
}
catch(CMemoryException *pEx) //处理内存异常
{
pEx->ReportError();
return FALSE;
}
catch(CDBException *pDBEx) //处理数据库异常
{
pDBEx->ReportError();
TRACE("RetCode:%d strError:[%s] strState:[%s]\n", pDBEx->m_nRetCode, pDBEx->m_strError, pDBEx->m_strStateNativeOrigin);
return FALSE;
}
return TRUE;
}
try{...}catch(...){...}参考资料 http://msdn.microsoft.com/library/chs/default.asp?url=/library/CHS/csref/html/vclrfthetrycatchstatement.asp
以上是追踪错误处理。但是不知道你的程序是什么样的，所以不知道怎么处理。
2：方法
用vc访问Access数据库，就向上面朋友说的那样就可以。操作Access可以不通过数据源，直接对其访问。
访问数据库的模型一般为ODBC,DAO,ADO等。上面的朋友就用的是ADO,你可以看看，他在开始时，在程序里引进了msado15.dll 动态库。这里面封装了ADO的对象、

方法和属性等等。然后初始化COM库，再用_ConnectionPtr对象(它就是ADO的3个对象之一)进行连接数据库，_RecordsetPtr对象是记录集对象，我们对库的操作

大多就是对它的操作，它里面有好多函数，你可以查MSDN。
我上面的代码是用ODBC方式连接，ODBC方式是最地层的，也是通用的模式。可以说他支持任何库。关于ODBC，微软提供了CDatabase类和CRecordset类，使用方法

和以上差不多。有什么问题再聊。
建议以后把问题说的清楚一些，要不我们帮不上你什么忙了。

回答者：VC程序员 - 试用期 一级 11-2 13:51

对最佳答案的评论

< bl="(LPCSTR)_bstr_t(var);" if(var.vt!="VT_NULL)" var='m_Rct->GetCollect("字段名");' bl; CString var; _variant_t>

xyzdhl -试用期 一级

其他回答

共 1 条

1.建立基于对话框的工程test

2.在stdafx.h中导入msado15.dll

#import "C:\Program Files\Common Files\System\ado\msado15.dll" no_namespace rename("EOF", "adoEOF")
#endif // _AFX_NO_AFXCMN_SUPPORT

可以换成另一种方式调用:

#include <comdef.h>
#include "msado15.tlh"

要在工程目录下面加上msado15.tlh,msado15.tli

3.初始话COM,在test.cpp文件中

BOOL CTestApp::InitInstance()
{
AfxOleInit();//初始话
AfxEnableControlContainer();

4.进入按钮事件.

void CTestDlg::OnButton4()
{
// TODO: Add your control notification handler code here
_ConnectionPtr connection;
_RecordsetPtr recordset;
connection.CreateInstance( __uuidof(Connection));
recordset.CreateInstance(__uuidof(Recordset));
int ID = 0;
connection->Open("Provider=Microsoft.JET.OLEDB.4.0;Data Source=dictionary.mdb","","",adModeUnknown); //.mdb文件放到当前执行路径下(和DEBUG文件夹同目录)
recordset->Open("SELECT * FROM word",_variant_t((IDispatch *)connection,true),adOpenStatic,adLockOptimistic,adCmdText); //选择WORD表中的所有记录,黑体字的如果有问题可以改这个试试SELECT * FROM [word while (!(recordset->adoEOF)) {
int id = recordset->GetCollect("ID").intVal;//文件中存在的ID字段
if ( id > ID)
ID = id;
recordset->MoveNext();
}
recordset->Close();
connection->Close();
}

---------------------------------------------------------------------------------------------------------------------------------------------出处：http://www.programfan.com/blog/article.asp?id=15520

直接通过ADO操作Access数据库
作者/徐景周

我在《VC知识库在线杂志》第十四期和第十五期上曾发表了两篇文章——“直接通过ODBC读、写Excel表格文件”和“直接通过DAO读、写Access文件”，先后给大家介绍了ODBC和DAO两种数据库访问技术的基本使用方法，这次要给大家介绍的是ADO数据库访问技术的使用方法。ADO(Active Data Object，活动数据对象)实际上是一种基于COM(组件对象模型)的自动化接口(IDispatch)技术，并以OLE DB(对象连接和镶入的数据库)为基础，经过OLE DB精心包装后的数据库访问技术，利用它可以快速的创建数据库应用程序。 ADO提供了一组非常简单，将一般通用的数据访问细节进行封装的对象。由于ODBC数据源也提供了一般的OLE DB Privider，所以ADO不仅可以应用自身的OLE DB Privider，而且还可以应用所有的ODBC驱动程序。关于OLE DB和ADO的其它详细情况，读者可以自行查阅相关书籍或MSDN，这里就不一一说明了。让我们直接步入主题：如何掌握ADO这种数据库访问技术。ADO的操作方法和前面讲过的DAO的操作在很多方面存在相似之处，在这里，笔者为了更有效的说明它的使用方法，用VC6.0做了一个示例程序——AdoRWAccess，这个示例程序可以直接通过ADO来操作Access数据库，示例程序的运行效果如下图所示：



在示例程序中我们仍采用原库结构，数据库名Demo.mdb，库内表名DemoTable，表内字段名为Name(姓名)和Age(年龄)的两个字段，来构造示例程序操作所需的Access数据库，这也和上两篇文章的示例源码中的库结构相兼容。
下面让我们看看ADO数据库访问技术使用的基本步骤及方法：
首先，要用#import语句来引用支持ADO的组件类型库(*.tlb)，其中类型库可以作为可执行程序(DLL、EXE等)的一部分被定位在其自身程序中的附属资源里，如：被定位在msado15.dll的附属资源中，只需要直接用#import引用它既可。可以直接在Stdafx.h文件中加入下面语句来实现：

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

其中路径名可以根据自己系统安装的ADO支持文件的路径来自行设定。当编译器遇到#import语句时，它会为引用组件类型库中的接口生成包装类，#import语句实际上相当于执行了API涵数LoadTypeLib()。#import语句会在工程可执行程序输出目录中产生两个文件，分别为*.tlh(类型库头文件)及*.tli(类型库实现文件)，它们分别为每一个接口产生智能指针，并为各种接口方法、枚举类型，CLSID等进行声明，创建一系列包装方法。语句no_namespace说明ADO对象不使用命名空间，rename ("EOF", "adoEOF")说明将ADO中结束标志EOF改为adoEOF，以避免和其它库中命名相冲突。
其次，在程序初始过程中需要初始化组件，一般可以用CoInitialize(NULL);来实现，这种方法在结束时要关闭初始化的COM，可以用下面语句CoUnInitialize();来实现。在MFC中还可以采用另一种方法来实现初始化COM，这种方法只需要一条语句便可以自动为我们实现初始化COM和结束时关闭COM的操作，语句如下所示： AfxOleInit();
接着，就可以直接使用ADO的操作了。我们经常使用的只是前面用#import语句引用类型库时，生成的包装类.tlh中声明的智能指针中的三个，它们分别是_ConnectionPtr、_RecordsetPtr和_CommandPtr。下面分别对它们的使用方法进行介绍：
1、_ConnectionPtr智能指针，通常用于打开、关闭一个库连接或用它的Execute方法来执行一个不返回结果的命令语句(用法和_CommandPtr中的Execute方法类似)。
——打开一个库连接。先创建一个实例指针，再用Open打开一个库连接，它将返回一个IUnknown的自动化接口指针。代码如下所示：

_ConnectionPtr m_pConnection;  // 初始化COM,创建ADO连接等操作  AfxOleInit();  m_pConnection.CreateInstance(__uuidof(Connection));    // 在ADO操作中建议语句中要常用try...catch()来捕获错误信息，  // 因为它有时会经常出现一些意想不到的错误。jingzhou xu  try                   {    // 打开本地Access库Demo.mdb   m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Demo.mdb","","",adModeUnknown);  }  catch(_com_error e)  {   AfxMessageBox("数据库连接失败，确认数据库Demo.mdb是否在当前路径下!");   return FALSE;  }      

——关闭一个库连接。如果连接状态有效，则用Close方法关闭它并赋于它空值。代码如下所示：

if(m_pConnection->State)          m_pConnection->Close();  m_pConnection= NULL;      

2、_RecordsetPtr智能指针，可以用来打开库内数据表，并可以对表内的记录、字段等进行各种操作。
——打开数据表。打开库内表名为DemoTable的数据表，代码如下：

_RecordsetPtr m_pRecordset;  m_pRecordset.CreateInstance(__uuidof(Recordset));    // 在ADO操作中建议语句中要常用try...catch()来捕获错误信息，  // 因为它有时会经常出现一些意想不到的错误。jingzhou xu  try  {   m_pRecordset->Open("SELECT * FROM DemoTable",                // 查询DemoTable表中所有字段        theApp.m_pConnection.GetInterfacePtr(),  // 获取库接库的IDispatch指针        adOpenDynamic,        adLockOptimistic,        adCmdText);  }  catch(_com_error *e)  {   AfxMessageBox(e->ErrorMessage());  }      

——读取表内数据。将表内数据全部读出并显示在列表框内，m_AccessList为列表框的成员变量名。如果没有遇到表结束标志adoEOF，则用GetCollect(字段名)或m_pRecordset->Fields->GetItem(字段名)->Value方法，来获取当前记录指针所指的字段值，然后再用MoveNext()方法移动到下一条记录位置。代码如下所示：

_variant_t var;  CString strName,strAge;   try   {    if(!m_pRecordset->BOF)     m_pRecordset->MoveFirst();    else    {     AfxMessageBox("表内数据为空");     return;    }      // 读入库中各字段并加入列表框中    while(!m_pRecordset->adoEOF)    {     var = m_pRecordset->GetCollect("Name");     if(var.vt != VT_NULL)      strName = (LPCSTR)_bstr_t(var);     var = m_pRecordset->GetCollect("Age");     if(var.vt != VT_NULL)      strAge = (LPCSTR)_bstr_t(var);       m_AccessList.AddString( strName + " --> "+strAge );       m_pRecordset->MoveNext();    }      // 默认列表指向第一项，同时移动记录指针并显示    m_AccessList.SetCurSel(0);   }   catch(_com_error *e)   {    AfxMessageBox(e->ErrorMessage());   }     

——插入记录。可以先用AddNew()方法新增一个空记录，再用PutCollect(字段名,值)输入每个字段的值，最后再Update()更新到库中数据既可。其中变量m_Name和m_Age分别为姓名及年龄编辑框的成员变量名。代码所下所示：

try   {    // 写入各字段值    m_pRecordset->AddNew();    m_pRecordset->PutCollect("Name", _variant_t(m_Name));    m_pRecordset->PutCollect("Age", atol(m_Age));    m_pRecordset->Update();      AfxMessageBox("插入成功!");   }   catch(_com_error *e)   {    AfxMessageBox(e->ErrorMessage());   }      

——移动记录指针。移动记录指针可以通过MoveFirst()方法移动到第一条记录、MoveLast()方法移动到最后一条记录、MovePrevious()方法移动到当前记录的前一条记录、MoveNext()方法移动到当前记录的下一条记录。但我们有时经常需要随意移动记录指针到任意记录位置时，可以使用Move(记录号)方法来实现，注意: Move()方法是相对于当前记录来移动指针位置的，正值向后移动、负值向前移动，如：Move(3)，当前记录是3时，它将从记录3开始往后再移动3条记录位置。代码如下所示：

 try   {    int curSel = m_AccessList.GetCurSel();     // 先将指针移向第一条记录，然后就可以相对第一条记录来随意移动记录指针    m_pRecordset->MoveFirst();    m_pRecordset->Move(long(curSel));       }   catch(_com_error *e)   {    AfxMessageBox(e->ErrorMessage());   }      

——修改记录中字段值。可以将记录指针移动到要修改记录的位置处，直接用PutCollect(字段名，值)将新值写入并Update()更新数据库既可。可以用上面方法移动记录指针，修改字段值代码如下所示：

 try   {    // 假设对第二条记录进行修改    m_pRecordset->MoveFirst();    m_pRecordset->Move(1);        // 从0开始    m_pRecordset->PutCollect("Name", _variant_t(m_Name));    m_pRecordset->PutCollect("Age", atol(m_Age));    m_pRecordset->Update();   }   catch(_com_error *e)   {    AfxMessageBox(e->ErrorMessage());   }      

——删除记录。删除记录和上面修改记录的操作类似，先将记录指针移动到要修改记录的位置，直接用Delete()方法删除它并用Update()来更新数据库既可。代码如下所示：

 try   {    // 假设删除第二条记录    m_pRecordset->MoveFirst();    m_pRecordset->Move(1);        // 从0开始    m_pRecordset->Delete(adAffectCurrent);  // 参数adAffectCurrent为删除当前记录    m_pRecordset->Update();   }   catch(_com_error *e)   {    AfxMessageBox(e->ErrorMessage());   }      

——关闭记录集。直接用Close方法关闭记录集并赋于其空值。代码如下所示：

 m_pRecordset->Close();   m_pRecordset = NULL;      

3、CommandPtr智能指针，可以使用_ConnectionPtr或_RecordsetPtr来执行任务，定义输出参数，执行存储过程或SQL语句。
——执行SQL语句。先创建一个_CommandPtr实例指针，再将库连接和SQL语句做为参数，执行Execute()方法既可。代码如下所示：

_CommandPtr  m_pCommand;  m_pCommand.CreateInstance(__uuidof(Command));  m_pCommand->ActiveConnection = m_pConnection;  // 将库连接赋于它  m_pCommand->CommandText = "SELECT * FROM DemoTable";  // SQL语句  m_pRecordset = m_pCommand->Execute(NULL, NULL,adCmdText); // 执行SQL语句，返回记录集      

——执行存储过程。执行存储过程的操作和上面执行SQL语句类似，不同点仅是CommandText参数中不再是SQL语句，而是存储过程的名字，如Demo。另一个不同点就是在Execute()中参数由adCmdText(执行SQL语句)，改为adCmdStoredProc来执行存储过程。如果存储过程中存在输入、输出参数的话，需要使用到另一个智能指针_ParameterPtr来逐次设置要输入、输出的参数信息，并将其赋于_CommandPtr中Parameters参数来传递信息，有兴趣的读者可以自行查找相关书籍或MSDN。执行存储过程的代码如下所示：

_CommandPtr  m_pCommand;  m_pCommand.CreateInstance(__uuidof(Command));    m_pCommand->ActiveConnection = m_pConnection;  // 将库连接赋于它  m_pCommand->CommandText = "Demo";      m_pCommand->Execute(NULL,NULL, adCmdStoredProc);