문제3-1-4.
txt이익금 컨트롤 계산시 반드시 (, ) 와 같은 괄호를 반드시 작성해야 하나요?
괄호를 쓰지 않을시 오답으로 나옵니다.
문제4-1.
해설에서는 docmd 구문을 사용하여서 문제를 풀었는데요.
만약 ado 개체를 이용한다면 어떻게 작성해야 하는지 알려주세요.
안녕하세요.
1. 괄호를 사용하지 않아도 결과값에는 영향을 주지 않으므로 생략해도 상관 없습니다. 저희 채점 프로그램은 정답과 비교하여 조금이라도 다르면 틀린 것으로 채점됩니다.
2. 아래와 같이 작성하면 됩니다.
Private Sub cmd확인_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.ActiveConnection = CurrentProject.Connection
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
rs.Open "select * from 소속지점"
rs.AddNew
rs!소속지점코드 = Me.txt소속지점코드
rs!지점명 = Me.txt지점명
rs!대표자명 = Me.txt대표자명
rs!전화번호 = Me.txt전화번호
rs.Update
rs.Close
End Sub
참고로 위와 같이 작성했는데도 실행이 안된다면 코드를 작성하는 비주얼 베이직 편집기에서 [도구]-[편집]을 선택한 후 'Microsoft ActiveX Data Objects 2.0 Library'를 선택해 준 후 실행하세요.
즐거운 하루 되세요.
"-
*2013-01-17 09:56:02
안녕하세요.
1. 괄호를 사용하지 않아도 결과값에는 영향을 주지 않으므로 생략해도 상관 없습니다. 저희 채점 프로그램은 정답과 비교하여 조금이라도 다르면 틀린 것으로 채점됩니다.
2. 아래와 같이 작성하면 됩니다.
Private Sub cmd확인_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.ActiveConnection = CurrentProject.Connection
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
rs.Open "select * from 소속지점"
rs.AddNew
rs!소속지점코드 = Me.txt소속지점코드
rs!지점명 = Me.txt지점명
rs!대표자명 = Me.txt대표자명
rs!전화번호 = Me.txt전화번호
rs.Update
rs.Close
End Sub참고로 위와 같이 작성했는데도 실행이 안된다면 코드를 작성하는 비주얼 베이직 편집기에서 [도구]-[편집]을 선택한 후 'Microsoft ActiveX Data Objects 2.0 Library'를 선택해 준 후 실행하세요.
즐거운 하루 되세요.
"