Как использовать Excel VBA для извлечения Memo поля из базы данных Access?

У меня есть таблица Excel. Я подключаюсь к базе данных Access через ODBC. Что-то в этом роде:

Set dbEng = CreateObject("DAO.DBEngine.40")
Set oWspc = dbEng.CreateWorkspace("ODBCWspc", "", "", dbUseODBC)
Set oConn = oWspc.OpenConnection("Connection", , True, "ODBC;DSN=CLIENTDB;")

Затем я использую запрос и получаю набор результатов, чтобы получить некоторые данные таблицы.

Set oQuery = oConn.CreateQueryDef("tmpQuery")
oQuery.Sql = "SELECT idField, memoField FROM myTable"
Set oRs = oQuery.OpenRecordset

Проблема сейчас возникает. Мое поле - dbMemo, потому что максимальная длина контента - до нескольких сотен символов. Это не так долго, и фактически ценность, которую я читаю, составляет всего дюжину символов. Но Excel просто не в состоянии обработать содержимое поля Memo вообще. Мой код...

ActiveCell = oRs.Fields("memoField")

... выдает ошибку Run-error '3146': ODBC- сбой вызова.

Какие-либо предложения? Может ли Excel VBA на самом деле получить данные памятного поля? Или это просто совершенно невозможно. Я получаю точно такую ​​же ошибку и от GetChunk.

ActiveCell = oRs.Fields("memoField").GetChunk(0, 2)

... также выдает ошибку Runtime error '3146': ODBC- сбой вызова.

Преобразование в текстовое поле делает все работает нормально. Однако некоторые данные, конечно, усекаются до 255 символов, что означает, что это нереализуемое решение.

Источник

1 ответ

  • Пытаться Range.CopyFromRecordset чтобы увидеть, работает ли это.
  • Попробуйте использовать CStr(oRs.Fields("memoField")) и назначить Value2 из Range/ActiveCell,
  • Попробуйте сделать памятное поле последним физическим столбцом в таблице. Памятное поле читается только при получении. Возникла / может еще быть проблема с мемо-полями, которые физически не находятся в конце таблицы.

Все, что я могу думать прямо сейчас.

Источник
Другие вопросы по тегам