Private Sub txt학번_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
With rs
.activeconnection = CurrentProject.Connection
.Open "select * from 재학생 where 학번='" & txt학번 & "'"
MsgBox [이름] & "/" & [학과] & "/" & [연락처]
.Close
End With
End Sub
문제 해설에 있는 그대로 작성했는데
실행해보니 "컴파일 오류입니다 사용자 정의 형식이 정의되지 않았습니다"이런 오류 메세지박스가 떠서요
뭐가 잘못됐는지해서요 ! ㅠㅠ
안녕하세요.
코드에는 이상이 없습니다. [alt]+[f11]를 눌러 비주얼 베이직 편집 화면에서 [도구]-[참조]를 선택한 후 '참조' 대화상자에서 Microsoft ActiveX Data Objects 2.0 Library 를 체크 표시한 후 <확인>을 클릭해 주세요. 숫자 부분(2.0)은 버전을 어떤 것으로 하든 상관 없습니다.
즐거운 하루 되세요.
-
*2016-03-09 10:12:43
안녕하세요.
코드에는 이상이 없습니다. [alt]+[f11]를 눌러 비주얼 베이직 편집 화면에서 [도구]-[참조]를 선택한 후 '참조' 대화상자에서 Microsoft ActiveX Data Objects 2.0 Library 를 체크 표시한 후 <확인>을 클릭해 주세요. 숫자 부분(2.0)은 버전을 어떤 것으로 하든 상관 없습니다.
즐거운 하루 되세요.