【VBA】使用SQL查询字符串时,长度超过255时被截断问题
程序员文章站
2024-02-26 11:10:10
...
最近在写一个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