바코2://#17. 하위 개념 사용해보기(2)

* currentdb.execute~ 복습하기

1. 수정 코드

버저장_click() 에 수정 코드를 넣어봅시다.

 

저번 시간 처럼 이번에도 코드 확장을 보여주는 방식으로 진행해보겠습니다.

 

Q. 이렇게 하는 이유는 뭔가요? 순서대로 그냥 쭉 적으면 안되나요? 

A. 물론 순서대로 적는다고 문제가 될일은 없습니다. 하지만 이렇게 하는 이유는 점(.)이나 부호(')하나 차이로 에러를 뱉기때문에, 그 횟수를 줄이기 위해서라고 말씀드리겠습니다. 오류가 한 문장당 한번이면 1000개의 코딩을 하는데 1000번에 해당하는 시간과 수정을 거쳐야 하기때문에 그 피로도는 생산성과 연관이 있다는 점을 말씀드리고 싶습니다. 

(여담으로 1000개의 문장이 오버 같아 보이실 수 있겠지만...만들어 보시면 문장 1000개는 뭐....그냥 넘어갑니다.)

 

1. CurrentDb.Execute "", dbSeeChanges

: 틀만들기

2. CurrentDb.Execute "update set where", dbSeeChanges

: 업데이트 or 레코드 추가 or 삭제 결정

3. CurrentDb.Execute "update 고객담당자 set where id = " & ID & "", dbSeeChanges

: 테이블과 조건(조건이 없을 때도 있음) 결정

4. CurrentDb.Execute "update 고객담당자 set 고객id = " & 고객ID & ",담당자명 = '" & 담당자명 & "',담당자전화 = '" & 담당자전화 & "'  where id = " & ID & "", dbSeeChanges

: 필드명과 조건 삽입

5. 고객ID_AfterUpdate 삽입

: (초기화에 안묶은 이유)담당자 등록만 하고 닫는 창이므로, 현재 변경된 데이터만 바로 확인하는데 역할을 둠.

Private Sub 버저장_Click()
If Nz(ID, 0) = 0 Then

CurrentDb.Execute "insert into 고객담당자(고객ID,담당자명,담당자전화) values(" & 고객ID & ",'" & 담당자명 & "','" & 담당자전화 & "')", dbSeeChanges
Else
CurrentDb.Execute "update 고객담당자 set 고객id = " & 고객ID & ",담당자명 = '" & 담당자명 & "',담당자전화 = '" & 담당자전화 & "'  where id = " & ID & "", dbSeeChanges
End If

고객ID_AfterUpdate
버초기화_Click
End Sub

2. 삭제 코드

1. CurrentDb.Execute "", dbSeeChanges

2. CurrentDb.Execute "Delete * from where ", dbSeeChanges

3. CurrentDb.Execute "Delete * from 고객담당자 where ID = " & ID & "", dbSeeChanges

Private Sub 버삭제_Click()
If Nz(ID, 0) = 0 Then
Exit Sub
Else

CurrentDb.Execute "Delete * from 고객담당자 where ID = " & ID & "", dbSeeChanges
End If


고객ID_AfterUpdate
버초기화_Click
End Sub

업체 처음처럼에  dd로 대강 테스트 데이터를 넣고, 리스트에 읽힘 그리고 삭제를 테스트 해봅니다.

잘 읽히네요. 다음은 삭제

dd로 만들었던 데이터가 말끔하게 삭제됐습니다.

 

[이전 글]: 바코2://#16. 하위 개념 사용해보기

[다음 글]: 바코2://#18. 하위 개념 사용해보기(3)