엑세스 부록책의 254페이지에서 문제4의 3번
Ado 개체 이용문제에서
Dim i As ADODB.Recordset
Set i = New ADODB.Recordset
i.Open "select*from 제품 where 원자재 = '" & txt원자재 & "'", CurrentProject.Connection
MsgBox i("원자재") & "의 개수는 : " & i.RecordCount
라고 작성을 하면 메세지박스의 개수부분만 -1로 나옵니다. 마지막 부분만 수정하면 될 것 같은데
어떻게 수정해야하나요?
안녕하세요.
폼이 실행된 상태에서 어떤 컨트롤을 클릭하냐에 따라 값이 달라져야 하는 경우에는 'rs.cursorLocation = adUseClient를 사용해야 합니다.
rs.CursorLocation = adUseClient : CursorLocation(레코드의 현재 위치)는 기본적으로 Server(서버)에 위치하는데,
이를 Client(클라이언트)로 이동시키는 것입니다.
CursorLocation을 Client로 설정해야 레코드의 개수를 정상적으로 표시할 수 있습니다.
그렇지 않으면 레코드 개수가 -1로 표시됩니다.
교재 답처럼 다음 코드를 포함시켜 주셔야 합니다.
i.cursorLocation = adUseClien
i.ActiveConnection = CurrentProject.Connection
오늘도 좋은 하루 보내세요,
-
*2018-09-11 21:18:08
안녕하세요.
폼이 실행된 상태에서 어떤 컨트롤을 클릭하냐에 따라 값이 달라져야 하는 경우에는 'rs.cursorLocation = adUseClient를 사용해야 합니다.
rs.CursorLocation = adUseClient : CursorLocation(레코드의 현재 위치)는 기본적으로 Server(서버)에 위치하는데,
이를 Client(클라이언트)로 이동시키는 것입니다.
CursorLocation을 Client로 설정해야 레코드의 개수를 정상적으로 표시할 수 있습니다.
그렇지 않으면 레코드 개수가 -1로 표시됩니다.
교재 답처럼 다음 코드를 포함시켜 주셔야 합니다.
i.cursorLocation = adUseClien
i.ActiveConnection = CurrentProject.Connection
오늘도 좋은 하루 보내세요,