vc++ ado 保存/加载xml相关文章

1，http://support.microsoft.com/kb/262447/zh-tw

可透過 ADO 持續性的資料列集為 XML 時，OLE DB 不提供此服務。同樣地，OLE DB 不提供從 XML 檔案物件載入 OLE DB 資料列集的服務。若要保存為 XML 資料的 OLE DB 資料列集，請先包裝 OLE DB 資料列集的 ADO 資料錄集物件中使用 ADO IADORecordsetConstruction 介面。

回此頁最上方 | 提供意見

其他相關資訊

本章節所提供的程式碼範例顯示如何

• 保存為 XML 檔案的 OLE DB 資料列集。
• 從 XML 檔案載入 OLE DB 資料列集

保存到外部 XML 檔案的 OLE DB 資料列集的方式所示的Rowset2Xml()函式，它的資料列集，並將它傳輸至 ADO 資料錄集物件。然後會使用然後方法資料錄集物件上，將資料列集儲存到外部的 XML 檔案。

載入 OLE DB 資料列集從外部的 XML 檔案也示範了在Xml2Rowset()函式，建立 ADO 資料錄集物件，並使用Open方法，來開啟檔案。然後它會藉由使用 IADORecordsetConstruction 介面的get_Rowset()方法擷取從資料錄集物件的資料列集。

程式碼使用 Microsoft SQL Server 資料來源。若要執行範例時，您可以使用下列的指令碼來建立表格 「 書籍 」 「 pubs 」 資料庫中。

CREATE TABLE Books (id int IDENTITY (1, 1) NOT NULL ,Title char(50) ,Publisher char(50) ) ON [PRIMARY]GOINSERT INTO books(Title, Publisher) VALUES ('Debugging applications','MS Press')GOINSERT INTO books(Title, Publisher) VALUES ('Inside SQL Server 7.0','MS Press')GO

以下是範例的程式碼：

#include "atldbcli.h"#import "C:\Program files\Common Files\System\Ado\msado15.dll" no_namespace  rename("EOF", "ADOEOF")class CdboBooksAccessor{public:LONG m_id;TCHAR m_Title[51];TCHAR m_Publisher[51];BEGIN_COLUMN_MAP(CdboBooksAccessor)COLUMN_ENTRY(1, m_id)COLUMN_ENTRY(2, m_Title)COLUMN_ENTRY(3, m_Publisher)END_COLUMN_MAP()DEFINE_COMMAND(CdboBooksAccessor, _T(" \  SELECT \  id, \  Title, \  Publisher  \  FROM dbo.Books"))};class CdboBooks : public CCommand<CAccessor<CdboBooksAccessor> >{HRESULT Open(){HRESULThr;hr = OpenDataSource();if (FAILED(hr))return hr;return OpenRowset();}HRESULT OpenDataSource(){HRESULThr;CDataSource db;CDBPropSetdbinit(DBPROPSET_DBINIT);dbinit.AddProperty(DBPROP_AUTH_PERSIST_SENSITIVE_AUTHINFO, false);dbinit.AddProperty(DBPROP_AUTH_USERID, OLESTR("sa"));dbinit.AddProperty(DBPROP_INIT_CATALOG, OLESTR("pubs"));dbinit.AddProperty(DBPROP_INIT_DATASOURCE, OLESTR("vcdb01"));dbinit.AddProperty(DBPROP_INIT_LCID, (long)1033);dbinit.AddProperty(DBPROP_INIT_PROMPT, (short)4);hr = db.Open(_T("SQLOLEDB.1"), &dbinit);if (FAILED(hr))return hr;return m_session.Open(db);}HRESULT OpenRowset(){return CCommand<CAccessor<CdboBooksAccessor> >::Open(m_session);}CSessionm_session;};HRESULT Rowset2Xml();   //OLEDB rowset -> external xml fileHRESULT Xml2Rowset();   //xml file -> OLEDB rowsetvoid dump_error(_com_error &e);void main(){HRESULT hr;CoInitialize(NULL);try{hr = Rowset2Xml();hr = Xml2Rowset();}catch(_com_error &e){dump_error(e);}}HRESULT Rowset2Xml(){HRESULT hr = S_OK;CdboBooks cmdBooks;hr = cmdBooks.Open();ADORecordsetConstructionPtr spADORsConst;_RecordsetPtr spRs(__uuidof(Recordset));spADORsConst = spRs;hr = spADORsConst->put_Rowset((LPUNKNOWN)(cmdBooks.m_spRowset));spRs->Save("books.xml", adPersistXML);return hr;}HRESULT Xml2Rowset(){HRESULT hr = S_OK;CdboBooks cmdBooks;hr = cmdBooks.OpenDataSource();//load the ADO recordset_RecordsetPtr spRs(__uuidof(Recordset));hr = spRs->Open("books.xml","Provider=MSPersist;",adOpenForwardOnly,adLockReadOnly,adCmdFile);ADORecordsetConstructionPtr spADORsConst;//QI for ADORecordsetConstruction interfacespADORsConst = spRs;//Create CCommandhr = cmdBooks.CreateCommand(cmdBooks.m_session);//hook up the rowset with ADO RecordsetspADORsConst->get_Rowset((LPUNKNOWN*)&(cmdBooks.m_spRowset));//in order to retrieve data, we have to bind hr = cmdBooks.Bind();//test the CCommand object outwhile( cmdBooks.MoveNext() == S_OK){printf("%d   %s        %s\n", cmdBooks.m_id, cmdBooks.m_Title, cmdBooks.m_Publisher);}return hr;}void dump_error(_com_error &e){_bstr_t bstrSource(e.Source());_bstr_t bstrDescription(e.Description());// Print Com errors.  printf("Error\n");printf("\tCode = %08lx\n", e.Error());printf("\tCode meaning = %s", e.ErrorMessage());printf("\tSource = %s\n", (LPCSTR) bstrSource);printf("\tDescription = %s\n", (LPCSTR) bstrDescription);}

附註有關程式碼：

• 為了簡單起見，程式碼不會檢查所有傳回 HRESULT。它是很好的作法，來檢查 HRESULT，並使用 CDBErrorInfo/AtlTraceErrorRecords()，取回更具描述性的錯誤。
• 在Rowset2Xml () 函式，

  hr = cmdBooks.Open();

  呼叫來建立 CCommand，並執行 select 陳述式中，然後再擷取此 CCommand 相關聯的 CRowset。或者，您可以明確地取得 IRowset 回呼叫執行，如下所示：

  CCommand<CAccessor<CdboBooksAccessor> > cmd;hr = cmd.CreateCommand(session);CComBSTR bsSQLsmd=OLESTR("SELECT * FROM Books"); CComPtr<ICommandText> spCommandText;hr = cmd.m_spCommand->QueryInterface(&spCommandText);LONG    cRowsAffected;if (SUCCEEDED(hr))  hr = spCommandText->SetCommandText(DBGUID_SQL, bsSQLsmd);CComPtr<IRowset> pIRowset = NULL;hr = cmd.m_spCommand->Execute(NULL, IID_IRowset, NULL, &cRowsAffected, (IUnknown**)&pIRowset);

回此頁最上方 | 提供意見

2,mhttp://support.microsoft.com/kb/262450/zh-cn

• 自己查找 
• 询问社区
• 实时帮助

请选择您需要帮助的产品

• Windows
• Internet Explorer
• Office
• Surface
• Media Player
• Skype
• Windows Phone
• 更多产品

如何： c + + 示例的 ADO 记录集 XML 持久性

 打印

 电子邮件

文章翻译 

文章编号: 262450 - 查看本文应用于的产品

查看机器翻译免责声明

Microsoft 支持页面的机器翻译

展开全部 | 关闭全部

概要

与 ADO 2.5 或更高版本中，记录集对象可以保持到实现 IStream 接口的任何对象。本文中的代码示例演示如何向/从外部的 xml 文件、 ADO IStream 对象和 XML DOM 对象的保留/负载 ADO 记录集。

回到顶端 | 提供反馈

更多信息

1.该示例使用的 SQL Server 数据库 pubs 数据库中的 authors 表。

2.修改连接字符串，以提供适当的数据源名称和用户凭据。

3.因为有两个 #import dll，为简化编程，我重命名为 MSXML，ADO （ADODB) 命名空间，并为这两个 dll 中定义的接口使用 MSXML。或者，可以不执行此操作的情况下总是前缀具有适当的命名空间的接口。

注意:您必须更改用户 ID = < 用户名 > 和密码运行此代码之前，为正确的值 = < 强密码 >。请确保用户 ID 具有在数据库执行此操作的相应权限。

// 1. ADO Recordset <-> external xml file// 2. ADO Recordset <-> ADO IStream Object// 3. ADO Recordset <-> DOM Document#import "C:\Program files\Common Files\System\Ado\msado15.dll" rename_namespace("MSXML")  rename("EOF", "ADOEOF")#import "c:\winnt\system32\msxml.dll" using namespace MSXML;#include "stdio.h"#include "io.h"void dump_error(_com_error &e) ; //exception handlingvoid main(){HRESULT hr;CoInitialize(NULL);try{//open the connection, get the reocrdset ready_ConnectionPtr pConn;_RecordsetPtr pRs;hr = pConn.CreateInstance(__uuidof(Connection));hr = pRs.CreateInstance(__uuidof(Recordset));pConn->CursorLocation = adUseClient;_bstr_t strConn("Provider=sqloledb;Data Source=juliaj01;Initial Catalog=pubs;User Id=<username>;Password=<strong password>;");hr = pConn->Open(strConn, "<username>", "<strong password>", adConnectUnspecified);hr = pRs->Open("SELECT * from authors", pConn.GetInterfacePtr(), adOpenForwardOnly, adLockReadOnly, adCmdText);//preparation to save RS as xml file, struct _finddata_t xml_file;long hFile;if( (hFile = _findfirst("authors.xml", &xml_file )) != -1L){DeleteFile("authors.xml"); //if the file exists, delete it}// 1. Persist it to an external xml file by calling Save with file name and adPersistXMLhr = pRs->Save("authors.xml", adPersistXML);// 2. Persist it to ADO IStream Object_StreamPtrpStream ; //declare one firstpStream.CreateInstance(__uuidof(Stream)); //create it afterhr = pRs->Save(pStream.GetInterfacePtr(), adPersistXML);    //old trick, call Save // 3. Persist it to DOM DocumentIXMLDOMDocumentPtr pXMLDOMDoc; pXMLDOMDoc.CreateInstance(__uuidof(DOMDocument));hr = pRs->Save(pXMLDOMDoc.GetInterfacePtr(), adPersistXML);// if you want to check out the content call printf(pXMLDOMDoc->Getxml());//Recycle the Recordset objecthr = pRs->Close();// 4. load the recordset back from the file by calling Open with MSPersist provider and adCmdFile. // the Recordset will be a ReadOnly, Forwardly onlyhr = pRs->Open("authors.xml","Provider=MSPersist;",adOpenForwardOnly,adLockReadOnly,adCmdFile);    hr = pRs->Close();// 5.  Load from IStream object, call Open, first param is pStream.GetInterfacePtr()//  Set the steam object position to the beginning of the stream:pStream->Position = 0;//  call Open,  passing in vtMissing for connection string, see Q245485 for detailshr = pRs->Open(pStream.GetInterfacePtr(),vtMissing, adOpenForwardOnly,adLockReadOnly,adCmdFile);hr = pRs->Close();// 6 .Load from DOM Document, call Open, first param is pXMLDOMDoc.GetInterfacePtr() and // pass in vtMissing for connection string, see Q245485hr = pRs->Open(pXMLDOMDoc.GetInterfacePtr(), vtMissing, adOpenForwardOnly, adLockReadOnly, adCmdFile);hr = pRs->Close();//Don't forget to clean up the stream objecthr = pStream->Close();}catch(_com_error &e){dump_error(e);}}void dump_error(_com_error &e){_bstr_t bstrSource(e.Source());_bstr_t bstrDescription(e.Description());// Print Com errors.  printf("Error\n");printf("\tCode = %08lx\n", e.Error());printf("\tCode meaning = %s", e.ErrorMessage());printf("\tSource = %s\n", (LPCSTR) bstrSource);printf("\tDescription = %s\n", (LPCSTR) bstrDescription);}

注意:本文中提供的示例代码包含对 MSXML 2.5 或更早版本的引用。如果已在替换模式下，您的计算机上安装了较新版本的 MSXML，则代码示例将自动使用此新版本。如果已通过并行模式下，您的计算机上安装了较新版本的 MSXML，代码可能会使用较旧的版本。

若要使用 MSXML 6.0 中运行此代码，下面的代码行必须进行更改：

• 替换：
  #import"C:\Program 必须 Files\System\Ado\msado15.dll"rename_namespace("MSXML") 重命名 （"EOF"，"ADOEOF")
  
  #import 使用 MSXML ； 命名为"c:\winnt\system32\msxml.dll"
  使用：
  #import"C:\Program 必须 Files\System\Ado\msado15.dll"rename_namespace("MSXML2") 重命名 （"EOF"，"ADOEOF")
  
  #import"c:\winnt\system32\msxml6.dll"使用命名空间 MSXML2 ；
• 替换：
  pXMLDOMDoc.CreateInstance(__uuidof(DOMDocument))
  使用：
  pXMLDOMDoc.CreateInstance(__uuidof(DOMDocument60))

若要使用 MSXML 6.0 中运行此代码，下面的代码行必须进行更改：

• 替换：
  #import"C:\Program 必须 Files\System\Ado\msado15.dll"rename_namespace("MSXML") 重命名 （"EOF"，"ADOEOF")
  
  #import 使用 MSXML ； 命名为"c:\winnt\system32\msxml.dll"
  使用：
  #import"C:\Program 必须 Files\System\Ado\msado15.dll"rename_namespace("MSXML2") 重命名 （"EOF"，"ADOEOF")
  
  #import"c:\winnt\system32\msxml6.dll"使用命名空间 MSXML2 ；
• 替换：
  pXMLDOMDoc.CreateInstance(__uuidof(DOMDocument))
  使用：
  pXMLDOMDoc.CreateInstance(__uuidof(DOMDocument60))

回到顶端 | 提供反馈

参考

有关详细信息，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章：

245485标题作者内容类型语言区域设置版本保密内容状态工作组 MT 发布日期操作

262447如何保持/装载到文件，或从 XML 使用 ATL OLE DB 使用者模板类的 OLE DB 行集合

259555PRB： 发生错误时打开 XML 流的 ADO 记录集

回到顶端 | 提供反馈

属性

文章编号: 262450 - 最后修改: 2009年10月18日 - 修订: 3.0

这篇文章中的信息适用于:

• Microsoft ActiveX Data Objects 2.5
• Microsoft ActiveX Data Objects 2.6
• Microsoft Visual C++ 6.0 企业版
• Microsoft Visual C++ 6.0 专业版
• Microsoft Visual C++, 32-bit Learning Edition 6.0
• Microsoft XML Parser 2.5
• Microsoft XML Parser 2.6
• Microsoft XML Parser 3.0
• Microsoft XML Core Services 6.0

关键字： 

kbmt kbhowto KB262450 KbMtzh

机器翻译

注意：这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇，语法或文法的问题，就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量，但是我们不保证机器翻译的正确度，也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。

点击这里察看该文章的英文版： 262450

Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性，不作任何声明。 所有该等文件及有关图形均"依样"提供，而不带任何性质的保证。Microsoft和/或其各供应商特此声明，对所有与该等信息有关的保证和条件不负任何责任，该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下，在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中，Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

3，http://msdn.microsoft.com/zh-cn/library/jj249917.aspx

4，http://support.microsoft.com/kb/242249/zh-cn

ADOPERSIST.exe 是 Visual C++ 示例，演示如何将 ADO 记录集保存为 IStream 对象，然后重新加载它从另一个 ADO 记录集。

ADO 1.5 x 和 2.x 记录集的实现提供了数据到磁盘文件的持久性有关的两个功能：

1. 若要保存到文件中的记录集对象的 ADORecordset.Save()。
2. ADORecordset.Open()，以重新加载文件中的记录集。

出于性能或由于其他原因它可能有时需要将 ADO 记录集保存到内存中，只能作为数据的流。为实现这一点，您可以使用 ADO 记录集的 IPersistStream 接口实现。

更多信息

保存将 ADO 记录集对象

此示例使用以下步骤来保存 ADO 记录集：

1. 对给定的 ADO 记录集，获取对 IPersistStream 对象的指针调用 QueryInterface()。
2. 使用 CreateStreamOnHGlobal() 创建的标准，COM IStream 对象。
3. 调用的 COM 函数 OleSaveToStream() 可以将 IPersistStream 对象保存到的 IStream 对象。

重新创建 ADO 记录集

给定的 IStream 对象，该示例然后重建从它的另一个 ADO 记录集。这是使用保存的数据的流，并调用 OleLoadFromStream() 的 IStream 指针。

下面是示例中的键的代码：

int main(int argc, char* argv[]){InitOle oleinit;HRESULT hr=S_OK;_RecordsetPtr rs; //Recordset for Saving Data_RecordsetPtr rs2; //Recordset for Loading DataIStreamPtr pStream;//----------------------------------------//Create a recordset for testing//----------------------------------------if (FAILED(CreateTestRS(&rs))){printf("Couldn't create the first recordset\n");goto exit;}//----------------------------------------//Create IStream//----------------------------------------if (FAILED(SaveRS(rs, (IStream**)&pStream))){printf("Couldn't save the recordset\n");goto exit;}//----------------------------------------//Load another recordset from IStream//----------------------------------------if (FAILED(LoadRS(&rs2, pStream))){printf("Couldn't save the recordset\n");goto exit;}//Now display the names of the fields of the rs that we just recreated{for (short i =0;i<rs2->Fields->Count;i++)printf("Name of field %d is %s\n", i, (LPCTSTR) rs2->Fields->GetItem(i)->Name);}//----------------------------------------//Pause and then exit so that the user//Can  //----------------------------------------exit:printf("Press any key to end program\n");_getch();return 0;}//----------------------------------------//Create a recordset from scratch//----------------------------------------HRESULT CreateTestRS(_Recordset** prs/*OUT*/){    try    {* prs=NULL;_RecordsetPtr pRS;pRS.CreateInstance( __uuidof(Recordset));pRS->CursorLocation = adUseClient;pRS->CursorType = adOpenStatic;pRS->LockType = adLockBatchOptimistic;// append fieldspRS->Fields->Append(_bstr_t("ADOField1"), adVarChar, 45,adFldFixed);pRS->Fields->Append(_bstr_t("ADOField2"), adBoolean, 0,adFldFixed);pRS->Fields->Append(_bstr_t("ADOField3"), adCurrency, 0,adFldFixed);pRS->Fields->Append(_bstr_t("ADOField4"), adDate, 0,adFldFixed);pRS->Open(vtMissing, vtMissing, adOpenStatic,adLockBatchOptimistic,-1);*prs= pRS.Detach();    }    catch (_com_error & e)    {return e.Error();    }    return S_OK;}HRESULT SaveRS(_RecordsetPtr pRS/*IN*/, IStream* * ppStream/*OUT*/){    HRESULT hr=S_OK;    try    {*ppStream=NULL;        // QI and return IPersistStream        IPersistStreamPtr pIPersist(pRS);        if (pIPersist )        {            //Create a standard stream in memory            if (FAILED(hr=CreateStreamOnHGlobal(0, TRUE, (IStream **)ppStream)))return hr;            // Persist the pRS            if (FAILED(hr=OleSaveToStream(pIPersist, *ppStream)))return hr;        }        else            return E_NOINTERFACE;    }    catch (_com_error & e)    {return e.Error();    }return S_OK;    }HRESULT LoadRS(_Recordset* *ppRS/*OUT*/, IStreamPtr pStream/*IN*/){    HRESULT hr=S_OK;    try    {*ppRS=NULL;        if (NULL==pStream)            return E_NOINTERFACE;        // Load the pRS.        LARGE_INTEGER li;        li.QuadPart = 0;//Set the pointer to the beginning of the stream        if (FAILED(hr=pStream->Seek(li, STREAM_SEEK_SET, 0)))            return hr;if (FAILED(hr=OleLoadFromStream(pStream,         __uuidof(_Recordset),                reinterpret_cast<LPVOID *>(ppRS))))            return hr;    }    catch (_com_error & e)    {return e.Error();    }    return S_OK;}

下面是一些可从 Microsoft 下载中心下载的文件：

AdoPersist.exe

有关如何下载 Microsoft 支持文件的其他信息，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章：

119591如何从在线服务获得 Microsoft 支持文件

微软已对此文件进行病毒扫描。Microsoft 使用的最新的病毒检测软件，对投递日期的该文件可用。该文件存储在安全增强型服务器上，以防止对文件进行任何未经授权的更改。

ADOPersist.cpp4.1 KBADOPersist.dsp4.0 KB

5,http://support.microsoft.com/kb/262447/zh-cn

本节提供的代码示例演示如何为

• 保持 OLE DB 行集设置为 XML 文件。
• 从 XML 文件加载 OLE DB 行集

Rowset2Xml()函数，它将一个行集，并将其传送到 ADO 记录集对象中显示持久保存到外部 XML 文件的 OLE DB 行集的方法。然后使用save ()方法上的记录集对象保存到外部 XML 文件的行集。

加载的 OLE DB 行集的外部的 xml 文件演示了在Xml2Rowset()函数中，它创建 ADO 记录集对象，并使用Open方法打开该文件。然后它使用 IADORecordsetConstruction 接口的get_Rowset()方法检索记录集对象的行集。

该代码使用 Microsoft SQL Server 数据源。若要运行此示例，可用于以下脚本创建表"书""pubs"数据库中。

CREATE TABLE Books (id int IDENTITY (1, 1) NOT NULL ,Title char(50) ,Publisher char(50) ) ON [PRIMARY]GOINSERT INTO books(Title, Publisher) VALUES ('Debugging applications','MS Press')GOINSERT INTO books(Title, Publisher) VALUES ('Inside SQL Server 7.0','MS Press')GO

下面是该示例的代码：

#include "atldbcli.h"#import "C:\Program files\Common Files\System\Ado\msado15.dll" no_namespace  rename("EOF", "ADOEOF")class CdboBooksAccessor{public:LONG m_id;TCHAR m_Title[51];TCHAR m_Publisher[51];BEGIN_COLUMN_MAP(CdboBooksAccessor)COLUMN_ENTRY(1, m_id)COLUMN_ENTRY(2, m_Title)COLUMN_ENTRY(3, m_Publisher)END_COLUMN_MAP()DEFINE_COMMAND(CdboBooksAccessor, _T(" \  SELECT \  id, \  Title, \  Publisher  \  FROM dbo.Books"))};class CdboBooks : public CCommand<CAccessor<CdboBooksAccessor> >{HRESULT Open(){HRESULThr;hr = OpenDataSource();if (FAILED(hr))return hr;return OpenRowset();}HRESULT OpenDataSource(){HRESULThr;CDataSource db;CDBPropSetdbinit(DBPROPSET_DBINIT);dbinit.AddProperty(DBPROP_AUTH_PERSIST_SENSITIVE_AUTHINFO, false);dbinit.AddProperty(DBPROP_AUTH_USERID, OLESTR("sa"));dbinit.AddProperty(DBPROP_INIT_CATALOG, OLESTR("pubs"));dbinit.AddProperty(DBPROP_INIT_DATASOURCE, OLESTR("vcdb01"));dbinit.AddProperty(DBPROP_INIT_LCID, (long)1033);dbinit.AddProperty(DBPROP_INIT_PROMPT, (short)4);hr = db.Open(_T("SQLOLEDB.1"), &dbinit);if (FAILED(hr))return hr;return m_session.Open(db);}HRESULT OpenRowset(){return CCommand<CAccessor<CdboBooksAccessor> >::Open(m_session);}CSessionm_session;};HRESULT Rowset2Xml();   //OLEDB rowset -> external xml fileHRESULT Xml2Rowset();   //xml file -> OLEDB rowsetvoid dump_error(_com_error &e);void main(){HRESULT hr;CoInitialize(NULL);try{hr = Rowset2Xml();hr = Xml2Rowset();}catch(_com_error &e){dump_error(e);}}HRESULT Rowset2Xml(){HRESULT hr = S_OK;CdboBooks cmdBooks;hr = cmdBooks.Open();ADORecordsetConstructionPtr spADORsConst;_RecordsetPtr spRs(__uuidof(Recordset));spADORsConst = spRs;hr = spADORsConst->put_Rowset((LPUNKNOWN)(cmdBooks.m_spRowset));spRs->Save("books.xml", adPersistXML);return hr;}HRESULT Xml2Rowset(){HRESULT hr = S_OK;CdboBooks cmdBooks;hr = cmdBooks.OpenDataSource();//load the ADO recordset_RecordsetPtr spRs(__uuidof(Recordset));hr = spRs->Open("books.xml","Provider=MSPersist;",adOpenForwardOnly,adLockReadOnly,adCmdFile);ADORecordsetConstructionPtr spADORsConst;//QI for ADORecordsetConstruction interfacespADORsConst = spRs;//Create CCommandhr = cmdBooks.CreateCommand(cmdBooks.m_session);//hook up the rowset with ADO RecordsetspADORsConst->get_Rowset((LPUNKNOWN*)&(cmdBooks.m_spRowset));//in order to retrieve data, we have to bind hr = cmdBooks.Bind();//test the CCommand object outwhile( cmdBooks.MoveNext() == S_OK){printf("%d   %s        %s\n", cmdBooks.m_id, cmdBooks.m_Title, cmdBooks.m_Publisher);}return hr;}void dump_error(_com_error &e){_bstr_t bstrSource(e.Source());_bstr_t bstrDescription(e.Description());// Print Com errors.  printf("Error\n");printf("\tCode = %08lx\n", e.Error());printf("\tCode meaning = %s", e.ErrorMessage());printf("\tSource = %s\n", (LPCSTR) bstrSource);printf("\tDescription = %s\n", (LPCSTR) bstrDescription);}

说明有关的代码：

• 为简单起见，代码不会检查所有返回的 HRESULT。它是一种很好的做法，检查该 HRESULT，并使用 CDBErrorInfo/AtlTraceErrorRecords() 得到更具描述性的错误。
• 在 Rowset2Xml () 函数，

  hr = cmdBooks.Open();

  调用以创建该 CCommand 并执行在选择语句，然后检索该 CRowset 与此 CCommand 相关联。或者，可以显式获得了 IRowset 回通过调用执行，如下所示：

  CCommand<CAccessor<CdboBooksAccessor> > cmd;hr = cmd.CreateCommand(session);CComBSTR bsSQLsmd=OLESTR("SELECT * FROM Books"); CComPtr<ICommandText> spCommandText;hr = cmd.m_spCommand->QueryInterface(&spCommandText);LONG    cRowsAffected;if (SUCCEEDED(hr))  hr = spCommandText->SetCommandText(DBGUID_SQL, bsSQLsmd);CComPtr<IRowset> pIRowset = NULL;hr = cmd.m_spCommand->Execute(NULL, IID_IRowset, NULL, &cRowsAffected, (IUnknown**)&pIRowset);

回到顶端 | 提供反馈

6.csdn http://bbs.csdn.net/topics/310006598

7,http://blog.csdn.net/yuvmen/article/details/5879385

用ADO进行数据库编程

1. 生成应用程序框架并初始化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;

2. 引入ADO库文件

使用ADO前必须在工程的stdafx.h文件最后用直接引入符号＃import引入ADO库文件，以使编译器能正确编译。代码如下：

#import "C:/Program Files/common files/system/ado/msado15.dll" no_namespace rename("EOF","adoEOF")

ADO类的定义是作为一种资源存储在ADO DLL(msado15.dll）中，在其内部称为类型库。类型库描述了自治接口，以及C＋＋使用的COM vtable接口。当使用＃import指令时，在运行时Visual C＋＋需要从ADO DLL中读取这个类型库，并以此创建一组C＋＋头文件。这些头文件具有.tli 和.tlh扩展名，读者可以在项目的目录下找到这两个文件。在C＋＋程序代码中调用的ADO类要在这些文件中定义。

程序的第三行指示ADO对象不使用名称空间。在有些应用程序中，由于应用程序中的对象与ADO中的对象之间可能会出现命名冲突，所以有必要使用名称空间。如果要使用名称空间，则可把第三行程序修改为： rename_namespace("AdoNS")。第四行代码将ADO中的EOF(文件结束)更名为adoEOF，以避免与定义了自己的EOF的其他库冲突。

3．利用智能指针进行数据库操作

在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程序的事件响应中OnButton1加入以下代码:

 

void CAdotestDlg::OnButton1()

{

m_List.ResetContent();

m_pConnection.CreateInstance(_uuidof(Connection)); //初始化Connection指针

m_pRecordset.CreateInstance(_uuidof(Recordset));//初始化Recordset指针

try

{

m_pConnection->Open("DSN=ADOTest","","",0); //连接叫作ADOTest的ODBC数据源

//注意：这是连接不需要用户ID或密码的open 函数

// 否则形式为 ->Open("DSN=test;uid=sa;pwd=123;","","",0);

// 执行SQL语句得到一个记录集把其指针赋值给m_pRecordset

CString strSql="select * from middle";

BSTR bstrSQL = strSql.AllocSysString();

m_pRecordset->Open(bstrSQL,(IDispatch*)m_pConnection,adOpenDynamic,adLockOptimistic,adCmdText);

//adOpenDynamic：动态 adLockOptimistic乐观封锁法 adCmdText：文本查询语句

while(!m_pRecordset->adoEOF)//遍历所有记录

{

//取纪录字段值方式之一

_variant_t TheValue; //VARIANT数据类型

TheValue = m_pRecordset->GetCollect("BIG_NAME");//得到字段BIG_NAME的值

if(TheValue.vt!=VT_NULL)

m_List.AddString((char*)_bstr_t(TheValue));

//将该值加入到列表控件中

//取纪录字段值方式之二

// _bstr_t TheValue1=m_pRecordset->Fields->GetItem("BIG_NAME")->Value;

// CString temp=TheValue1.copy();

// m_List.AddString(temp);

//数据类型转换

_variant_t vUsername,vBirthday,vID,vOld;

TRACE("id:%d,姓名:%s,年龄:%d,生日:%s/r/n",

vID.lVal,(LPCTSTR)(_bstr_t)vUsername,vOld.lVal,(LPCTSTR)(_bstr_t)vBirthday);

m_pRecordset->MoveNext();//转到下一条纪录

}

m_pRecordset->Close();

m_pConnection->Close();

}

catch (_com_error e)//异常处理

{

AfxMessageBox(e.ErrorMessage());

}

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字段值显示在列表控件中。

4．执行SQL命令并取得结果记录集

为了取得结果记录集，我们定义一个指向Recordset对象的指针:_RecordsetPtr m_pRecordset;

并为其创建Recordset对象的实例: m_pRecordset.CreateInstance("ADODB.Recordset");

SQL命令的执行可以采用多种形式，下面我们一进行阐述。

(1)利用Connection对象的Execute方法执行SQL命令

Execute方法的原型如下所示:

_RecordsetPtr Connection15::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创建表格users,users包含四个字段:整形ID,字符串username,整形old,日期型birthday

m_pConnection->Execute("CREATE TABLE users(ID INTEGER,username TEXT,old INTEGER,birthday DATETIME)",

&RecordsAffected,

adCmdText);

///往表格里面添加记录

m_pConnection->Execute("INSERT INTO users(ID,username,old,birthday) VALUES (1, 'Washington',25,'1970/1/1')",&RecordsAffected,adCmdText);

///将所有记录old字段的值加一

m_pConnection->Execute("UPDATE users SET old = old+1",&RecordsAffected,adCmdText);

///执行SQL统计命令得到包含记录条数的记录集

m_pRecordset =  m_pConnection->Execute("SELECT COUNT(*) FROM users",&RecordsAffected,adCmdText);

_variant_t vIndex = (long)0;

_variant_t vCount = m_pRecordset->GetCollect(vIndex);///取得第一个字段的值放入vCount变量

上两句可以写成— _variant_t vCount = m_pRecordset->GetCollect((_variant_t)((long)0));

m_pRecordset->Close();///关闭记录集

CString message;

message.Format("共有%d条记录",vCount.lVal);

AfxMessageBox(message);///显示当前记录条数

(2)利用Command对象来执行SQL命令

_CommandPtr m_pCommand;

m_pCommand.CreateInstance("ADODB.Command");

_variant_t vNULL;

vNULL.vt = VT_ERROR;

vNULL.scode = DISP_E_PARAMNOTFOUND;///定义为无参数

m_pCommand->ActiveConnection = m_pConnection;///非常关键的一句，将建立的连接赋值给它

m_pCommand->CommandText = "SELECT * FROM users";///命令字串

m_pRecordset = m_pCommand->Execute(&vNULL,&vNULL,adCmdText);///执行命令，取得记录集

在这段代码中我们只是用Command对象来执行了SELECT查询语句，Command对象在进行存储过程的调用中能真正体现它的作用。下次我们将详细介绍。

(3)直接用Recordset对象进行查询取得记录集

实例——

void CGmsaDlg::OnDBSelect()

{

// TODO: Add your control notification handler code here

_RecordsetPtr Rs1;  //定义Recordset对象

_bstr_t Connect("DSN=GMS;UID=sa;PWD=;");//定义连接字符串

_bstr_t Source ("SELECT count(*) FROM buaa.mdb010");  //要执行的SQL语句

::CoInitialize(NULL);  //初始化Rs1对象

HRESUL hr = Rs1.CreateInstance( __uuidof( Recordset ) );

//省略对返回值hr的判断

Rs1->Open( Source,

Connect,

adOpenForwardOnly,

adLockReadOnly,

-1 );

_variant_t temp=Rs1->GetCollect(_variant_t((long)0));

CString strTemp=(char* )(_bstr_t)temp;

MessageBox("OK!"+strTemp);

}

例如

m_pRecordset->Open("SELECT * FROM users",

_variant_t((IDispatch *)m_pConnection,true),

adOpenStatic,

adLockOptimistic,

adCmdText);

Open方法的原型是这样的:

HRESULT Recordset15::Open ( const _variant_t & Source,

const _variant_t & ActiveConnection,

enum CursorTypeEnum CursorType,

enum LockTypeEnum LockType,

long Options )

其中：

①Source是数据查询字符串

②ActiveConnection是已经建立好的连接（我们需要用Connection对象指针来构造一个_variant_t对象)

③CursorType光标类型，它可以是以下值之一,请看这个枚举结构:

enum CursorTypeEnum

{

adOpenUnspecified = -1,///不作特别指定

adOpenForwardOnly = 0,///前滚静态光标。这种光标只能向前浏览记录集，比如用MoveNext向前滚动,这种方式可以提高浏览速度。但诸如BookMark,RecordCount,AbsolutePosition,AbsolutePage都不能使用

adOpenKeyset = 1,///采用这种光标的记录集看不到其它用户的新增、删除操作，但对于更新原有记录的操作对你是可见的。

adOpenDynamic = 2,///动态光标。所有数据库的操作都会立即在各用户记录集上反应出来。

adOpenStatic = 3///静态光标。它为你的记录集产生一个静态备份，但其它用户的新增、删除、更新操作对你的记录集来说是不可见的。

};

④LockType锁定类型，它可以是以下值之一，请看如下枚举结构：

enum LockTypeEnum

{

adLockUnspecified = -1,///未指定

adLockReadOnly = 1,///只读记录集

adLockPessimistic = 2,悲观锁定方式。数据在更新时锁定其它所有动作，这是最安全的锁定机制

adLockOptimistic = 3,乐观锁定方式。只有在你调用Update方法时才锁定记录。在此之前仍然可以做数据的更新、插入、删除等动作

adLockBatchOptimistic = 4，乐观分批更新。编辑时记录不会锁定，更改、插入及删除是在批处理模式下完成。

};

⑤Options可以取如下值之一：

adCmdText:表明CommandText是文本命令

adCmdTable:表明CommandText是一个表名

adCmdProc:表明CommandText是一个存储过程

adCmdUnknown:未知

5. 记录集的遍历、更新

根据我们刚才通过执行SQL命令建立好的users表，它包含四个字段:ID,username,old,birthday

以下的代码实现：打开记录集，遍历所有记录，删除第一条记录，添加三条记录，移动光标到第二条记录，

更改其年龄，保存到数据库。

_variant_t vUsername,vBirthday,vID,vOld;

_RecordsetPtr m_pRecordset;

m_pRecordset.CreateInstance("ADODB.Recordset");

m_pRecordset->Open("SELECT * FROM users",

_variant_t((IDispatch*)m_pConnection,true),

adOpenStatic,

adLockOptimistic,

adCmdText);

while(!m_pRecordset->adoEOF)

{

vID = m_pRecordset->GetCollect(_variant_t((long)0));///取得第1列的值,从0开始计数，

///你也可以直接给出列的名称，如下一行

vUsername = m_pRecordset->GetCollect("username");///取得username字段的值

vOld = m_pRecordset->GetCollect("old");

vBirthday = m_pRecordset->GetCollect("birthday");

///在DEBUG方式下的OUTPUT窗口输出记录集中的记录

if(vID.vt != VT_NULL && vUsername.vt != VT_NULL && vOld.vt != VT_NULL && vBirthday.vt != VT_NULL)

TRACE("id:%d,姓名:%s,年龄:%d,生日:%s/r/n",

vID.lVal,

(LPCTSTR)(_bstr_t)vUsername,

vOld.lVal,

(LPCTSTR)(_bstr_t)vBirthday);

m_pRecordset->MoveNext();///移到下一条记录

}

m_pRecordset->MoveFirst();///移到首条记录

m_pRecordset->Delete(adAffectCurrent);///删除当前记录

///添加三条新记录并赋值

for(int i=0;i<3;i++)

{

m_pRecordset->AddNew();///添加新记录

m_pRecordset->PutCollect("ID",_variant_t((long)(i+10)));

m_pRecordset->PutCollect("username",_variant_t("叶利钦"));

m_pRecordset->PutCollect("old",_variant_t((long)71));

m_pRecordset->PutCollect("birthday",_variant_t("1930-3-15"));

}

m_pRecordset->Move(1,_variant_t((long)adBookmarkFirst));///从第一条记录往下移动一条记录,即移动到第二条记录处

m_pRecordset->PutCollect(_variant_t("old"),_variant_t((long)45));///修改其年龄

m_pRecordset->Update();///保存到库中  

备注：多次查询可把查询过程做成一个函数ExecuteSQL让m_pRecordset获得连接指针m_pConnection查询结果

void ExecuteSQL(_ConnectionPtr  m_pConnection, _RecordsetPtr  m_pRecordset,CString strSql)

{

//执行Select 语句

BSTR bstrSQL = strSql.AllocSysString();     

try

{

m_pRecordset->Open(bstrSQL,(IDispatch*)m_pConnection,adOpenDynamic,adLockOptimistic,adCmdText);

//adOpenDynamic：动态  adLockOptimistic乐观封锁法  adCmdText：文本查询语句

}

catch(_com_error error)

{

CString errorMessage;

errorMessage.Format("%s",(LPTSTR)error.Description());

AfxMessageBox(errorMessage);

}

}    

//出错处理：

3127——没有找到目标表

3092——目标表已经存在

例如：

catch(const _com_error e)

{

AfxMessageBox(e.Description());

long errorCode=e.WCode();

if(3127==errorCode) AfxMessageBox("表不存在");

if(3092==errorCode) AfxMessageBox("表已经存在");

return FALSE;

}

7、ADO.NET

ADO.NET是一组用于和数据源进行交互的面向对象类库。

ADO.NET的主要对象有哪些？

Connection :用于连接到数据库和管理对数据库的事务；

Command :用于对数据库发出SQL命令；

DataReader :用于从数据源读取只进数据记录流；

DataSet :用于对单层数据、XML数据和关系数据进行存储、远程处理和编程；

DataAdapter :用于将数据推入DataSet，并使数据与数据库保持一致；

ADO.NET 2.0 快速入门：

http://tech.e800.com.cn/articles/2009/721/1248143977078_1.html

用VC轻松实现 ADO.net：

http://www.vckbase.com/document/viewdoc/?id=1714