2016년_2회대비_컴활1급실기\15년3회1급E형\1급 E형 정답.accdb
2015년 3회 기출 액세스
pdf 5쪽, 12쪽
문제 4 처리 기능 구현
3. '창고정보' 폼의 하위 폼에 있는 'txt원자재' 컨트롤을 클릭하면 다음과 같은 기능 수행하도록 구현 하시오.
▶ 'txt원자재'에 표시된 '원자재' 개수를 표시한 메시지 박스를 표시할 것.
▶ Ado 개체를 이용할 것.
12쪽 정답
Private Sub txt원자재_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
With rs
.ActiveConnection = CurrentProject.Connection
.Open "select * from 제품 where 원자재= '" & txt원자재 & "'"
MsgBox [원자재] & "의 개수는 : " & CStr(rs.RecordCount)
.Close
End With
End Sub
질문1> 위 정답에서 CursorLocation = adUseClient는 무슨 뜻인가요?
질문2> 위 정답 CStr(rs.RecordCount) 에서 CStr은 무슨 뜻인가요?
감사합니다!
안녕하세요.
- rs.CursorLocation = adUseClient : CursorLocation(레코드의 현재 위치)는 기본적으로 Server(서버)에 위치하는데, 이를 Client(클라이언트)로 이동시키는 것입니다. CursorLocation을 Client로 설정해야 레코드의 개수를 정상적으로 표시할 수 있습니다. 그렇지 않으면 레코드 개수가 -1로 표시됩니다.
- CStr() 함수는 숫자를 문자로 변환하는 함수인데, 여기서는 생략하고 rs.RecordCount만 사용해도 결과는 동일합니다.
즐거운 하루 되세요.
-
*2016-08-22 10:51:18
안녕하세요.
- rs.CursorLocation = adUseClient : CursorLocation(레코드의 현재 위치)는 기본적으로 Server(서버)에 위치하는데, 이를 Client(클라이언트)로 이동시키는 것입니다. CursorLocation을 Client로 설정해야 레코드의 개수를 정상적으로 표시할 수 있습니다. 그렇지 않으면 레코드 개수가 -1로 표시됩니다.
- CStr() 함수는 숫자를 문자로 변환하는 함수인데, 여기서는 생략하고 rs.RecordCount만 사용해도 결과는 동일합니다.
즐거운 하루 되세요.