ADO rs.recordcount = -1 일때...

sql = "EXEC sp_board_list " & table_name & ", " & menu_no
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.CursorLocation = 3 <--
Rs.CursorType = 3
Rs.LockType = 3
Rs.Open sql, oConn
response.write
Rs.recordcount
저장프로시저를 날려 실행시키는데..
게시판으로 쓸꺼다보니 페이징처리를 위해 레코드셋으로 만들었음에도
recordcount 가 안되더라는 -ㅅ-;;
찾은 결과;;
커서로케이션을 adUseClient 로 해주라면
RecordCounter가 -1로 되는것이 해결됩니다.

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