ATL COM 和 ADO

核心提示： cmd->ActiveConnection=conptr;把要执行的SQL语句存储到Command对象的CommandText属性中：cmd->CommandText="<Your SQL statement goes here>"创建Recor

cmd->ActiveConnection=conptr;

把要执行的SQL语句存储到Command对象的CommandText属性中：

cmd->CommandText="<Your SQL statement goes here>"

创建Recordset 对象并指明作为记录源的Command对象：

_RecordsetPtr rst(__uuidof(Recordset));
rst->PutRefSource(cmd);

现在打开Recordset，使用Open方法，如下：

_variant_v vNull;
rst->Open(vNull,
　　　　　vNull,
　　　　　adOpenDynamic,
　　　　　adLockOptimistic,
　　　　　adCmdText);　　　Open方法有个参数

第一个和第二个参数是数据源的名称和各自的活动连接由于数据源在Connection对象中已经被ActiveConnection 属性指定了，而且在Command 对象中也被指定了，所以第一个和第二个参数使用了NULL的变体值。第三个参数指明了指针类型，第四个参数指明了锁定参数，第五个参数指明了在命令被发送时数据库应该怎样评估命令。现在创建的Recordset对象指针将会引用由SQL语句返回的记录集，我们应该把这个Recordset返回给客户机，使用如下代码：rst->QueryInterface(__uuidof(_Recordset), (void **) ptr);

QueryInterface函数使用了Recordset对象的IID 并返回由SQL语句返回的记录集的引用，当客户机调用SearchCust 方法时，这个指针会返回给客户机。

反初始化 COM库：

::CoUninitialize();

现在构建（build）组件，这将会把DLL注册到注册表中。

创建客户机

打开 VB 并创建一个新的标准EXE工程（Standard EXE project）。很简单，这里就不详细描述了。