none
엑세스 로 DB연동 완료 했는데 어떻게 데이터를 추가하는지요..ㅜㅜ RRS feed

  • 질문

  • Dim adoCon            As ADODB.Connection
    Dim rs                As ADODB.Recordset
    Dim sSql              As String
    Dim iRe               As Integer
    Dim iRow, iCol        As Integer
    Dim insertMode        As Boolean    

    ========

    If txtDeptCode.Text = "" Then
            MsgBox "부서코드는 필수 입력사항입니다."
            txtDeptCode.SetFocus
            Exit Sub
        End If
       
        If txtDeptName.Text = "" Then
            MsgBox "부서명은 필수 입력사항입니다."
            txtDeptName.SetFocus
            Exit Sub
        End If
       
        If insertMode = True Then
            sSql = "Select count(*) From Dept Where DeptCode = '" & txtDeptCode.Text & "'"
            Set rs = adoCon.Execute(sSql, iRe)

            If rs(0) > 0 Then   '레코드가 존재하면
                MsgBox "이미 존재하는 부서코드입니다." & Chr(10) & "다시 입력해 주십시오.", vbCritical
                txtDeptCode.SetFocus
                rs.Close: Set rs = Nothing
                Exit Sub
            End If
            rs.Close: Set rs = Nothing
           
            '신규데이타입력 - 방법1(SQL문)
            sSql = "Insert Into Dept " & _
                   " Values('" & txtDeptCode.Text & "','" & _
                               txtDeptName.Text & "')"
            adoCon.Execute sSql, iRe
           
            If iRe = 1 Then
                MsgBox "추가 성공"
                Call DataShow
            Else
                MsgBox "추가 중 오류 발생"
            End If
        Else
            sSql = "Update Dept Set DeptName = '" & txtDeptName.Text & "'" & _
                  " Where DeptCode = '" & txtDeptCode.Text & "'"
            adoCon.Execute sSql, iRe
            If iRe = 1 Then
                MsgBox "수정 성공"
                Call DataShow
            Else
                MsgBox "수정 중 오류 발생"
            End If

    위 소스는 6.0 소스인데 2010 에서 적용할려니 정말 힘드네요..ㅜㅜ

    2010 에서 적용할려면 어떤걸 수정해야 하는지요??

    2012년 5월 16일 수요일 오전 10:07

모든 응답

  • 안녕하십니까? 비베어렵다 님,
    Microsoft MSDN 의Forum 사이트를 방문해 주셔서 감사합니다.

    현재 문의 하신 ”엑세스 로 DB연동 완료 했는데 어떻게 데이터를 추가하는지요..ㅜㅜ" 대해 답변드리겠습니다.

    아래 참고 자료를 참고 부탁드립니다.
    이해안되는 부분은 재응답하시면 답변 드리겠습니다.

    [참고자료]
    Access 데이터베이스의 데이터에 연결

    제시해 드린 답변이 도움이 되었기를 바랍니다.

    답변이 문제 해결에 도움이 되었다면 답변으로 채택을 부탁드립니다.
    하지만 문제 해결이 되지 않아서 정확한 답변을 원하는 경우에는 문제의 정보를 더 자세하게 답변으로 제공해주시기 바랍니다.

     

    2012년 5월 17일 목요일 오전 2:33
    중재자