1、导入库文件
#import "C:\Program Files\commonfiles\system\ado\msado15.dll" no_namespace rename("EOF","EndOfFile")rename("BOF","FirstOfFile")ADO类的定义是作为一种资源存储在ADO DLL(msado15.dll）中，在其内部称为类型库。
类型库描述了自治接口，以及C＋＋使用的COM vtable接口。
当使用＃import指令时，在运行时Visual C＋＋需要从ADO DLL中读取这个类型库，
并以此创建一组C＋＋头文件。这些头文件具有.tli 和.tlh扩展名，＃import引入ADO库文件的代码编译后，在项目的目录下生成了这两个文件。在C++程序代码中调用的ADO类要在这些文件中定义。
no_namespace指示ADO对象不使用名称空间，在有些应用程序中，
由于应用程序中的对象与ADO中的对象之间可能会出现命名冲突，所以有必要使用名称空间。
如果要使用名称空间，则可把第三行程序修改为： rename_namespace("AdoNS")。
rename("EOF","EndOfFile")表示将ADO中的EOF(文件结束)更名为adoEOF，因为文件的结尾也是以EOF结尾的，是为了避免与定义了自己的EOF的其他库冲突。 至于改为什么名字，可以根据自己的命名习惯自己确定。
2、初始化COM环境
OLE DB 是基于COM技术编写的，ADO是OLE DB基础之上的用户程序，
OLE DB是一个COM组件，在访问COM组件的时候需要初始化COM库，方法如下：
（1）??::CoInitialize(NULL); //初始化OLE/COM库环境
释放代码：
::CoUninitialize();//既然初始化了环境，当然一定要记得释放他了
（2）也可以调用MFC全局函数
AfxOleInit();
3、三大指针对象的定义和创建实例
(1)
_ConnectionPtrpConnection("ADODB.Connection");
_RecordsetPtrpRecordset("ADODB.Recordset");
_CommandPtrpCommand("ADODN.Command");(2)
_ConnectionPtr pConnection;
_RecordsetPtr pRecordset;
_CommandPtr pCommand;
pConnection.CreateInstance(__uuidof(Connection));
pRecordset.CreateInstance(__uuidof(Recordset));
pCommand.CreateInstance(__uuidof(Command));要产生一个智能指针对象，其实在定义的同时也可以初始化，如：
_ConnectionPtrpConnection(__uuidof(Connection));
_ConnectionPtr 是智能指针
__uuidof() 用来获取Connection全局唯一标识符
(3)
_ConnectionPtr pConnection;
_RecordsetPtr pRecordset;
_CommandPtr pCommand;
pConnection.CreateInstance("ADODB.Connection");
pRecordset.CreateInstance("ADODB.Recordset");
pCommand.CreateInstance("ADODB.Command");?4、打开一个连接
pConnection->ConnectionString = "这里的字符串有下面四种写法";//对连接字符串赋值
pConnection->Open(ConnectionString,"","",adModeUnknown);//连接数据库
//第二三个参数分别为用户的ID与密码，因为在连接字符串ConnectionCstring中已经设置好了，这里可以为空。
第四个参数可以取下面两个参数：
adAsyncConnect
异步打开数据库，在ASP中直接用16
adConnectUnspecified
同步打开数据库，在ASP中直接用-1
ConnectionString根据不同的数据源，分别对应不同的写法
（要记下来很困难，可以在VB中利用ADO控件先连接好，再将其拷贝在VC中，这样不容易出错）
??? 1）
访问Access 2000
"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=databaseName;UserID=userName;Password=userPassWord"
???2)
访问ODBC数据
"Provider=MADASQL;DSN=dsnName;UID=userName;PWD=userPassword;"
?? 3)
访问Oracle数据库
“Provider=MSDAORA;DataSourse=serverName;User ID=userName;Password=userPassword;"
?? 4)
访问MS SQL数据库
"Provider=SQLOLEDB,DataSource=serverName;Initial Catalog=databaseName;UserID=userName;Password=userPassword;"
5、执行SQL命令，得到数据
方法1：
pRecordset =pConnection->Execute("Select * from authors",NULL,adCmdText);方法2：
pRecordset ->Open("Select * fromauthors",_
variant_t((Idispacth*) pConnection), //设置活动连接
adOpenDynamtic,
//游标类型
adLockOptimistic,
//锁的类型
adCmdText);
方法3：
pCommand->put_ActiveConnection(_variant_t((Idispatch*) pConn);
pCommand->CommandText = "Select *from authors";
pRecordset =pCmd->Execute(NULL,NULL,adCmdText);得到数据之后，做一个循环取得数据：
While (!pRecordset ->adoEOF)
{
Str =pRecordset->GetCollect("au_lname"));
pRst->MoveNext();
}SQL命令比较多，但是不去考虑细节，这里只说出通用的方法
CString strSQL;//定义SQL命令串，用来保存SQL语句
strSQL.Format("SQL statement");然后在每个要用到SQL命令串的方法中，使用strSQL.AllocSysString()的方法进行类型转换
6、com的专用数据类型
variant ,bstr ,SafeArray
?
variant变量的范围包括很多，它是一种变体类型，主要用于支持自动化的语言访问，
从而在VB中非常方便地使用，但是VC中比较复杂，它使用_variant_t 进行管理
bstr是一种字符串变量，使用_bstr_t进行管理，这个类重载了char *操作符
7、关闭连接
if(pConnection->State); //不能多次关闭，否则会出现错误
{
pConnection->Close(); //先判断状态，然后再关闭，其它类似
}
pRecordset->Close();
pCommand.Release();
pConnection.Release();
//释放引用计数
pRecordset.Release();?注意：调用Close()时用"->"，调用Release()时要用"."，为什么？
因为智能指针，_ConnectionPtr是一个重载了->运算符的类
_ConnectionPtr：它是一个接口指针模板。'.'是模板_com_ptr的函数。->是'接口函数'调用。
//forexample:
_ConnectionPtr m_Conn;
m_Conn.CreateInstance(....);//Createinterfaceinstance.
m_Conn->Open(...);//Openaconnectiontodatabase.'->'是_com_ptr重载了的运算符.目的就是为了让你调用模板参数的函数.
8、结构化异常处理
ADO封装了COM接口，所以需要进行错误处理
如下例：
HRESULT hr;
try{
hr =m_pConnection.CreateInstance("ADODB.Connection");///创建Connection对象
if(SUCCEEDED(hr))
{
hr =m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=test.mdb","","",adModeUnknown);///连接数据库
///上面一句中连接字串中的Provider是针对ACCESS2000环境的，对于ACCESS97,需要改为:Provider=Microsoft.Jet.OLEDB.3.51;
}
}catch(_com_error e)///捕捉异常
{
CString errormessage;
errormessage.Format("连接数据库失败!\r\n错误信息:%s",e.ErrorMessage());
AfxMessageBox(errormessage);///显示错误信息
}?
在ACCESS中使用日期比较
关于access中数据类型不匹配的问题between #1993-04-26# and #1993-05-26#
2006-10-11 16:06
| /问题： |
获取执行SQL函数后的返回值 EG：SUM(RoundInfo.RoundLen) from RoundInfo,Main where Main.Date between 2009-1-2 and 2012-2-3"
temp_Str=L“SUM(RoundInfo.RoundLen) from RoundInfo,Main where Main.Date between 2009-1-2 and 2012-2-3"
HRESULT hr = m_ptrRecordset->Open(_bstr_t(temp_Str), _variant_t((IDispatch*)m_ptrConnection, TRUE),
adOpenStatic, adLockBatchOptimistic, adCmdUnknown);
if(!m_ptrRecordset->adoEOF) //必需首先判断数据集是否是空，否则如果直接GetCollect（）的话，会报出错误
{
_variant_t varNo = (_variant_t)m_ptrRecordset->GetCollect ((long)0);
if(varNo.vt!=VT_NULL) //判断是否是空记录
{
AvgLen = (long)varNo;
}
}
?函数总结：
m_ptrRecordset->get_RecordCount(&this->m_threeRoundEnough);
获取查询结果的数量（即个数）
_variant_t ?? varNo = (_variant_t)m_ptrRecordset->GetCollect ((long)0);
这句话的意思是获取第一列当前行的值，如果是查询之后直接用这句话，则指取第一行第一列的值，取下一列，则加上
m_ptrRecordset->MoveNext();
如
hr = m_ptrRecordset->Open(_bstr_t(temp_Str), _variant_t((IDispatch*)m_ptrConnection, TRUE), adOpenStatic, adLockBatchOptimistic, adCmdUnknown);// temp_Str是查询命令
ASSERT(m_ptrRecordset);
if(hr != S_OK)
{
m_ptrConnection->Close();
AfxMessageBox(L"create recordset error!");
return false;
}
if(!m_ptrRecordset->adoEOF)
{
_variant_t varNo = (_variant_t)m_ptrRecordset->GetCollect ((long)0); //得到查询结果的值
if(varNo.vt!=VT_NULL)
{
MinCount = varNo;
}
}?