Question

长话短说，我正在将一堆数据从数据仓库中拉到本地Access DB中。在展示我对第一个源数据集所做的工作之前，我将发布代码。其余数据集使用相同的概念提取。

本地表是预定义的，有问题的文本字段是本地数据库中的“ memo”字段。我检查了一下，加载到数据仓库中的源数据没有截断这些字段。另外，我能够通过其他应用程序导出数据，而不会截断这些字段。因此，当我将数据从数据仓库导入本地访问数据库时，会发生某些事情。

这是我的代码（非常简单）的相关摘录。我只是匹配字段名称，并使用recordset .value属性将数据从服务器复制到本地表。

有什么想法吗？

Dim db As DAO.Database
Set db = CurrentDb

Dim conn As ADODB.Connection
Set conn = New ADODB.Connection

Dim rsServer As ADODB.Recordset
Set rsServer = New ADODB.Recordset

Dim rsLocal As Recordset
Dim fField As ADODB.Field

'Open Connection
With conn
    .ConnectionString = dataConnectionString
    .Open
End With

'*****************************
'*******Data set 1 data*******
'*****************************

'Open server DSET_1_SOURCE_DATA table
Set rsServer = conn.Execute(SQL_DSET1_SERVER)

'Open local DSET_1_LOCAL_DATA table
Set rsLocal = db.OpenRecordset(SQL_DSET1_LOCAL)

'DELETE ALL RECORDS FROM LOCAL TABLE
DoCmd.SetWarnings False
DoCmd.RunSQL ("DELETE * FROM DSET_1_LOCAL_DATA")
DoCmd.SetWarnings True

rsServer.MoveFirst

Do Until rsServer.EOF
    rsLocal.AddNew

    For Each fField In rsServer.Fields
        rsLocal.Fields(fField.Name).Value = rsServer.Fields(fField.Name).Value
    Next

    recordCount = recordCount + 1
    rsLocal.Update
    rsServer.MoveNext
Loop

Answer 1

也许您应该尝试将此代码用于MEMO字段

rsLocal.Fields(fField.Name).AppendChunk(rsServer.Fields(fField.Name).GetChunk(rsServer.Fields(fField.Name).ActualSize))

从服务器和本地记录集复制（Access VBA）-255个字符后的字段会截断吗？

1 个答案: