시나공

시험에

나오는 것만

공부한다!

소매점관리 폼의 조회 버튼(cmd조회)과 수정 버튼(cmd수정)을 클릭할 때 다음과 같은 기능을 수행하도록 이벤트 프로시저를 구현하시오.(10점)

cmb소매점코드에서 소매점코드를 선택하고 조회 버튼(cmd조회)을 클릭하면 <소매점2> 테이블에서 cmb소매점코드에

해당하는 레코드를 찾아 소매점관리 폼에 표시하시오.

수정 버튼(cmd수정)을 클릭하면 <소매점2> 테이블에서 cmb소매점코드에 해당하는 레코드를 찾아 소매점관리 폼에 있는 데이터로 수정하시오.

Ado 개체를 이용하시오.

Private Sub cmd조회_Click()

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

rs.ActiveConnection = CurrentProject.Connection

rs.Open "select * from 소매점2 where 소매점코드 = '" & cmb소매점코드 & "'"

txt소매점명 = rs!소매점명

txt연락처 = rs!연락처

txt평균매출액 = rs!평균매출액

txt등급 = rs!등급

rs.Close

End Sub

Private Sub cmd수정_Click()

Set rs = New ADODB.Recordset

rs.ActiveConnection = CurrentProject.Connection

rs.CursorType = adOpenDynamic

rs.LockType = adLockOptimistic

rs.Open "select * from 소매점2 where 소매점코드 = '" & cmb소매점코드 & "'"

rs!소매점명 = txt소매점명

rs!연락처 = txt연락처

rs!평균매출액 = txt평균매출액

rs!등급 = txt등급

rs.Update

rs.Close

End Sub

왜 수정에서는 Dim rs As ADODB.Recordset 이거 왜 안쓰나요?

그리고 조회에 txt소매점명 = rs!소매점명 으로 쓰고

수정에서는 rs!소매점명 = txt소매점명이라고 뒤 바꾸어서 쓰나요? 문장에 무엇때문에요?