| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 265 人关注过本帖
标题:ADO对Excel进行写操作的问题
只看楼主 加入收藏
yy21drd
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2011-11-2
结帖率:33.33%
收藏
 问题点数:0 回复次数:1 
ADO对Excel进行写操作的问题
bool    ADOConn::Initialize(CString strPath, int sheet, bool rw)
{
    bool Isok=true;
    CoInitialize(NULL);    //初始化
    CString strSql;
    CString    strSelect;
    //设置初始化链接路径
    strSql="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=";
    strSql+=strPath;
    if (rw)    //rw位true时,进行读,否则进行写
        strSql+=";Extended Properties=\"Excel 12.0 Xml;HDR=No;IMEX=1\"";
    else
        strSql+=";Extended Properties=\"Excel 12.0 Xml;HDR=No;IMEX=0\"";
    //Sql语句,sheet位第几个表单
    strSelect.Format(L"select * from [sheet%d$]",sheet);
    _bstr_t bstrSQL=(_bstr_t)strSelect;
    try
    {
        m_pConnection.CreateInstance(__uuidof(Connection));
        //strConnect="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Try;Extended Properties=\"Excel 12.0;HDR=No;IMEX=0\"";
        strConnect=strSql;
        //连接
        m_pConnection->Open(strConnect,"","",adModeUnknown);
        m_pRecordset.CreateInstance(_uuidof(Recordset));
        m_pRecordset->Open(bstrSQL,_variant_t((IDispatch*)m_pConnection,true),adOpenDynamic,adLockOptimistic,adCmdText);
    }
    catch(_com_error &e)   //捕捉错误信息
    {
        Isok=false;
        AfxMessageBox(e.ErrorMessage());
    }
    return Isok;
}

void    ADOConn::WriteData(int row, int col, CString strData)
{
     try
     {
         //我想每次直接在excel最后一行第col个格子写东西
         m_pRecordset->MoveFirst();
         if (row!=1)     //移动到第row行
             for (int i=0; i<row; i++)
                 m_pRecordset->MoveNext();
               
        m_pRecordset->AddNew();
        m_pRecordset->PutCollect((_variant_t)col,(_variant_t)strData);//每次运行到这里便抛出错误
        m_pRecordset->Update();
     }
     catch (_com_error &e)
     {
         AfxMessageBox(e.ErrorMessage());
     }   
}

求大神改进!!!还有我不要通过update的SQL语句来执行
搜索更多相关主题的帖子: 链接 Excel 
2012-06-02 00:24
xing_8
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2012-12-16
收藏
得分:0 
好象 EXCEL 是不能用ADO 修改。
2012-12-16 15:16
快速回复:ADO对Excel进行写操作的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.039772 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved