|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): 2016
* 아래줄에 질문을 작성하세요 >>
안녕하세요 데이터 마이닝 비슷하게 vba를 이용해 만들어보는 중인데요,,
엑셀 시트에서는 분명 숫자형식인데 ADODB에서 SQL문으로 조회를 해서 결과를 출력하면 '텍스트 형식의 숫자'로 출력이 되네요.
이것때문에 WHERE절에서 검색이 안되요!! 여러분의 도움이 필요합니다
코드 ====================================
strConn = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" _
& ThisWorkbook.Path & "\" & ActiveWorkbook.Name & ";" _
& "Extended Properties=Excel 12.0;"
strSQL = "SELECT 기관경쟁률,PER,PBR,PSR FROM [DB$]"
rs.Open strSQL, strConn, adOpenForwardOnly, adLockReadOnly, adCmdText
' 데이터 출력
If rs.EOF Then
MsgBox "조회 조건에 해당하는 자료가 없습니다."
Else
For i = 1 To rs.Fields.Count
Sheets("Sheet1").Range("A1").Offset(0, i - 1).Value = rs.Fields(i - 1).Name
Next
Sheets("Sheet1").Range("A2").CopyFromRecordset rs
End If
rs.Close
Set rs = Nothing
======================================================== |
|