개인? Sub? BEG_Click ()
타이머 1. 활성화? =? 진짜
만약? 구하다. 제목? =? 추첨 시작'? 그리고 나서
구하다. 제목? =? "중지"
기타
구하다. 제목? =? 추첨 시작
타이머 1. 활성화? =? 잘못된
끝? 만약
끝? 잠수함
개인? Sub? ADD_Click ()
암담한가? STR? 로? 선
STR? =? InputBox ("추가할 이름 입력")
암담한가? 콘? 로? 새 것? ADODB 입니다. 관계
암담한가? Rs? 로? 새 것? ADODB 입니다. 레코드 세트
암담한가? Str 1? 로? 선
암담한가? Str2? 로? 선
암담한가? Str3? 로? 선
Str 1? =? "공급업체 = Microsoft. Jet. OLEDB.4.0 "을 참조하십시오
Str2? =? "데이터? Source=C:\Documents? 그리고는요. \ 관리자 \ 데스크톱 \DB2 를 설정합니다. MDB' 로 이동합니다
Str3? =? "제트기? OLEDB: 데이터베이스? 암호 = "
통제실. 열어요? Str 1? & amp? Str2? & amp? Str3
StrSQL? =? "선택? *? 어디서 왔어요? 표 1? "
Rs. 오픈? StrSQL,? 콘? 3,? 셋；삼；3
Rs. 새 컨텐츠 추가
Rs! 이름? =? 힘 값
Rs. 업데이트
Rs. 닫기
통제실을 닫다
끝? 잠수함
개인? Sub? Form_Load ()
타이머 1. 활성화? =? 잘못된
암담한가? 콘? 로? 새 것? ADODB 입니다. 관계
암담한가? Rs? 로? 새 것? ADODB 입니다. 레코드 세트
암담한가? Str 1? 로? 선
암담한가? Str2? 로? 선
암담한가? Str3? 로? 선
Str 1? =? "공급업체 = Microsoft. Jet. OLEDB.4.0 "을 참조하십시오
Str2? =? "데이터? Source=C:\Documents? 그리고는요. \ 관리자 \ 데스크톱 \DB2 를 설정합니다. MDB' 로 이동합니다
Str3? =? "제트기? OLEDB: 데이터베이스? 암호 = "
통제실. 열어요? Str 1? & amp? Str2? & amp? Str3
StrSQL? =? "선택? *? 어디서 왔어요? 표 1? "
Rs. 오픈? StrSQL,? 콘? 3,? 셋；삼；3
팀? =? Rs. 레코드 수
Rs. 닫기
뭐 때문에? 나? =? 1? 어디 가? 투과 전자 현미경
StrSQL? =? "선택? *? 어디서 왔어요? 표 1? 어디 있어? 번호 = "? & amp? 나? & amp? " ""
Rs. 오픈? StrSQL,? 콘? 3,? 셋；삼；3
레딤? 저장? A(0? 어디 가? 나)
갑 (나)? =? Rs! 이름
Rs. 닫기
다음? 나
통제실을 닫다
끝? 잠수함
개인? Sub? 타이머 1 _ 타이머 ()
정전기? J? 로? 정수
텍스트1. 문자? =? 아 (j)
J? =? J? +? 1
만약? J? =? UBound(A)? 그리고 나서
J? =? 1
끝? 만약
끝? 잠수함
코드를 실행하고 실행합니다. 이제 데스크톱에 DB2 라는 데이터베이스와 "이름" 필드를 설정했습니다.