关于AutoCAD和数据库.

河伯

手里有三本书，讲到AutoCAD数据库程序开发，其中两本说最好用DAO，连ADO和CAO提都没提到；另一本大谈特谈ADO和CAO，根本没出现DAO这个词，同样是针对2000，为什么说法如此不同？

Mr.金，能给出详细一点的解释吗？

goldenshin

河伯

goldenshin

ADO 和 RDO、DAO 的比较


ADO 并不是自动和您现存的数据访问应用程序代码兼容的。当 ADO 封装 DAO 和 RDO 的功能性的时候，您必须将许多语言要素转换为 ADO 语法。在某些情况下，这将意味着您现存代码的某些功能的一个简单转换。在其他情况下，最佳的做法可能是用 ADO 的新功能重写该应用程序。

DAO (Data Access Objects) 数据访问对象是第一个面向对象的接口，它显露了 Microsoft Jet 数据库引擎（由 Microsoft Access 所使用），并允许 Visual Basic 开发者通过 ODBC 象直接连接到其他数据库一样，直接连接到 Access 表。DAO 最适用于单系统应用程序或小范围本地分布使用。

RDO (Remote Data Objects) 远程数据对象是一个到 ODBC 的、面向对象的数据访问接口，它同易于使用的 DAO style组合在一起，提供了一个接口，形式上展示出所有 ODBC 的底层功能和灵活性。尽管 RDO 在很好地访问 Jet 或 ISAM 数据库方面受到限制，而且它只能通过现存的 ODBC 驱动程序来访问关系数据库。但是，RDO 已被证明是许多 SQL Server、Oracle 以及其他大型关系数据库开发者经常选用的最佳接口。RDO 提供了用来访问存储过程和复杂结果集的更多和更复杂的对象、属性，以及方法。

ADO 是 DAO/RDO 的后继产物。ADO 2.0在功能上与 RDO 更相似，而且一般来说，在这两种模型之间有一种相似的映射关系。ADO “扩展”了 DAO 和 RDO 所使用的对象模型，这意味着它包含较少的对象、更多的属性、方法（和参数），以及事件。例如，ADO 没有与 rdoEngine 和 rdoEnvironment 对象相等同的对象，可以显露 ODBC 驱动程序管理器和 hEnv 接口。尽管事实上您的接口可能是通过 ODBC OLE DB 服务提供程序实现的，但您当前也不能从 ADO 中创建 ODBC 数据源。

包含在 DAO 和 RDO 模型中的许多功能被合并为单个对象，这样就生成了一个简单得多的对象模型。然而，由于这个原因，起初您可能会觉得找到合适的 ADO 对象、集合、属性、方法，或事件非常困难。与 DAO 和 RDO不同的是，尽管 ADO 对象是分层结构的，但在分层结构范围之外也是可以创建的。

不过，也应当注意，ADO 当前并不支持 DAO 的所有功能。ADO 主要包括 RDO 风格的功能性，以便和 OLE DB 数据源交互，另外还包括远程和 DHTML 技术。

一般说来，在 ADO 的演化过程中，马上把大多数 DAO 应用程序（except possibly是那些使用 ODBCDirect 的应用程序）移植到 ADO 上可能为时太早，因为当前的 ADO 并不支持数据定义 (DDL)、用户、组，等等。不过，如果您只将 DAO 用于客户—服务器应用程序，而并不依赖于 Jet 数据库引擎或不使用 DDL，那么您现在就可能移植到 ADO。最终，Microsoft 将提供一个 ADO DDL 部件来帮助进行 DAO 到 ADO 的移植，并为 OLE DB 供应商提供一般的 DDL 支持。

goldenshin

ADO 教程 (VC++)


本教程以新版 Microsoft® Visual C++® Extensions 为特征。VC++ Extensions 删除了对繁琐的 VARIANT 数据类型的使用。

本教程还使用了 #import 伪指令，它将 ADO Typelib 转换到头文件中，这个头文件使一些 ADO 的功能在使用和外观上类似于它的同伴 Microsoft® Visual Basic®。

#define INITGUID

#import "c:\Program Files\Common Files\System\ADO\msado15.dll"
   no_namespace rename("EOF", "EndOfFile")
#include <stdio.h>
#include "icrsint.h"

void dump_com_error(_com_error &e)
   {
   printf("Error\n");
   printf("\a\tCode = %08lx\n", e.Error());
   printf("\a\tCode meaning = %s", e.ErrorMessage());
   _bstr_t bstrSource(e.Source());
   _bstr_t bstrDescription(e.Description());
   printf("\a\tSource = %s\n", (LPCSTR) bstrSource);
   printf("\a\tDescription = %s\n", (LPCSTR) bstrDescription);
   }

class CCustomRs :
   public CADORecordBinding
{
BEGIN_ADO_BINDING(CCustomRs)
   ADO_VARIABLE_LENGTH_BINDING_ENTRY(1, adVarChar, m_szau_lname,
         sizeof(m_szau_lname), lau_lnameStatus, FALSE)
   ADO_VARIABLE_LENGTH_BINDING_ENTRY(2, adVarChar, m_szau_fname,
         sizeof(m_szau_fname), lau_fnameStatus, FALSE)
   ADO_FIXED_LENGTH_BINDING_ENTRY(3, adChar, m_szphone,
         sizeof(m_szphone), lphoneStatus, TRUE)
END_ADO_BINDING()

public:
   CHAR   m_szau_lname[41];
   ULONG   lau_lnameStatus;
   CHAR   m_szau_fname[41];
   ULONG   lau_fnameStatus;
   CHAR   m_szphone[12];
   ULONG   lphoneStatus;
};

VOID   main()
   {
   HRESULT hr;
   IADORecordBinding   *picRs = NULL;
   
   ::CoInitialize(NULL);

   try
      {
      _ConnectionPtr pConn("ADODB.Connection.1.5");
      _RecordsetPtr pRs("ADODB.Recordset.1.5");
      CCustomRs rs;

// 步骤 1 — 打开连接

      pConn->Open("dsn=pubs;uid=sa;pwd=;");

//步骤 2 — 创建命令

// 步骤 3 — 执行命令

      pRs->Open("select * from authors", pConn,
         adOpenDynamic, adLockOptimistic, adCmdUnknown);
      
      if (FAILED(hr = pRs->QueryInterface(__uuidof(IADORecordBinding),
            (LPVOID*)&picRs)))
         _com_issue_error(hr);
      
      if (FAILED(hr = picRs->BindToRecordset(&rs)))
         _com_issue_error(hr);

// 步骤 4 — 操作数据

      pRs->Fields("au_lname").Optimize = TRUE;
      pRs->Sort = "au_lname ASCENDING";
      pRs->Filter = "phone LIKE '415 5*";

      pRs->MoveFirst();
      while (VARIANT_FALSE == pRs->EndOfFile)
         {
         printf("\a\tName: %s\t %s\tPhone: %s\n",
            (lau_fnameStatus == adFldOK ? m_szau_fname : ""),
            (lau_lnameStatus == adFldOK ? m_szau_lname): ""),
            (lau_lphoneStatus == adFldOK ? m_szphone): ""));

         if (lphoneStatus == adFldOK)
            lmemcpy(m_szphone, "777", 3);
            
         if (FAILED(hr = picRs->Update(&rs)))
            _com_issue_error(hr);

      // Change the current row of the Recordset.
      // Recordset data for the new current row will automatically be
      // extracted and placed in the CCustomRs C++ instance variables.
   
         pRs->MoveNext();
         }
      pRs->Filter = adFilterNone;

// 步骤 5 — 更新数据

      pConn->BeginTrans();
      pRs->UpdateBatch();

// 步骤 6-A — 结束更新

      pConn->CommitTrans();
      }
   catch (_com_error &e)
      {
      dump_com_error(e);
      }
   catch (ADODB.Error &e)
      {
      pRS->Filter = adConflictingRecords;
      pRs->MoveFirst();
      while (VARIANT_FALSE == pRs->EndOfFile)
         {
         printf("\a\tConflict: Name = %s\t %s\n",
            (lau_fnameStatus == adFldOK ? m_szau_fname : ""),
            (lau_lnameStatus == adFldOK ? m_szau_lname): ""));
         pRs->MoveNext();
         }

// 步骤 6-B 部分 — 结束更新

      pConn->Rollback();
      }

   if (picRs)
      picRs->Release();

   CoUninitialize();
   }

VC++ 教程到此结束。

goldenshin

ADO 并不是自动和您现存的数据访问应用程序代码兼容的。当 ADO 封装 DAO 和 RDO 的功能性的时候，您必须将许多语言要素转换为 ADO 语法。在某些情况下，这将意味着您现存代码的某些功能的一个简单转换。在其他情况下，最佳的做法可能是用 ADO 的新功能重写该应用程序。

DAO (Data Access Objects) 数据访问对象是第一个面向对象的接口，它显露了 Microsoft Jet 数据库引擎（由 Microsoft Access 所使用），并允许 Visual Basic 开发者通过 ODBC 象直接连接到其他数据库一样，直接连接到 Access 表。DAO 最适用于单系统应用程序或小范围本地分布使用。

RDO (Remote Data Objects) 远程数据对象是一个到 ODBC 的、面向对象的数据访问接口，它同易于使用的 DAO style组合在一起，提供了一个接口，形式上展示出所有 ODBC 的底层功能和灵活性。尽管 RDO 在很好地访问 Jet 或 ISAM 数据库方面受到限制，而且它只能通过现存的 ODBC 驱动程序来访问关系数据库。但是，RDO 已被证明是许多 SQL Server、Oracle 以及其他大型关系数据库开发者经常选用的最佳接口。RDO 提供了用来访问存储过程和复杂结果集的更多和更复杂的对象、属性，以及方法。

ADO 是 DAO/RDO 的后继产物。ADO 2.0在功能上与 RDO 更相似，而且一般来说，在这两种模型之间有一种相似的映射关系。ADO “扩展”了 DAO 和 RDO 所使用的对象模型，这意味着它包含较少的对象、更多的属性、方法（和参数），以及事件。例如，ADO 没有与 rdoEngine 和 rdoEnvironment 对象相等同的对象，可以显露 ODBC 驱动程序管理器和 hEnv 接口。尽管事实上您的接口可能是通过 ODBC OLE DB 服务提供程序实现的，但您当前也不能从 ADO 中创建 ODBC 数据源。

包含在 DAO 和 RDO 模型中的许多功能被合并为单个对象，这样就生成了一个简单得多的对象模型。然而，由于这个原因，起初您可能会觉得找到合适的 ADO 对象、集合、属性、方法，或事件非常困难。与 DAO 和 RDO不同的是，尽管 ADO 对象是分层结构的，但在分层结构范围之外也是可以创建的。

不过，也应当注意，ADO 当前并不支持 DAO 的所有功能。ADO 主要包括 RDO 风格的功能性，以便和 OLE DB 数据源交互，另外还包括远程和 DHTML 技术。

一般说来，在 ADO 的演化过程中，马上把大多数 DAO 应用程序（except possibly是那些使用 ODBCDirect 的应用程序）移植到 ADO 上可能为时太早，因为当前的 ADO 并不支持数据定义 (DDL)、用户、组，等等。不过，如果您只将 DAO 用于客户—服务器应用程序，而并不依赖于 Jet 数据库引擎或不使用 DDL，那么您现在就可能移植到 ADO。最终，Microsoft 将提供一个 ADO DDL 部件来帮助进行 DAO 到 ADO 的移植，并为 OLE DB 供应商提供一般的 DDL 支持。

goldenshin

范例: 无 Extensions 的 ADO
   

该程序段说明了如何从字段检索数值并将数值转换为 C++ 变量。

#import "c:\Program Files\Common Files\System\ADO\msado15.dll"
   no_namespace rename("EOF", "EndOfFile")
#include <stdio.h>

Class CEmployee
{
public:
   FetchEmployeeData();

   char m_szFirstName[30];
   char m_szLastName[30];
   int nAge;
};

CEmployee::FetchEmployeeData()
{
_ConnectionPtr   pCon();
_RecordsetPtr    pRs();
FieldPtr         pfldFirstName, pfldLastName, pfldAge;
_variant_t      vFirstName, vLastName, vAge;

pCon.CreateInstance(__uuidof(Connection));
pCon->Open(“pubs”, “sa”, “”);

pRs.CreateInstance(__uuidof(Recordset));
pRs->Open(“select FirstName, LastName, Age from Employees”, pCon,
   adOpenForwardOnly, adLockReadOnly, adCmdUnknown);

pfldFirstName = pRs->Fields->GetItem(0);
pfldLastName = pRs->Fields->GetItem(1);
pfldAge = pRs->Fields->GetItem(2);

while (VARIANT_FALSE == pRs->EndOfFile)
   {
   vFirstName.Clear();
   vLastName.Clear();
   vAge.Clear();

   vFirstName = pfldFirstName->Value;
   WideCharToMultiByte(CP_ACP, 0, vFirstName.bstrVal, -1,
      m_szFirstName, sizeof(m_szFirstName), NULL, NULL);

   vLastName = pfldLastName->Value;
   WideCharToMultiByte(CP_ACP, 0, vLastName.bstrVal, -1,
      m_szLastName, sizeof(m_szLastName), NULL, NULL);

   nAge = vAge.iVal;

   pRs->MoveNext();
   }
}

&copy;2000 Microsoft Corporation 版权所有。保留所有权利。使用规定。