在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"); //得到表名(需要转化一下)
   
   }