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

文章来源于领测软件测试网 https://www.ltesting.net/