[액세스]VBA작성(조회/ADO개체) 정리

---

Me개체 속성

Filter

RecordSource

RecodsetClone

 

ADO개체

---

액세스 VBA 작성 ADO개체

 

 

컴퓨터 활용능력 1급 액세스 조회 섹션 중 ADO 개체 사용을 정리합니다.

 

액세스 VBA_ADO개체
문제	정답
<판매현황관리> 폼의 'txt판매번호' 컨트롤에 '판매번호'를 입력 후 'cmd제품정보찾기' 단추 클릭시, <제품정보> 폼 실행 <제품정보>폼의 '판매번호'가 'txt판매번호' 같은 제품의 정보 표시 ADO개체 이용	Private Sub cmd제품정보찾기_Click()   <1> Dim rs As ADODB.Recordset <2> Set rs = New ADODB.Recordset <3> Docmd.OpenForm "제품정보" <4> rs.ActiveConnection = CurrentProject.Connection <5> rs.Open "select * from 원본테이블 where 판매번호 = " & txt판매번호 <6> Forms!제품정보.txt판매번호 = rs!판매번호 Forms!제품정보.txt제품명 = rs!제품명   <7> rs.Close   End Sub
설명	<1> : rs를 ADO레코드 셋의 변수로 선언 <2> : rs에 임시로 저장할 레코드 셋 할당 <3> : <제품정보>폼을 엶 <4> : ActiveConnection : 지정한 개체에 현재 속해 있는 Connection 개체를 나타냄, 여기서는 rs레코드셋 의미 CurrentProject.Connection : 현재 데이터베이스의 ADO연결 복사본에 대한 참조 반환 <5> 원본테이블에서 조건에 맞는 레코드를 rs 레코드 셋에 할당 <6> rs에 할당된 레코드를 제품정보 폼의 컨트롤(txt판매번호, txt제품명)에 표시 <7> rs레코드셋을 닫음
<봉사내역> 폼의 'txt학번' 클릭시 학번이 'txt학번'과 같은 학생의 이름, 학과, 전화번호를 표시한 메시지 박스 표시 ADO개체 이용	Private Sub txt학번_Click() Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset rs.ActiveConnection = CurrentProject.Connection <1>rs.Open "Select * From 원본테이블 where 학번 = ' " & txt학번 & " ' " <2> MsgBox rs!이름 rs!학과 rs!연락처 rs.Close   End Sub
설명	<1> : 데이터 타입은 문자형 <2> : rs에 할당된 이름, 학과, 연락처를 MsgBox로 표시함

 

액세스_문자열 연결 방법
데이터 타입	형식
문자형 데이터	' " & 컨트롤명(문자형) & " ' "
숫자형 데이터	" & 컨트롤명(숫자형)
날짜형 데이터	# " & 컨트롤명(날짜형) & " # "