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