책 내용 질문하기
ADO개체
도서
[2012] 컴퓨터활용능력 1급 실기(엑셀, 액세스 2007 사용자용)
페이지
417
조회수
166
작성일
2012-11-10
작성자
첨부파일
아 이거 미치겠네요 정말... ADO...
p416 2.소매점관리 폼의 삭제 버튼~
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.Delete
rs.Close
이대로 했는데 실행 안된다네요 ... 어디가 잘못된거지
그리고 p417 1.소매점관리 폼의 조회 버튼~
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.ActiveConnection = CurrentProject.Connection
rs.Open "select * from 소매점2 where 소매점코드='" & cmb소매점코드 & "'"
rs!소매점코드 = cmb소매점코드
rs!소매점명 = txt소매점명
rs!연락처 = txt연락처
rs!등급 = txt등급
rs!평균매출액 = txt평균매출액
rs.close
왜 이게 아니고
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.ActiveConnection = CurrentProject.Connection
rs.Open "select * from 소매점2 where 소매점코드='" & cmb소매점코드 & "'"
rs!소매점명 = txt소매점명
rs!연락처 = txt연락처
rs!등급 = txt등급
rs!평균매출액 = txt평균매출액 왜 위에처럼 했냐면 소매점 테이블 보고 그렇게 쓴거거든요??
rs.close 그리고 빨간거 순서는 상관없죠?? 그리고 왜 소매점코드는 빠지는지.
또 p417 소매점관리 폼의 수정버튼~~
Set rs = New ADODB.Recordset
rs.ActiveConnection = CurrentProject.Connection
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
rs.Open "select * from 소매점2 where 소매점코드='" & cmb소매점코드 & "'"
rs!소매점코드 = cmb소매점코드
rs!소매점명 = txt소매점명
rs!연락처 = txt연락처 이건 위에서 질문 드렸습니다.
rs!등급 = txt등급
rs!평균매출액 = txt평균매출액
rs.Update
rs.Close
답이 이건데 왜 처음이 Dim rs As ADODB.Recordset이 아니고
Set~부터 시작하죠?? 그리고 cusortype랑 locktype은 조회에서는 안썼는데 왜 갑 자기 생겼는지...
답변
2012-11-13 09:40:20
안녕하세요.
1. 님의 코드를 복사하여 실행해 보았는데 정상적으로 실행이 됩니다. 폼을 실행한 후 소매점코드에서 특정 값을 선택하여 <삭제>를 클릭하세요. 그러면 화면에는 아무런 변화가 없지만 '소매점2' 테이블을 열어서 해당 소매점코드를 찾아보면 삭제되서 보이지 않습니다.
2. 소매점코드를 사용자가 선택하면 해당 소매점코드를 폼에 표시하는 것으로, 소매점코드에는 이미 코드가 선택되어 있으므로 또 넣지 않은 것입니다. 순서는 상관 없습니다.
3. 생략한 것입니다.
즐거운 하루 되세요.
"-
*2012-11-13 09:40:20
안녕하세요.
1. 님의 코드를 복사하여 실행해 보았는데 정상적으로 실행이 됩니다. 폼을 실행한 후 소매점코드에서 특정 값을 선택하여 <삭제>를 클릭하세요. 그러면 화면에는 아무런 변화가 없지만 '소매점2' 테이블을 열어서 해당 소매점코드를 찾아보면 삭제되서 보이지 않습니다.
2. 소매점코드를 사용자가 선택하면 해당 소매점코드를 폼에 표시하는 것으로, 소매점코드에는 이미 코드가 선택되어 있으므로 또 넣지 않은 것입니다. 순서는 상관 없습니다.
3. 생략한 것입니다.
즐거운 하루 되세요.
"