시나공

시험에

나오는 것만

공부한다!

레코드 추가 이벤트 프로시저를 Ado 개체를 이용하여 작성하는 방법을 알려주세요.

질문 이유> 교재에 조회, 수정, 삭제에 대한 Ado 개체를 이용한 프로시저 작성법은 나와있는데,

레코들를 추가하는 방법은 없고, 인터넷에 조회 해봐도 소스가 안보여서,

Ado 개체를 이용한 레코드 추가 방법을 문의 하는 것입니다.

소스만 알려주시면 될거 같은데,

굳이 제가 작성한 것을 올려야 답변을 하겠다고 하시니까,

억지로 만들어서 올립니다.

Private Sub cmd추가_Click()
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"

rs!소매점코드 = cmb소매점코드

rs!소매점명 = txt소매점명
rs!연락처 = txt연락처
rs!평균매출액 = txt평균매출액
rs!등급 = txt등급
rs.Add
rs.Close
End Sub

감사합니다.

아래는 지난번 질문입니다....

-------------------------------------------

[2015] 컴퓨터활용능력 1급 실기

C:\길벗컴활1급\02 액세스\04 실전모의고사\1급B형 정답.accdb

레코드 추가 이벤트 프로시저를 Ado 개체를 이용하여 작성하는 방법응 알려주세요.

액세스 실전모의고사 434쪽

문제2

02. 추가 버튼에 클릭기능구현하기

정답

Private Sub cmd추가_Click()
DoCmd.RunSQL "insert into 소매점2(소매점코드, 소매점명, 연락처, 등급, 평균매출액) values(cmb소매점코드, txt소매점명, txt연락처, txt등급, txt평균매출액)"
cmb소매점코드 = ""
txt소매점명 = ""
txt연락처 = ""
txt등급 = ""
txt평균매출액 = ""
End Sub

질문> 위 정답에서 레코드 추가를 DoCmd 개체와 메서드를 이용했는데,

아도(Ado) 개체를 이용하여 작성하는 방법 좀 알려주세요.

감사합니다.