使用ADO写Excel，Excel默认长度修改【版主去哪里了？大牛去哪里了？】-CSDN论坛

使用ADO写Excel，Excel默认长度修改【版主去哪里了？大牛去哪里了？】

C/C++ > 其它技术问题

收藏回复

[问题点数：100分，结帖人huoqingna2332]

⋅远程获取windows的文件夹内容，WMI方式可选 ⋅【新年新气象】 ⋅使用ADO写Excel，Excel默认长度修改【版主去哪里了？大牛去哪里了？】 更多帖子 关注私信空间博客 零度的折翅 本版专家分：317 结帖率 100%

下面是使用ado方式写的excel。如果我输入的字符长度大于255时，就会报错，说 “字段太小而不能接受所要添加的数据的数量。试着插入或粘贴较少的数据， IDispatch error #3105”。
请问各位大侠，如何可以将写入的数据长度修改了，可以录入大于255长度的数据。谢谢。



#include <iostream>

#include <sstream>

#include <fstream>

#include <time.h>

#import "C:\Program Files\Common Files\System\ADO\msado15.dll" no_namespace rename("EOF", "adoEOF") rename("BOF", "adoBOF")



const int writeRows = 50;



inline void TESTHR(HRESULT x) {if FAILED(x) _com_issue_error(x);};



std::string makeConnStr(std::string filename, bool header = true)

{

    std::stringstream stream;



    std::string hdr = header ? "YES" : "NO";    



    if(!filename.empty())       

        if(*--filename.end() == 'x')        

            stream << "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" << filename << ";Extended Properties=\"Excel 12.0 Xml;HDR=" << hdr << "\"";                    

        else        

            stream << "Provider='Microsoft.JET.OLEDB.4.0';Data Source=" << filename << ";Extended Properties=\"Excel 8.0;HDR=" << hdr << "\"";



    return stream.str();

}



void write(std::string filename)

{   

    if(FAILED(::CoInitialize(NULL))) return;



    _ConnectionPtr pCon = NULL;

    _CommandPtr pCmd = NULL;

    _RecordsetPtr pRec = NULL;

              

    try

    {            

        _bstr_t connStr(makeConnStr(filename).c_str());



        TESTHR(pCon.CreateInstance(__uuidof(Connection)));

        TESTHR(pCon->Open(connStr, "", "", NULL));

        

        TESTHR(pCmd.CreateInstance(__uuidof(Command)));

        pCmd->ActiveConnection = pCon;       

        pCmd->CommandText = "CREATE TABLE MySheet(A int, B varchar, C int, D int, E int, F int, G int, H int, I int, J varchar)";        

        pCmd->Execute(NULL, NULL, adCmdText);



        TESTHR(pRec.CreateInstance(__uuidof(Recordset)));

        pRec->Open("SELECT * FROM MySheet", _variant_t((IDispatch*)pCon), adOpenKeyset, adLockOptimistic, adCmdText);



        for(int i = 0; i < writeRows; ++i)

        {

            TESTHR(pRec->AddNew());



            char str[11] = {0}; for(int j = 0; j < 10; ++j) str[j] = 'a' + (rand() % 26);

            char mytest[] = "abcdefghigklmnopqrstuvwxyz1abcdefghigklmnopqrstuvwxyz2abcdefghigklmnopqrstuvwxyz3abcdefghigklmnopqrstuvwxyz4abcdefghigklmnopqrstuvwxyz5abcdefghigklmnopqrstuvwxyz6abcdefghigklmnopqrstuvwxyz7abcdefghigklmnopqrstuvwxyz8abcdefghigklmnopqrstuvwxyz9abcdefghigklmnopqrstuvwxyz10abcdefghigklmnopqrstuvwxyz11abcdefghigklmnopqrstuvwxyz12";



            pRec->Fields->GetItem("A")->Value = _variant_t(i);   

            pRec->Fields->GetItem("B")->Value = _variant_t(str);  

            pRec->Fields->GetItem("C")->Value = _variant_t(i);

            pRec->Fields->GetItem("D")->Value = _variant_t(i);

            pRec->Fields->GetItem("E")->Value = _variant_t(i);

            pRec->Fields->GetItem("F")->Value = _variant_t(i);

            pRec->Fields->GetItem("G")->Value = _variant_t(i);

            pRec->Fields->GetItem("H")->Value = _variant_t(i);

            pRec->Fields->GetItem("I")->Value = _variant_t(i);

            pRec->Fields->GetItem("J")->Value = _variant_t(str);     

            //pRec->Fields->GetItem("J")->Value = _variant_t(mytest);        

        }

        TESTHR(pRec->Update());

        TESTHR(pRec->Close());                

    }

    catch(_com_error &e)

    {        

        _bstr_t bstrDescription(e.Description());      

        CharToOem(bstrDescription, bstrDescription);

        std::cout << bstrDescription << std::endl;

    }



    if(pCon != 0 && pCon->State == adStateOpen) pCon->Close();   

    ::CoUninitialize();



}



int main()

{

   write("data.xls");                       // writing data.xls

   system("pause");

}

2014-09-23 14:32:43

点赞 0 只看楼主引用举报楼主

⋅远程获取windows的文件夹内容，WMI方式可选 ⋅【新年新气象】 ⋅使用ADO写Excel，Excel默认长度修改【版主去哪里了？大牛去哪里了？】 更多帖子 关注私信空间博客 零度的折翅 本版专家分：317: 咋就没有人来呢！

2014-09-25 08:43:01

点赞 0 只看TA 引用举报 #1得分 0

⋅Oracle共享池写命中率 更多帖子 关注私信空间博客 qq_20151837 本版专家分：20: 没做过，懂不起。

upup，增加人气！！！

2014-09-26 14:08:32

点赞 0 只看TA 引用举报 #2得分 20

⋅上海不是实行垃圾分类了吗？ ⋅自动驾驶汽车上路之前，先完善对应的交通事故处理的法律法规再说。 ⋅VC/MFC和VB6拒绝我回帖了！ 更多帖子 关注私信空间博客 赵4老师 本版专家分：382671 状元 2017年总版技术专家分年内排行榜第一 榜眼 2014年总版技术专家分年内排行榜第二 探花 2013年总版技术专家分年内排行榜第三 进士 2018年总版新获得的技术专家分排名前十 2012年总版技术专家分年内排行榜第七: 可能是Excel的限制。

2014-09-26 14:56:02

点赞 0 只看TA 引用举报 #3得分 0

⋅一个编程题，大家探讨下 ⋅请问下个这个xml格式如何解析 ⋅如何获取系统当前的播放音量 更多帖子 关注私信空间博客 孤影品茗 本版专家分：1287: ADO用的COM，如果是COM组件内部的限制，要解除限制还是很麻烦的
我试了下，你这段代码，没有报错
如何复现错误？？？

2014-09-26 17:25:05

点赞 0 只看TA 引用举报 #4得分 0

⋅远程获取windows的文件夹内容，WMI方式可选 ⋅【新年新气象】 ⋅使用ADO写Excel，Excel默认长度修改【版主去哪里了？大牛去哪里了？】 更多帖子 关注私信空间博客 零度的折翅 本版专家分：317

引用 4 楼 zhaowech 的回复:

ADO用的COM，如果是COM组件内部的限制，要解除限制还是很麻烦的
我试了下，你这段代码，没有报错
如何复现错误？？？

这两天比较忙，不好意思，才看到。
把需要写入的字符串大于255，错误就会出现。
我尝试的修改create table语句，直接将最大长度突破255，结果直接create报错，郁闷。



for(int i = 0; i < writeRows; ++i)

        {

            TESTHR(pRec->AddNew());

 

            char str[11] = {0}; for(int j = 0; j < 10; ++j) str[j] = 'a' + (rand() % 26);

            char mytest[] = "abcdefghigklmnopqrstuvwxyz1abcdefghigklmnopqrstuvwxyz2abcdefghigklmnopqrstuvwxyz3abcdefghigklmnopqrstuvwxyz4abcdefghigklmnopqrstuvwxyz5abcdefghigklmnopqrstuvwxyz6abcdefghigklmnopqrstuvwxyz7abcdefghigklmnopqrstuvwxyz8abcdefghigklmnopqrstuvwxyz9abcdefghigklmnopqrstuvwxyz10abcdefghigklmnopqrstuvwxyz11abcdefghigklmnopqrstuvwxyz12";

 

            pRec->Fields->GetItem("A")->Value = _variant_t(i);   

            pRec->Fields->GetItem("B")->Value = _variant_t(str);  

            pRec->Fields->GetItem("C")->Value = _variant_t(i);

            pRec->Fields->GetItem("D")->Value = _variant_t(i);

            pRec->Fields->GetItem("E")->Value = _variant_t(i);

            pRec->Fields->GetItem("F")->Value = _variant_t(i);

            pRec->Fields->GetItem("G")->Value = _variant_t(i);

            pRec->Fields->GetItem("H")->Value = _variant_t(i);

            pRec->Fields->GetItem("I")->Value = _variant_t(i);

           // pRec->Fields->GetItem("J")->Value = _variant_t(str);     

            pRec->Fields->GetItem("J")->Value = _variant_t(mytest);        

        }

2014-09-28 14:41:23

点赞 0 只看TA 引用举报 #5得分 0

⋅远程获取windows的文件夹内容，WMI方式可选 ⋅【新年新气象】 ⋅使用ADO写Excel，Excel默认长度修改【版主去哪里了？大牛去哪里了？】 更多帖子 关注私信空间博客 零度的折翅 本版专家分：317: 引用 3 楼 zhao4zhong1 的回复:
可能是Excel的限制。

Excel可以直接输入大于255的字符，而且使用外部导入数据，数据源也可以大于255的限制。所以我怀疑，就是Ado连接的时候有一个默认的最大长度255，但是我就是没有找到。

2014-09-28 14:43:44

点赞 0 只看TA 引用举报 #6得分 0

⋅远程获取windows的文件夹内容，WMI方式可选 ⋅【新年新气象】 ⋅使用ADO写Excel，Excel默认长度修改【版主去哪里了？大牛去哪里了？】 更多帖子 关注私信空间博客 零度的折翅 本版专家分：317: 引用 2 楼 qq_20151837 的回复:
没做过，懂不起。

upup，增加人气！！！

哈哈。
谢谢。

2014-09-28 14:44:12

点赞 0 只看TA 引用举报 #7得分 0

⋅一个编程题，大家探讨下 ⋅请问下个这个xml格式如何解析 ⋅如何获取系统当前的播放音量 更多帖子 关注私信空间博客 孤影品茗 本版专家分：1287: 引用 6 楼 huoqingna2332 的回复:
Quote: 引用 3 楼 zhao4zhong1 的回复:

可能是Excel的限制。

Excel可以直接输入大于255的字符，而且使用外部导入数据，数据源也可以大于255的限制。所以我怀疑，就是Ado连接的时候有一个默认的最大长度255，但是我就是没有找到。

调试了，仔细想了想，我也帮你调试了下，任何一方都没有问题，总结如下：
1.发生这个错误是因为字段默认的大小为255，因此写入大于255引起异常是合理的
2.要想写入更多的数据，需要修改字段的定义大小，具体为
FieldPtr pFd=pRec->Fields->GetItem("J");
pFd->DefinedSize=512;
上面得到了你所想写入的J位置的指针，然后查看DefinedSize，刚好是255，修改为512（只要比要写入大就oK），这样写入就不会就问题了。但是，直接修改会提示，对象打开时无法修改，这里怎么改，我就不多说了。总之，问题到这儿都好解决了。
3.至于为什么Excel不会报错，很明显了，Excel对会事先判断输入数据是否大于当前字段可填充数据上限，如果会，那么它会提升上限，这个过程用户是察觉不到的，而个人程序，就不一样了。

2014-09-28 18:08:01

点赞 0 只看TA 引用举报 #8得分 30

⋅公司项目要去其他公司面试难道我们公司变外包了我应该注意什么呢 ⋅以p的概率选择a p*(1-p)的概率选择b p*(1-p)*(1-p)的概率选择c。。。 ⋅socket发消息建立连接发送接收断开连接还是建立连接发送接收、发送接收。。 更多帖子 关注私信空间博客 cjzzmdn 本版专家分：362

我觉得这样可以。建表时字段类型为memo
msdn应该有这些

_RecordsetPtr  m_pRecordset;

	char mytest[] = "abcdefghigklmnopqrstuvwxyz1abcdefghigklmnopqrstuvwxyz2abcdefghigklmnopqrstuvwxyz3abcdefghigklmnopqrstuvwxyz4abcdefghigklmnopqrstuvwxyz5abcdefghigklmnopqrstuvwxyz6abcdefghigklmnopqrstuvwxyz7abcdefghigklmnopqrstuvwxyz8abcdefghigklmnopqrstuvwxyz9abcdefghigklmnopqrstuvwxyz10abcdefghigklmnopqrstuvwxyz11abcdefghigklmnopqrstuvwxyz12";

	try {

		m_pConnection->Execute("CREATE TABLE test1111 ([0] MEMO,[1] MEMO,[2] CURRENCY,[3] MEMO,[4] MEMO,[5] MEMO,[6] CURRENCY)",NULL,adCmdText);

		ConnectDB();

		m_pRecordset.CreateInstance(__uuidof(Recordset));

		m_pRecordset->Open("[test1111$]",m_pConnection.GetInterfacePtr(), // 获取库接库的IDispatch指针

			adOpenStatic,//adOpenDynamic,adOpenKeyset

			adLockPessimistic,

			adCmdTable);

		for (int i=0;i<10;i++)

		{

			m_pRecordset->AddNew();

			m_pRecordset->Fields->GetItem("0")->Value = mytest;

		}

2014-09-29 13:22:16

点赞 0 只看TA 引用举报 #9得分 50

⋅远程获取windows的文件夹内容，WMI方式可选 ⋅【新年新气象】 ⋅使用ADO写Excel，Excel默认长度修改【版主去哪里了？大牛去哪里了？】 更多帖子 关注私信空间博客 零度的折翅 本版专家分：317: 引用 8 楼 zhaowech 的回复:
Quote: 引用 6 楼 huoqingna2332 的回复:

Quote: 引用 3 楼 zhao4zhong1 的回复:

可能是Excel的限制。

Excel可以直接输入大于255的字符，而且使用外部导入数据，数据源也可以大于255的限制。所以我怀疑，就是Ado连接的时候有一个默认的最大长度255，但是我就是没有找到。

调试了，仔细想了想，我也帮你调试了下，任何一方都没有问题，总结如下：
1.发生这个错误是因为字段默认的大小为255，因此写入大于255引起异常是合理的
2.要想写入更多的数据，需要修改字段的定义大小，具体为
FieldPtr pFd=pRec->Fields->GetItem("J");
pFd->DefinedSize=512;
上面得到了你所想写入的J位置的指针，然后查看DefinedSize，刚好是255，修改为512（只要比要写入大就oK），这样写入就不会就问题了。但是，直接修改会提示，对象打开时无法修改，这里怎么改，我就不多说了。总之，问题到这儿都好解决了。
3.至于为什么Excel不会报错，很明显了，Excel对会事先判断输入数据是否大于当前字段可填充数据上限，如果会，那么它会提升上限，这个过程用户是察觉不到的，而个人程序，就不一样了。

感谢，非常感谢。

2014-09-30 17:27:59

点赞 0 只看TA 引用举报 #10得分 0

1 2

收藏回复

零度的折翅

等级：

关注私信 TA的帖子

VC中ADO读写Excel: VC使用ADO读写Excel的例子根据MSDN官方说，使用ADO读取Excel存在不少问题，比如一列中的单元格的类型是多种的话，有些单元格的值明明有值，读取确实空，这主要是Excel不是关系型数据库...如果想准确无误的操作Excel...

Delphi使用ADO读Excel的数据，比OLE快n倍: 使用ADO连接Excel数据表，并读取的例子，比使用OLE的方法快N倍，并简单易用。

在Delphi中使用ADO连接Excel: 在Delphi中使用ADO连接Excel

Delphi用ADO把Excel内容读取至表格: delphi2007,无第三方控件，使用用ADO控件把Excel内容读取至DbGrid表格中。简单好用，一看就会。

ADO操作EXCEL之VB版: 不错的关于VB中利用ADO技术操作EXCEL的实现详细介绍！

ADO读取EXCEL兼容07模式: 通过ADO 快速打开EXCEL，兼容03与07二种模式。

利用ADO将EXCEL批量导入至ACCESS中: 利用ADO将EXCEL批量导入至ACCESS中，希望对大家有所助益

ado连接excel: ado连接excel ado连接excel ado连接excel ado连接excel

DELPHI ADO读取Excel文件范例.rar: DELPHI ADO读取Excel文件范例，进行数据的转换和导入导出。要用DELPHI中的ADO系列控件访问Excel数据文件，首先应该建立一些基本概念。你需要将一个Excel数据文件想象为一个关系数据库，Excel文件中的每个工作表就对...

初学者Ado(Adodb)读取(访问)Excel数据: 初学者Ado(Adodb)读取(访问)Excel数据,有详细的说明，在VB.net2010上编译通过，绝对可以运行，希望能给初学都以帮助。但这不是VB.net读取(访问)Excel数据的最好方法,最好的方法是应该vb.net平台进行改进后的ado.net...

Excel使用ADO调用SQL Server存储过程示例: 后期对于投票结果需要进行一些权重的计算，过程比较复杂，便想到把计算过程放在SQL Server端，使用存储过程实现。但是，在调用存储过程的过程中却遇到了问题，一直无法返回记录集。最后发现问题出现在记录集的...

ADO连接Excel: 对于 Excel 工作簿 Jet OLE DB Provider 细节 MicrosoftJet 数据库引擎可用于通过可安装索引顺序访问方法 (ISAM) 驱动程序访问其他数据库文件格式, 如 Excel 工作簿, 数据。用于连接扩展属性中打开 Microsoft Jet ...

Excel_VBA＋ADO＋SQL入门教程_－_汇总.pdf: 首先，必须严肃脸说明的是，对于普通 Excel 使用者而言，VBA、SQL 以及以后提及的 ADO 并不是非学不可的，非学不可的是基础操作、函数、透视表、图表…… 然而大数据时代，对于另外相当一部分表族而言，Excel 用...

VC6.0利用ADO读取excel: 运行环境:VC6.0 特点：简单易懂，适合初学者。直接拷来用也容易。简单实例:读取，修改，插入，遍历，以及报错记录。几种功能都有注释，一看就...利用ADO读取，不需要任何插件，也不需要配置数据源，直接就能读取excel

VC中用ADO访问EXCEL电子表格: 对office各个工具的访问基本一样，EXCEL就和ACCESS的访问基本一样，只是这个参数_bstr_t strConnect ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.xls;Extended Properties=Excel 8.0;";略有区别。传的...

用ado连接excel数据库: 此为在vc上用c语言写的可以连接和查询excel中的数据！希望对大家有用！

C#使用ado.net读取excel文件: NULL 博文链接：https://code.iteye.com/blog/908049

使用“自动化”功能将数据从ADO记录集传输到Excel: 讲述了ADO记录集输出到Excel的方法。介绍了CopyFromRecordset,GetRows方法。讲的比较透彻。

VS2010 MFC 读写Excel 可运行: VS2010 MFC 读写Excel 可运行

Python ADO 教程: 英文文档。教你怎么在Python程序中使用 ADO技术访问关系数据库

相关热词 c# 解析cad c#数字格式化万 c#int转byte c#格式化日期 c# wpf 表格 c# 实现ad域验证登录 c#心跳包机制 c#使用fmod.dll c#dll vb 调用 c# outlook