시나공

시험에

나오는 것만

공부한다!

p.302
폼이 실행된 상태에서 어떤 컨트롤을 클릭하냐에 따라 값이 달라져야 하는 경우에는 'rs.cursorLocation = adUseClient를 사용한다고 보시면 됩니다.

rs.CursorLocation = adUseClient : CursorLocation(레코드의 현재 위치)는 기본적으로 Server(서버)에 위치하는데,
이를 Client(클라이언트)로 이동시키는 것입니다.

CursorLocation을 Client로 설정해야 레코드의 개수를 정상적으로 표시할 수 있습니다.

그렇지 않으면 레코드 개수가 -1로 표시됩니다.

첨부해주신 파일은 사용 가능한 참조를 추가해 주셔야 ADO를 사용하실 수 있습니다.
액세스가 실행되어 있는 상태에서 설정해주시며 작동됩니다.

1. [Alt]+[F11]을 눌러 Microsoft Visual Basic Editor를 실행하세요.

2. [도구] - [참조]를 선택하세요.

3. '참조' 대화상자의 '사용 가능한 참조' 항목에서

'Microsoft ActiveX Data Objects ~~~ Library' 라는 이름의 항목 중 하나를 체크한 후 <확인>을 클릭하세요.

첨부파일의 코드에도 오류가 있습니다.(빨간색 부분을 아래 코드로 바꿔주세요. Select와 * 사이는 한 칸씩 띄어주세요.)

5줄 : rs.Open "select * from 운행관리 where 행선지= '" & txt행선지 & "'"

6줄 : MsgBox "행선지가" & [행선지] & "인 개수는 : " & rs.RecordCount

RecordCount로 개수를 구해주세요.

적어주신

MsgBox "행선지가" & [행선지] & "인 개수는 : ", vaokonly, "행선지='" & txt행선지 & "'"

형태로 입력하면 개수가 구해지지 않고, 메시지박스 이름에 "행선지='전주'"가 표시됩니다.

물론 vaokonly를 vbokonly로 변경해주셨을 경우입니다.(오타 수정안하시면 디버그화면이 나옵니다.)

마지막 질문은 '필터 이름'이 잘 이해가 가지 않습니다. 자세히 질문 부탁드립니다.

좋은 하루 보내세요.

라고 답변해주셔서 그대로 했는데 ㅠㅠㅠ 오류나네요 ㅠㅠㅠ 다른게 필요하다고 ㅠㅠㅠ