Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

22610 / 76732

←次へ　｜　前へ→


	【59500】Re:EUC→Unicodeのコード変換

neptune - 08/12/13(土) 21:17 -


	引用なし

	パスワード

▼おさっちさん：
こんにちは
MSDN見ながらテストコード書いてみました。
recordset取得後ちょっと入れてみて下さい。

'多分１行だけ表示（未テスト）
Public Sub ShowDatas(ByRef pRs As ADODB.Recordset)
　　Dim stm As ADODB.Stream
　　Dim rc As ADODB.Record
　　Dim sBuf As String
　　
　　Set rc = New ADODB.Record
　　'カレントレコードを取得
　　rc.Open pRs
　　
　　Set stm = New ADODB.Stream
　　With stm
　　　　.Charset = "EUC-JP"
　　　　.Type = adTypeText
　　　　.Open rc, adModeRead, adOpenStreamFromRecord
　　　　.ReadText
　　End With
　　Debug.Print sBuf
　　
　　stm.Close
　　Set stm = Nothing
　　rc.Close
　　Set rc = Nothing
End Sub

1 hits

▼

【59487】EUC→Unicodeのコード変換 おさっち 08/12/13(土) 1:40