在VC中使用ADO_Web开发_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

在VC中使用ADO

作者：闵涛文章来源：闵涛的学习笔记点击数：900 更新时间：2009/4/23 10:48:01

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