시나공

시험에

나오는 것만

공부한다!

책 164페이지에는 없고 토막강의에만 있는 내용입니다.

강의 내용중 ADODB를 이용한 조회중 아래와 같이 코드를 모두 입력하고 폼보기에서 실행하고자 하는데 에러가 나서 강의에서 처럼 도구에서 참조를 실행하여 db를 연결하려 하는데 참조가 활성화가 안됩니다.(첨부그림참조).

코드는 아래와 같이 작성하였습니다/.

Private Sub cmd제품정보찾기_Click()

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

DoCmd.OpenForm "제품정보"

rs.ActiveConnection = CurrentProject.Connection

rs.Open "select * from 제품별판매현황 where 판매번호= " & txt판매번호

Forms!제품정보.txt판매번호 = rs!판매번호

Forms!제품정보.txt제품명 = rs!제품명

Forms!제품정보.txt판매량 = rs!판매량

Forms!제품정보.txt불량품 = rs!불량품

Forms!제품정보.txt단가 = rs!단가

Forms!제품정보.txt제품명 = rs!제품명

Forms!제품정보.txt거래처명 = rs!거래처명

Forms!제품정보.txt거래처등급 = rs!거래처등급

rs.Close

End Sub

왜 안되는지 원인을 알려주시요