내가 공부하려고 만든 컴활 1급 데이터베이스 암기내용😎

출처를 미리 밝힌다. 

기풍 쌤 블로그에 게시된 내용을 그대로 따라 타이핑했다.

그래야 내가 더 잘 기억할 것 같아서,,

말 그대로 내가 공부하려고 게시하는 글이다. 

https://blog.naver.com/won2520179/221533212084

컴활1급실기 데이터베이스(엑세스)에서 반드시 외워야 할 부분을 정리해 놓았습니다. 참고해 주

 

---

SQL 구조

추가 :Insert into 테이블명 (필드명1,필드명 2, ...) values (값1,값2)

Docmd.RunSQL "insert into 비디오(비디오번호, 영화제목) values('V-20', '괴물')"

업데이트 : update 테이블명 set 필드명1=값1, 필드명2=값2, ... where 조건식

Docmd.RunSQL "update 비디오 set 영화제목 = '괴물2' where 비디오번호='V-2' "

삭제 : delete from 테이블명 where 조건식

Docmd.RunSQL "delete from 비디오 where 영화제목 = '괴물' "

---

조회작업 ( 4가지 모두 같은 결과를 낸다. 가장 흔한 건 Filter같다)

Me.RecordSetclone.Findfirst "조건"

Me.Bookmark = Me.RecrodSetClone.Bookmark

Me.RecordSetclone.Findfirst "비디오번호 = ' " & txt 검색 & " ' " Me.Bookmark=Me.RecordSetClone.Bookmark

 

Me.Filter = "조건"

Me.FilterOn=true

Me.Filter = "비디오번호 = ' " & txt검색 & " ' " MeFilterOn = true

 

Me.RecordSource = "select * from 테이블 where 조건"

Me.RecordSource = "select * from 테이블 where 비디오번호 = ' " & txt검색 & " ' "

 

DoCmd.ApplyFilter , "조건"

DoCmd.ApplyFilter , "비디오번호 = ' " & txt검색 & " ' "

 

---

출력처리 작업

DoCmd.OpenForm "폼이름",acNormal

DoCmd.OpenForm "학생",acNormal (학생 폼을 여시오)

DoCmd.OpenForm "폼이름", acNormal ,, "조건" DoCmd.OpenForm "폼이름" , acNormal ,, "학번 = ' " & txt학번 & " ' " (학번필드와 txt학번 컨트롤과 일치하는 학생폼을 여시오)

Docmd.OpenForm "폼이름" , acPreView,, "조건"

Docmd.OpenForm "학생" , acPreView ,, "학번 = ' " & txt학번 ' " ' (학번필드와 txt학번 컨트롤과 일치하는 학생폼을 인쇄미리보기로 여시오)

 

Docmd.OpenReport "보고서이름", acViewPreView

Docmd.OpenReport "학생" , acViewPreView (학생 보고서를 인쇄미리보기로 여시오)

 

Docmd.OpenReport "보고서이름", acViewPreview ,, "조건"

Docmd.OpenReport "학생", acViewPreview ,, "학번 = ' " & txt학번 " ' "

---

그 외 프로시저

1. OrderBy

Me.OrderBy = "점수 DESC" (오더바이이후 " " 로 묶어주는 것 잊지말자) Me.OrderByOn = True

 

2. GoToRecord, acNewRec , SetFocus

Private Sub Form_Load()   DoCmd.GoToRecord,, acNewRec   T기자재명.SetFocus End Sub 폼이 로드되면 폼에 새로운 레코드가 나타나며, T기자재명 컨트롤에 포커스가 위치하도록 하시오.

 

3.SetFocus, FontBold

Private Sub Form_Activate()   txt이름.SetFocus   txt이름.Font.Bold = True End Sub 폼이 활성화되면, txt이름에 포커스가 위치하고 글꼴스타일 굴게 설정하시오.

 

 

4. MsgBox

Private Sub cmd닫기_Click()   Dim a   a = MsgBox(Time & "작업을 종료할까요?" , vbYesNo, "")   if a =vbYes Then     DoCmd.Close   End if End Sub cmd닫기를 클리하면 메시지박스가 나타난다 (메시지 박스에는 시간이 포함됨) , 예 버튼을 클릭하면 창이 종료 된다.

 

5. Column

Private Sub Cmb학과명_BeforeUpdate(Cancel As Integer)   txt교수번호 = cmb학과명.Column(1) End Sub cmb학과명의 콤보상자에 특정값을 선택하면 txt교수번호에 cmb학과명의 두번째 값이 나타나도록 한다

 

Private Sub txt구매수량_BeforeUpdate(Cancel As Integer)   if txt구매수량 < =1 Then     MsgBox "1보다 큰 구매수량을 입력하세요." , vbOKOnly, ""   End if   구매금액 = 구매수량 * cmb제품명.Column(3) End Sub txt구매수량에 포커스가 위치할 때 txt 구매수량의 값이 1 이하이면 메시지 박스 등장 그렇지 않으면 cmb제품명 필드의 4번째 필드의 값을 찾아서 구매수량과 곱한다.