生成应用程序框架并初始化OLE/COM库环境
创建一个标准的MFC AppWizard(exe)应用程序然后在使用ADO数据库的InitInstance函数中初始化OLE/COM库（因为ADO库是一个COM DLL库）
本例为
BOOL CAdotestDlg::OnInitDialog()
{
::CoInitialize(NULL); //初始化OLE/COM库环境
}
程序最后要调用 ::CoUninitialize()//释放程序占用的COM 资源
另外
m_pRecordset>Close(); 注意！！！不要多次关闭！！！！！！！！！！！！
m_pConnection>Close();
m_pRecordset = NULL;
m_pConnection = NULL;
引入ADO库文件
使用ADO前必须在工程的stdafxh文件最后用直接引入符号＃import引入ADO库文件以使编译器能正确编译代码如下
#import C:\Program Files\common files\system\ado\msadodll no_namespace rename(EOFadoEOF)
ADO类的定义是作为一种资源存储在ADO DLL(msadodll）中在其内部称为类型库类型库描述了自治接口以及C＋＋使用的COM vtable接口当使用＃import指令时在运行时Visual C＋＋需要从ADO DLL中读取这个类型库并以此创建一组C＋＋头文件这些头文件具有tli 和tlh扩展名读者可以在项目的目录下找到这两个文件在C＋＋程序代码中调用的ADO类要在这些文件中定义
程序的第三行指示ADO对象不使用名称空间在有些应用程序中由于应用程序中的对象与ADO中的对象之间可能会出现命名沖突所以有必要使用名称空间如果要使用名称空间则可把第三行程序修改为 rename_namespace(AdoNS)第四行代码将ADO中的EOF(文件结束)更名为adoEOF以避免与定义了自己的EOF的其他库沖突
．利用智能指针进行数据库操作
在CaboutDlg头文件中定义两个ADO智能指针类实例并在对话框中加入一个ListCtrl
class CAdotestDlg : public CDialog
{
_ConnectionPtr m_pConnection;
_RecordsetPtr m_pRecordset;
ClistCtrl m_List;
}
ADO库包含三个智能指针:_ConnectionPtr_CommandPtr和_RecordsetPtr
_ConnectionPtr通常被用来创建一个数据连接或执行一条不返回任何结果的SQL语句如一个存储过程
_CommandPtr返回一个记录集它提供了一种简单的方法来执行返回记录集的存储过程和SQL语句在使用_CommandPtr接口时可以利用全局_ConnectionPtr接口也可以在_CommandPtr接口里直接使用连接串_RecordsetPtr是一个记录集对象与以上两种对象相比它对记录集提供了更多的控制功能如记录锁定游标控制等
在使用ADO程序的事件响应中OnButton加入以下代码:
void CAdotestDlg::OnButton()
{
m_ListResetContent();
m_pConnectionCreateInstance(_uuidof(Connection)); //初始化Connection指针
m_pRecordsetCreateInstance(_uuidof(Recordset));//初始化Recordset指针
try
{
m_pConnection>Open(DSN=ADOTest); //连接叫作ADOTest的ODBC数据源
//注意这是连接不需要用户ID或密码的open 函数
// 否则形式为 >Open(DSN=test;uid=sa;pwd=;);
// 执行SQL语句得到一个记录集把其指针赋值给m_pRecordset
CString strSql=select * from middle;
BSTR bstrSQL = strSqlAllocSysString();
m_pRecordset>Open(bstrSQL(IDispatch*)m_pConnectionadOpenDynamicadLockOptimisticadCmdText);
//adOpenDynamic动态 adLockOptimistic乐观封锁法 adCmdText文本查询语句
while(!m_pRecordset>adoEOF)//遍历所有记录
{
//取纪录字段值方式之一
_variant_t TheValue; //VARIANT数据类型
TheValue = m_pRecordset>GetCollect(BIG_NAME);//得到字段BIG_NAME的值
if(TheValuevt!=VT_NULL)
m_ListAddString((char*)_bstr_t(TheValue));
//将该值加入到列表控件中
//取纪录字段值方式之二
// _bstr_t TheValue=m_pRecordset>Fields>GetItem(BIG_NAME)>Value;
// CString temp=py();
// m_ListAddString(temp);
//数据类型转换
_variant_t vUsernamevBirthdayvIDvOld;
TRACE(id:%d姓名:%s年龄:%d生日:%s\r\n
vIDlVal(LPCTSTR)(_bstr_t)vUsernamevOldlVal(LPCTSTR)(_bstr_t)vBirthday);
m_pRecordset>MoveNext();//转到下一条纪录
}
m_pRecordset>Close();
m_pConnection>Close();
}
catch (_com_error e)//异常处理
{
AfxMessageBox(eErrorMessage());
}
m_pRecordset>Close(); //注意！！！不要多次关闭！！！！否则会出错
m_pConnection>Close();
m_pRecordset = NULL;
m_pConnection = NULL;
}
程序中通过_variant_t和_bstr_t转换COM对象和C＋＋类型的数据 _variant_t类封装了OLE自治VARIANT数据类型在C++中使用_variant_t类要比直接使用VARIANT数据类型容易得多
好编译后该程序就能运行了但记住运行前要创建一个叫ADOTest的ODBC数据源该程序将把表middle中的BIG_NAME字段值显示在列表控件中
．执行SQL命令并取得结果记录集
为了取得结果记录集我们定义一个指向Recordset对象的指针:_RecordsetPtr m_pRecordset;
并为其创建Recordset对象的实例: m_pRecordsetCreateInstance(ADODBRecordset);
SQL命令的执行可以采用多种形式下面我们一进行阐述
()利用Connection对象的Execute方法执行SQL命令
Execute方法的原型如下所示:
_RecordsetPtr Connection::Execute ( _bstr_t CommandText VARIANT * RecordsAffected long Options )
其中CommandText是命令字串通常是SQL命令
参数RecordsAffected是操作完成后所影响的行数
参数Options表示CommandText中内容的类型Options可以取如下值之一
adCmdText:表明CommandText是文本命令
adCmdTable:表明CommandText是一个表名
adCmdProc:表明CommandText是一个存储过程
adCmdUnknown:未知
Execute执行完后返回一个指向记录集的指针下面我们给出具体代码并作说明
_variant_t RecordsAffected;
///执行SQL命令CREATE TABLE创建表格usersusers包含四个字段:整形ID字符串username整形old日期型birthday
m_pConnection>Execute(CREATE TABLE users(ID INTEGERusername TEXTold INTEGERbirthday DATETIME)
&RecordsAffected
adCmdText);
///往表格里面添加记录
m_pConnection>Execute(INSERT INTO users(IDusernameoldbirthday) VALUES ( Washington//)&RecordsAffectedadCmdText);
///将所有记录old字段的值加一
m_pConnection>Execute(UPDATE users SET old = old+&RecordsAffectedadCmdText);
///执行SQL统计命令得到包含记录条数的记录集
m_pRecordset =m_pConnection>Execute(SELECT COUNT(*) FROM users&RecordsAffectedadCmdText);
_variant_t vIndex = (long);
_variant_t vCount = m_pRecordset>GetCollect(vIndex);///取得第一个字段的值放入vCount变量
上两句可以写成— _variant_t vCount = m_pRecordset>GetCollect((_variant_t)((long)));
m_pRecordset>Close();///关闭记录集
CString message;
messageFormat(共有%d条记录vCountlVal);
AfxMessageBox(message);///显示当前记录条数
()利用Command对象来执行SQL命令
_CommandPtr m_pCommand;
m_pCommandCreateInstance(ADODBCommand);
_variant_t vNULL;
vNULLvt = VT_ERROR;
vNULLscode = DISP_E_PARAMNOTFOUND;///定义为无参数
m_pCommand>ActiveConnection = m_pConnection;///非常关键的一句将建立的连接赋值给它
m_pCommand>CommandText = SELECT * FROM users;///命令字串
m_pRecordset = m_pCommand>Execute(&vNULL&vNULLadCmdText);///执行命令取得记录集
在这段代码中我们只是用Command对象来执行了SELECT查询语句Command对象在进行存储过程的调用中能真正体现它的作用下次我们将详细介绍
()直接用Recordset对象进行查询取得记录集
实例——
void CGmsaDlg::OnDBSelect()
{
// TODO: Add your control notification handler code here
_RecordsetPtr Rs;//定义Recordset对象
_bstr_t Connect(DSN=GMS;UID=sa;PWD=;);//定义连接字符串
_bstr_t Source (SELECT count(*) FROM buaamdb);//要执行的SQL语句
::CoInitialize(NULL);//初始化Rs对象
HRESUL hr = RsCreateInstance( __uuidof( Recordset ) );
//省略对返回值hr的判断
Rs>Open( Source
Connect
adOpenForwardOnly
adLockReadOnly
);
