无法使用带有 VB6 的 ADODB 从 MEMO 字段中读取超过 255 个字符

Question

我正在尝试使用 ADODB 从 Access 2.0 文件中读取/写入 MEMO 类型字段。我可以将数据写入 MEMO 字段 - 超过 255 个字符（当我在 Access 中打开转换后的文件时，我可以看到所有应该在那里的数据），但我无法使用 VB6 代码读取超过 255 个字符，如下所示。rst("Opis")是我感兴趣的备忘录字段：

Set db = New ADODB.Connection
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & T_BAZA & ";Persist Security Info=False"

Set rst = New ADODB.Recordset

SQL = "SELECT DISTINCT Opis FROM JadlospisSzczegoly WHERE Opis IS NOT NULL AND NazwaJadlospisu='" & LCase(Me.Combo3.Text) & "' AND Dzien=" & t_Dzien & " AND Posilek=" & t_Posilek
rst.Open SQL, db, adOpenStatic, adLockOptimistic, adCmdText

Do While Not rst.EOF
    Me.RichTextBox1.Text = Trim$(rst("Opis"))
    rst.MoveNext
Loop

关于如何解决这个问题的任何想法？

Answer 1

尝试GetChunk()方法：

Do While Not rst.EOF
    If rst.Fields("Opis").ActualSize > 0 Then
        Me.RichTextBox1.Text = rst.Fields("Opis").GetChunk(rst.fields("Opis").ActualSize)
    Else
        Me.RichTextBox1.Text = "n/a"
    End If
   rst.MoveNext
Loop