VBA +字符串分割

Question

我想要将 <= 1000 个字符的结果拆分为大小为 255 的数组，然后用它更新数据库中的字段。

VBA 中的字符串最多支持 255 个字符，那么我该如何做到这一点呢？

我使用MS-Access 2007作为我的数据库，要更新的字段类型是Memo，所以它可以存储超过255个字符，我已经检查过了。

这就是我的查询的样子

Coalsce(""SELECT (parentdesc & '/' & keyword) FROM All_Keywords_Mapping where item_id=" & rs1![item_id] & """, ""\;"")

Coalsce 是我编写的一个函数，我得到的结果如下：

“abc/123\;Bcd/123\;Bcs/sdasdas\;Casad/sdads\;Fea/dasd adsad\;Fea/Zero\;Lo/somer-tet\;"

现在我将此结果更新到另一个表中的字段和字段数据类型 Memo。当结果超过 255 个字符时，我收到更新查询错误，因此我进行了调试现在检查结果的长度是否< 255然后只更新，它工作得很好，但是当它超过时我无法做任何事情

我的合并函数

Function Coalsce(strSql As String, strDelim As String, ParamArray NameList() As Variant)
Dim db As Database
Dim rs As DAO.Recordset
Dim strList As String

    Set db = CurrentDb

    If strSql <> "" Then
        Set rs = db.OpenRecordset(strSql)

        Do While Not rs.EOF
            strList = strList & rs.Fields(0) & strDelim
            rs.MoveNext
        Loop

        strList = Mid(strList, Len(strDelim))
    Else

        strList = Join(NameList, strDelim)
    End If

    Coalsce = strList

End Function

我的查询。

strSql = Select DISTINCT " & rs1![item_id] & " as item_id, FindReplace(Coalsce(""SELECT (desc & '/' & kw) FROM AKM where item_id=" & rs1![item_id] & """, ""\;""), ""/"", ""\/"") as res
Set rs2 = db.OpenRecordset(strSql, dbOpenDynaset)
DoCmd.RunSQL ("Update data_Query set res=" & rs2.Fields("res").Value)

Answer 1

发生这种情况有两个潜在原因。最常见的是，您在带有 ORDER BY 的 SQL 语句中执行此操作，在这种情况下，备注字段会被截断为 255 个字符。但是，这似乎不太可能，因为您的函数返回的字符串长度超过 255 个字符，因此这不应该成为问题。事实上，当存在 ORDER BY 时，解决 255 个字符截断的方法之一是将备注字段包装在像 Left([MyMemoField], 4096) 这样的函数中。

另一个原因与备注字段的串联有关，在这种情况下 MemoField1 & MemoField2 将被截断为 255 个字符（并且通常以乱码结尾）。您没有提及源字段的数据类型，因此这似乎不太可能。

所以，我基本上怀疑你的 Coalsce() 函数。我的第一个猜测是您已经定义了一个返回类型：

  Public Function Coalsce()

...这将返回一个变体类型，因为您没有显式设置返回类型。因此，您应该将其更改为：

  Public Function Coalsce() As String

但是，您可能决定在所有字段均为 Null 时返回 Null，在这种情况下，您必须将返回类型声明为 Variant：

  Public Function Coalsce() As Variant

这看起来像对我来说不好的做法，因为变体处理起来很复杂。

也可能是 ByRef/ByVal 问题。在这种情况下，您确实希望通过 ByVal 处理事物，因为 ByRef 情况会导致连接备注字段出现问题（而 ByVal 避免了这种情况）。

话虽如此，我想知道为什么不能直接连接 SQL 语句中的字段，而是需要一个函数来完成它。

另外，您存储在备忘录字段中的返回数据让我产生了一些 WTF 反应——看起来您正在存储重复的数据，而且格式几乎无法使用。

所以，基本上，如果没有更多关于你在做什么、如何做以及为什么这样做的细节，任何人都不可能真正回答你的问题。