在VC中使用ADO
导入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中这句话编译不通过！（???）
增加自动化支持在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"); //得到表名(需要转化一下)
}
