CSDN博客

img floodzhu

在VC中使用ADO

发表于2001/12/30 9:23:00  1441人阅读

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

相关博文

我的热门文章

img
取 消
img