[已解决]请教个sql取值的问题

2530786302

wcymiss 发表于 2013-6-25 14:19
连接语句conn.Open "dsn=excel files;dbq=" & ThisWorkbook.FullName
改成：
conn.Open "Provider=Micros ...

您好，连接语句改了，读取的数据，还是不完整呢

wcymiss

我这里测试，odbc可以读取最多255个字符，在2003环境下，oledb可以读取最多911个字符，在2010（我没有2007）环境下，oledb的jet和ace读取32767个字符都没问题。excel一个单元格最多也就支持32767个字符了。

见测试附件： 超255字符串ado读写测试.rar (10.25 KB, 下载次数: 3)

2013-6-25 15:29 上传

点击文件名下载附件

有一个疑问，长度超出255的时候，我这里测试ODBC的返回结果是空，不是你所说的“不完整”。请问你是在什么环境下运行代码呢？

2530786302

wcymiss 发表于 2013-6-25 14:54
我这里测试，odbc可以读取最多255个字符，在2003环境下，oledb可以读取最多911个字符，在2010（我没有2007） ...

我的数据见附件，麻烦帮忙看看，谢谢！
数据提取到 《提取的场景级指标》sheet，你看下， 指标来源表4 列表有数据的时候，一般后面的 指标算法 列都比较长，这样的数据呈现就不完整，可以与 《场景指标字典数据》sheet对比；
我在现场用的是WindowsXP ，office2007环境

wcymiss

啊哈，原来是数据类型在作怪。

长度不超过255的字符串，在数据库里的类型是adVarWChar，超过了就是adLongVarWChar类型。

sql结果集的数据类型，根据前8行来判断，你数据的前8行都是长度不超过255的字符串，所以该字段被默认为是adVarWChar类型，所有的数据最长只能为255个字符。
如果你数据的前8行里有超过255的字符串，该字段就会默认为是adLongVarWChar类型了，数据也会显示完整了。

这个8行在注册表里可修改，修改为0的话，系统就会根据所有的数据进行判断。不过这样运行效率将会降低不少。

代码修改：
Dim RegPath As String
RegPath = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Excel\TypeGuessRows"
CreateObject("WScript.shell").RegWrite RegPath, 0, "REG_DWORD"
这三句放在打开ado之前。是针对oledb的Jet连接的。别忘了ado的连接要用jet这句才有效。

ado关闭后别忘了恢复注册表的值：
CreateObject("WScript.shell").RegWrite RegPath, 8, "REG_DWORD"

wcymiss

顺便说下，之前测试的字符长度911的限制，应该是2003excel本身的限制，与ado无关。如果有超出911的，最好在高版本环境下运行代码。

2530786302

wcymiss 发表于 2013-6-25 20:59
顺便说下，之前测试的字符长度911的限制，应该是2003excel本身的限制，与ado无关。如果有超出911的，最好在 ...

非常感谢啊，谢谢！