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
댓글 없음:
댓글 쓰기