none
VB6 ADODB OPEN 할경우 응답없음. RRS feed

  • 질문

  • 다른 운영체제는 정상이지만 Windows7 x64 Ver에서 아래 밑출친 부분을 수행할 때 운영체제 자체가 응답없음 상태가 됩니다. ( query 수행 시간은 대략2분 정도가 되며, 쿼리 수행이 완료되면 정상 상태로 복귀 됩니다. )

    쿼리가 수행되는동안 이메일을 본다던지 하는 행동을 하지 못하기 때문에 불편해지는 상태입니다.

    Alt Tab 으로 창전환도 불가능한상태가 됩니다.

    어떻게 해결해야할까요 ?

    --------CODE 원본

    Public Function gf_ReportDB_SQLRequest(ByRef ArgRecordset As ADODB.Recordset, Optional ArgstrSQL As String = "", Optional ArgMainSQL As Boolean = False) As Boolean

    Dim strSQL          As String

    On Error GoTo ErrHand
       
        'DB로 접속 및 Select 수행
        DispMsg "조회중입니다.....!!", 3000

        If ArgstrSQL = "" Then
            strSQL = gstrSQL
        Else
            strSQL = ArgstrSQL
        End If
       
        If gBlnQueryView = True Then FrmReportQuery.TxtQuery = strSQL
        gf_ReportDB_SQLRequest = False

        If gReportDB_ADOConn.State = 0 Then Call gf_ReportDB_Connection
        
        Debug.Print strSQL
       
        'adoRs.RecordCount property
        ArgRecordset.CursorLocation = adUseClient
        ArgRecordset.Open strSQL, gReportDB_ADOConn, adOpenDynamic, adLockOptimistic, 1
        gf_ReportDB_SQLRequest = IIf(ArgRecordset.State = 1, True, False)
        
        gstrSQL = ""
        'DB로 접속 및 Select 수행
        DispMsg "조회가 완료되었습니다.....!!", 3000
        Exit Function

    ErrHand:
        gstrSQL = ""
        gf_ReportDB_SQLRequest = False
        MsgBox Err.Description

    End Function


    • 편집됨 킨테리 2015년 8월 25일 화요일 오전 6:09
    2015년 8월 25일 화요일 오전 6:05