#pragma warning(disable: 4146) #import "c:\program files\common files\system\ado\msado15.dll" no_namespace rename( "EOF", "adoEOF" ) #pragma warning(default: 4146)注：在最新的SDK中这句话编译不通过！（???） 增加自动化支持在CMyApp::InitInstance()中加入
if (!AfxOleInit()) return FALSE; 以CAboutDlg为例，在其中放置一个ListBox控件，对应于m_list 在CAboutDlg中声明
_RecordsetPtr m_pRecordset; _ConnectionPtr m_pConnection; 在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("数据库连接失败！"); } 打开查询，访问数据
_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!"); } 访问域
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。
枚举所有表/查询
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"); //得到表名(需要转化一下) }
本文地址：http://com.8s8s.com/it/it2876.htm