y_yy0 2015-07-13 20:14 采纳率: 20%
浏览 1423
已采纳

vc++6.0使用的oracle 9i 如何转换成access2007?

vc++6.0使用的oracle 9i 如何转换成access2007?

  • 写回答

4条回答 默认 最新

  • oyljerry 2015-07-13 20:49
    关注
    
    使用ADO连接数据库,因为要使用COM,需要初始化(CoInitialize).然后就可以生成接口的对象操作,代码如下:
    
    #import "C:Program Files\Common Files\System\ado\msado15.dll" rename("EOF", "adoEOF")    //生成C++类,改变EOF函数的名称
    using namespace ADODB;
    
    BOOL ADOConnect(CString strDBFile)
    {
        _ConnectionPtr pConnection;
        if(pConnection.CreateInstance(__uuidof(Connection)) != S_OK)
        {
            return FALSE;
        }
    
        CString strConnect;
        strConnect.Format(_T("Provider=Microsoft.Jet.OLEDB.4.0;Data   Source=%s"), strDBFile);
        if(pConnection->Open(_bstr_t(strConnect), "", "", adModeUnknown) == S_OK)
        {
            //连接数据库成功
            _RecordsetPtr pRecordset;
            if(pRecordset.CreateInstance(__uuidof(Recordset)) != S_OK)
            {
                pConnection->Close();
                return FALSE;
            }
    
            CString strSql;
            strSql = _T("select * from info");
            HRESULT hr = pRecordset->Open(_bstr_t(strSql), _variant_t((IDispatch*)pConnection, TRUE), adOpenUnspecified, adLockUnspecified, adCmdUnknown);
            if(hr != S_OK)
            {
                pConnection->Close();
                return FALSE;
            }
            _variant_t vt;
    
            pRecordset->MoveFirst();
            while(!pRecordset->adoEOF)
            {
                vt = pRecordset->Fields->GetItem("姓名")->Value;
    
                pRecordset->MoveNext();
            }
    
            pConnection->Close();
            return TRUE;
        }
    
        return FALSE;
    }
    
    

    展开全部

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(3条)
编辑
预览

报告相同问题?

悬赏问题

  • ¥15 爱快路由器端口更改错误导致无法访问
  • ¥20 安装catkin时遇到了如下问题请问该如何解决呢
  • ¥15 VAE模型如何输出结果
  • ¥15 编译python程序为pyd文件报错:{"source code string cannot contain null bytes"
  • ¥20 关于#r语言#的问题:广义加行模型拟合曲线后如何求拐点
  • ¥15 fluent设置了自动保存后,会有几个时间点不保存
  • ¥20 激光照射到四象线探测器,通过液晶屏显示X、Y值
  • ¥15 这怎么做,怎么在我的思路下改下我这写的不对
  • ¥50 数据库开发问题求解答
  • ¥15 安装anaconda时报错
手机看
程序员都在用的中文IT技术交流社区

程序员都在用的中文IT技术交流社区

专业的中文 IT 技术社区,与千万技术人共成长

专业的中文 IT 技术社区,与千万技术人共成长

关注【CSDN】视频号,行业资讯、技术分享精彩不断,直播好礼送不停!

关注【CSDN】视频号,行业资讯、技术分享精彩不断,直播好礼送不停!

客服 返回
顶部