在VC中使用ADO的步骤

在VC中使用ADO

1. 导入ADO类型库

   #pragma warning(disable: 4146)
   #import "c:/program files/common files/system/ado/msado15.dll" no_namespace rename( "EOF", "adoEOF" )
   #pragma warning(default: 4146)

   注：在最新的SDK中这句话编译不通过！（???）

2. 增加自动化支持

   在CMyApp::InitInstance()中加入

   if (!AfxOleInit())
     return FALSE;

3. 以CAboutDlg为例，在其中放置一个ListBox控件，对应于m_list

4. 在CAboutDlg中声明

   _RecordsetPtr m_pRecordset;
   _ConnectionPtr m_pConnection;

5. 在OnInitDialog()中建立连接

   try{
     m_pConnection.CreateInstance(__uuidof(Connetion));
     m_pConnection.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E://GCL6//Data//Test.mdb;",
       "","",-1);//在"="两边莫加空格！
   catch(...)
   {
     AfxMessageBox("数据库连接失败！");
   }   

6. 打开查询，访问数据

   _variant TheValue;
   m_pRecordset.CreateInstance(__uuidof(Recordset));
   m_list.ResetContent();
   try
   {
     m_pRecordset->Open("select * from property", //注意：m_pRecordset后加 . 和加 -> 功能不同
       m_pConnection.GetInterfacePtr(),
       adOpenDynamic,
       adLockOptimistic,
       adCmdText
       );
     while (!m_pRecordset->adoEOF)
     {
       TheValue = m_pRecordset->GetCollect("Caption");
       if (TheValue.vt != VT_NULL)
         m_list.AddString((char *)_bstr_t(TheValue));
       m_pRecordset -> MoveNext();
     }
     m_pRecordset -> Close();
   }
   catch(...)
   {
     AfxMessageBox("Error!");
   }

7. 访问域

   FieldPrt pField;
   for (int i=0; i<m_pRecordset->Fields->Count-1; i++)
   {
     pField = m_pRecordset->Fields->GetItem(long(i)));
   }

   (char *)pField->Name 即域名。
   pField->Type是数据类型
   pField->Precision是精度
   注：数值类型和货币类型的Precision小于255，其余类型都是255。

8. 枚举所有表/查询

   m_pRecordset = m_pConnetion->OpenSchema(adSchemaTable);
   while(!m_pRecordset->adoEOF)
   {
     char pType[40];
     strcpy(pType, (char *)_bstr_t(m_pRecordset->GetCollect("TABLE_TYPE")));
     if (!strcmp(pType, "TABLE")) //"VIEW"对应于查询
       m_pRecordset -> GetCollect("TABLE_NAME"); //得到表名(需要转化一下)
   }