VBからのDAOでメモ型へのアクセス

質問

Access2000でメモ型を含むテーブルを作成し、ＶＢからアクセスします。
テーブルへの書込みはサイズに関係なく（２５７バイト以上も）問題なく出来ます。２５７バイト以上の文字列を書き込んだ後Accessで直接テーブルの内容を確認すると、正常に書き込まれています。
が、257バイト以上の文字列の読み込みを行うと255バイトで切れてしまいます。
テキスト型は２５５バイトまでで、メモ型は６５５３４バイトまでと思っていたのですが違いますか？
違っているとしたら、６００００バイトは必要ありませんが１０００文字（２０００バイト）くらいは使いたいと思っていますので、フィールドの型と、ＶＢからのアクセスの方法を教えてください。

回答No.2

ARC

ん～、何でしょうねぇ。
手元のVB5 + DAO3.6 + Access2000の環境では正しく取得できてるんですが…

一旦単純にメモ型フィールドを読み取るだけの、最小限のプロジェクトを新規で作ってみたら、どこに問題があるのかが見えてくるかもしれませんね。

ちなみに、Access2000のメモ型は、最大２Gバイトだったはずです。

以下、テストに使用したソースです。

Private Sub Command1_Click()
　Dim db As DAO.Database
　Dim RST As DAO.Recordset
　Dim memo As String

　Set db = DAO.OpenDatabase("db5.mdb")
　Set RST = db.OpenRecordset("MEMO", dbOpenDynaset)
　RST.MoveFirst
　memo = RST.Fields![memo]
　Debug.Print memo
End Sub

回答No.1

chupark

ひょっとしてVBの側で定義されている変数の型等に問題はありませんか？
　…自信はありませんが^^;

補足

OpenRecordset を実行した直後に Recordset の中身を直接確認した結果です。ＶＢ側の定義は関係ありません。