첫번째 조건 'cmb소매점코드' 에서 소매점코드를 선택하고 '조회' 버튼(cmd조회)을 클릭하면 <소매점2> 테이블에서 'cmb소매점코드'에 해당하는 레코드를 찾아 '소매점관리'폼에 표시하시오.
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
Dim rs As ADODB.Recordset
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.Update
rs.Close
rs.LockType = adLockOptimistic
이 들어가는 것일까요?
s.LockType = adLockOptimistic 이 들어가야 하는구나 라고 바로 알고 싶습니다.ㅜㅜㅜㅜ
안녕하세요. 길벗 수험서 운영팀입니다.
rs.curstortype=adopendynamic <-- 레코드의 수정, 삭제 내용 등이 적용된 내용을 모두 볼 수 있는 커서 유형으로 지정하는 것입니다.
rs.locktype=adlockoptimisitc <---- 잠금 유형을 지정하는데, 공유 잠금으로 지정합니다. 단 update 호출이 있을 경우는 잠그니다.
위와 같은 내용들은 ado를 이용한 수정이나 삭제 시 필요하므로 수정, 삭제 시에만 써준다고 생각하면 됩니다.
즐거운 하루 되세요.
-
*2012-05-10 09:32:51"
안녕하세요. 길벗 수험서 운영팀입니다.
rs.curstortype=adopendynamic <-- 레코드의 수정, 삭제 내용 등이 적용된 내용을 모두 볼 수 있는 커서 유형으로 지정하는 것입니다.
rs.locktype=adlockoptimisitc <---- 잠금 유형을 지정하는데, 공유 잠금으로 지정합니다. 단 update 호출이 있을 경우는 잠그니다.
위와 같은 내용들은 ado를 이용한 수정이나 삭제 시 필요하므로 수정, 삭제 시에만 써준다고 생각하면 됩니다.
즐거운 하루 되세요.