검색어 입력폼

[비쥬얼베이직] VB-학생 정보 시스템

등록일 2004.06.29 한글파일한컴오피스 (hwp) | 6페이지 | 가격 700원

목차

없음

본문내용

Public Sub initcombo() '콤보 박스의 과목명을 선택시
Set rs3 = db.OpenRecordset("Course", dbOpenSnapshot)
Combo1.Clear
Combo1.AddItem "과목명"
If rs3.RecordCount > 0 Then
While Not rs3.EOF
Combo1.AddItem rs3.Fields(1)
rs3.MoveNext
Wend
End If
rs3.Close
Combo1.ListIndex = 0
End Sub

참고 자료

없음
다운로드 맨위로