欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页

【VBA】使用SQL查询字符串时,长度超过255时被截断问题  

程序员文章站 2024-02-26 12:53:46
...

最近在写一个VBA工具时,遇到一个比较怪异的问题,由于工具使用了ADODB方式查询(在VBA中使用SQL操作方式)处理数据,出现部分单元格的内容被固定的截断了。

 

经过多方查找原因,最后在一些博客中发现了可能存在的原因为Excel使用ADODB操作时,默认会以前8行数据来判断整列的数据类型及结构,包括字符串的长度。如果第9行开始出现都大于前8行中最长的单元格内容时,将会被截断。

 

解决方案是需要修改注册表项“HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Excel\TypeGuessRows 值为更大,但此参数只支持最大16(如果设置为0,则会扫描所有行,大数据时慎重)。

 

此方法暂未验证,明天到公司使用真实数据验证一下。

 

微软官方的问题解决方案:http://support.microsoft.com/kb/189897/

 

 

同时,也有其他同学遇到了插入数据库,发现字段被截断的问题,给出的解决方案是替换单元格内容中所有的单引号,因为单引号在数据库中作为关键字使用,可能内容被提前结束导致字段被截断。

Public Function FormatSql(ByVal strValue As String) As String
100 On Error GoTo errhandle
     
        Const TAG1 As String = "'"
        Const TAG2 As String = "''"
     
        '将一个单引号'替换成两人单引号''
        '如  a'b'c  --> a''b''c
        '    a''b   --> a''''b
102     FormatSql = Replace(strValue, TAG1, TAG2)
     
        Exit Function
     
errhandle:
104     Call PutLog( Erl, Err.Description)
End Function

 CSDN:http://bbs.csdn.net/topics/190013271