2007년 8월 24일 금요일

mysql 데이터를 ODBC로 가져올때 한글 깨짐현상 해결

Mysql 에서 ODBC를 이용하여 Excel에 한글 데이터를 가져올때
한글이 ???? 로 깨짐현상이 발생할때


'데이터 가져오기

Sub getDB()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Dim i As Integer


Sheets("가져오기").Select
conn.Open ("DSN=log_banwol")

conn.Execute ("set names euckr") <-추가하여 문제를 해결했습니다.
sql = "select * from ls_2 where ls_bDate='" & strbDate & "'"
rs.CursorLocation = adUseClient
rs.CursorType = 3
rs.LockType = 3
rs.Open sql, conn

'데이터가 있으면 가져오기

If Not rs.EOF Then
'mysql 한글데이터 필드 shift1,2,3,4
Cells(14, 14) = rs.Fields("shift1").Value
Cells(14, 16) = rs.Fields("shift2").Value
Cells(14, 18) = rs.Fields("shift3").Value
Cells(14, 20) = rs.Fields("shift4").Value

End If

rs.Closeconn.Close
End Sub

댓글 없음: