시나공

시험에

나오는 것만

공부한다!

ADO(ActiveX Data Objects)를 사용하면 OLE DB 공급자를 통해, 데이터베이스 서버에 있는 데이터에 액세스하여 조작할 수 있는 응용 프로그램을 작성할 수 있습니다. 여기서는 ado 개체의 개념보다는 사용하는 형식만을 익혀두시기 바랍니다.

Private Sub txt학번_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.ActiveConnection = CurrentProject.Connection
rs.Open "select * from 재학생 where 학번='" & txt학번 & "'"
MsgBox rs!이름 & "/" & rs!학과 & "/" & rs!연락처
rs.Close
End Sub

1. dim rs as ADODB.recordset

2. set rs = New ADODB.recordset

3. with rs

4. .Active connection = currentproject.connection

5. .open "select * from 재학생 where 학번 = '" & txt학번 & "'"

6. msgbox [이름] & "/" & [학과] & "/" & [연락처]

7. .close

8. end with

1. rs를 ado 레코드 셋의 변수로 선언합니다. 레코드 셋은 기본 테이블이나 명령 실행 결과로 얻어진 데이터를 임시로 저장해 두는 레크드 집합입니다.

2. rs에 임시로 저장한 레코드 셋을 할당합니다.

3. with문의 시작입니다.

4. rs라는 레크드 셋에 현재 데이터 베이스를 연결합니다.

. Activeconnection : 지정한 개체에 현재 속해 있는 connection 개체를 나타내는 것으로, 여기서는 rs레코드셋을 의미합니다.

. currentproject.connection : 현재 데이터베이스의 ado 연결 복사본에 대한 참조를 반환합니다.

5. 재학생 테이블에서 학번이 현재 txt학번 컨트롤에 입력된 값과 동일한 레코드를 rs 레코드셋에 할당합니다.

6. 메시지 박스에 이름, 학번, 연락처를 표시합니다.

7. rs 레코드 셋을 닫습니다.

8. with문의 끝입니다.

좋은 하루 되세요.