Excel VBA質問箱 IV

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

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


22629 / 76738 ←次へ | 前へ→

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

引用なし
パスワード
   「おさっち」と申します。
どうぞよろしくお願いいたします。

Excel2003のVBAマクロで、ODBCを経由でSQLite3のデータベースをアクセスしようとしています。
データベースには、EUCでエンコードされたデータが入っています。
Excelは文字データをUnicodeで管理しているので、そのままセルに書き込んだら文字化けしてしまいます、
EUC→Unicodeのコード変換が必要だということはわかったのですが、具体的な方法がわかりません。

とりあえずは、読むだけの以下のようなマクロを組んでいるのですが、文字化けしています。
どのようにすれば、文字化けを解消できるでしょうか?

文字化けせず読むことができたら、Unicode→EUCのコード変換を行った追加・更新もしたいと考えています。
こちらもよろしくお願いいたします。


Public Sub For_Question()

Dim cnDatabase As ADODB.Connection
Dim rs As New ADODB.Recordset
Dim m_Field As ADODB.Field

Dim i As Long, j As Long

Dim Sql As String
Dim cnt As String
 
cnt = "Driver=SQLite3 ODBC Driver; Database=C:\excel_sqlite3_test\test.db"
Set cnDatabase = New ADODB.Connection

cnDatabase.Open cnt

Worksheets("methodtbl").Select
Cells.Select
Selection.Clear
Cells(1, 1).Select

Sql = "SELECT * FROM methodtbl"

rs.Open Sql, cnDatabase, adOpenForwardOnly

'フィールド名表示
j = 1
For Each m_Field In rs.Fields

    Cells(1, j).Value = m_Field.Name
    
    j = j + 1
Next m_Field


'データ表示
i = 2

Do Until rs.EOF
 
  j = 1

  For Each m_Field In rs.Fields
 
    Cells(i, j).Select
    Cells(i, j).Value = "'" & m_Field.Value
      
    j = j + 1

  Next m_Field
 
  i = i + 1
 
  rs.MoveNext
Loop
  
  
rs.Close
Set rs = Nothing


End Sub

0 hits

【59487】EUC→Unicodeのコード変換 おさっち 08/12/13(土) 1:40 質問
【59488】Re:EUC→Unicodeのコード変換 おさっち 08/12/13(土) 8:45 発言
【59489】Re:EUC→Unicodeのコード変換 neptune 08/12/13(土) 9:49 発言
【59493】Re:EUC→Unicodeのコード変換 おさっち 08/12/13(土) 12:04 質問
【59494】Re:EUC→Unicodeのコード変換 おさっち 08/12/13(土) 17:30 発言
【59496】Re:EUC→Unicodeのコード変換 neptune 08/12/13(土) 20:18 発言
【59498】Re:EUC→Unicodeのコード変換 おさっち 08/12/13(土) 20:39 発言
【59500】Re:EUC→Unicodeのコード変換 neptune 08/12/13(土) 21:17 発言
【59501】Re:EUC→Unicodeのコード変換 neptune 08/12/13(土) 21:44 発言
【59503】Re:EUC→Unicodeのコード変換 kazuyoshikakihara 08/12/14(日) 10:34 回答
【59505】Re:EUC→Unicodeのコード変換 おさっち 08/12/14(日) 16:27 お礼

22629 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free