Background Image

FORUM

조회 수 22252 추천 수 0 댓글 4
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
개발은 Visual Basic 6.0 으로 하고 있습니다

        aAdoCn.ConnectionString = "Provider = CUBRIDProvider;" & _
                                      "Data Source = " & aDataSource & ";" & _
                                      "Location = " & aIp & ";" & _
                                      "User ID = " & aUseID & ";" & _
                                      "Password = " & aPassword & ";" & _
                                      "Port = 30000;" & _
                                      "Fetch Size = 100"

다음과 같이 연결을 하고
ADO를 이용하여 조회를 하고 있는데
adors.Recordcount
adors.MoveNext 등 의 함수를 이용하면

데이터 공급자나 기타 서비스가 E_FAIL 상태를 반환했습니다 라고  에러가 발생합니다.


참고로 
            aAdoCn.ConnectionString = "driver={CUBRID Driver};" & _
                                      "server=" & aIp & ";" & _
                                       "port=33000;" & _
                                      "uid=" & aUseID & ";" & _
                                      "pwd=" & aPassword & ";" & _
                                     "db_name=" & aDataSource & ";"
이런 식으로 연결하면 정상적으로 실행이 됩니다.
  • ?
    손승일 2009.02.12 19:56
    recordset의 CursorLocation 속성의 값을 AdUseClient로 설정해보시기 바랍니다.
  • ?
    늘푸른거북이 2009.02.13 18:05
    답변 감사합니다
    CursorLocation 속성을 AdUseClient로 변경을 하였는데도 같은 에러가 발생을 하네요.
    혹시 제가 더 확인해 봐야 하는 부분이 있을까요?
  • ?
    늘푸른거북이 2009.02.13 18:05
    답변 감사합니다
    CursorLocation 속성을 AdUseClient로 변경을 하였는데도 같은 에러가 발생을 하네요.
    혹시 제가 더 확인해 봐야 하는 부분이 있을까요?
  • ?
    flypig 2009.02.12 20:36

    아래 테스트 코드를 작성하여 시험한 결과 문제 없이 작동을 하였습니다.
    기본적으로 OLEDB의 cursor location은 Server에 만들어지고 이때에 recordset의 count는 사용할 수 없습니다.
    recordset.recordcount를 사용하기 위해서는 cursor location을 클라이언트로 하고 질의를 수행해야 합니다.
    아래 코드를 참조하시기 바랍니다.
    -------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub Command1_Click()
        Dim adoConn As ADODB.Connection
        Dim adoRset As ADODB.Recordset
        Dim strConn As String
        Dim strSQL As String
       
        strConn = ""
       
        'make OLEDB connection string
        strConn = strConn & "Provider = CUBRIDProvider;"
        strConn = strConn & "Data Source = db_name;" ' database name
        strConn = strConn & "Location = server_ip;"  ' database server ip address
        strConn = strConn & "User ID = user_id;"     ' database user id
        strConn = strConn & "Password = user_passwd;" ' database user id's password
        strConn = strConn & "Port = 33000;"          ' broker port
        strConn = strConn & "Fetch Size = 100;"

        ' connect to database with ado connection object
        Set adoConn = New ADODB.Connection
        With adoConn
            .ConnectionString = strConn
            .ConnectionTimeout = 30
            .Properties("Prompt") = adPromptNever
            .CursorLocation = adUseClient ' default valuse is adUseServer
            .Open
        End With
       
        ' create SQL statement and run the SQL
        strSQL = " select client_id, client_name from css_client where rownum < 101 "
       
        Set adoRset = adoConn.Execute(strSQL, , adCmdText)
       
        If adoRset.EOF Then
            MsgBox "No data found...", vbInformation + vbOKOnly, "Notify"
           
            If Not adoRset Is Nothing Then
                adoRset.Close
                Set adoRset = Nothing
            End If
            Exit Sub
        End If
        ' display select record count
        MsgBox adoRset.RecordCount, vbInformation + vbOKOnly, "notify"
       
        ' display data on spread sheet
        With vaSpread1
       
            While Not adoRset.EOF
                .MaxRows = .MaxRows + 1
                .Row = .MaxRows
               
                .Col = 1
                .Text = adoRset(0)
               
                .Col = 2
                .Text = adoRset(1)
               
                adoRset.MoveNext
            Wend
        End With
       
    End Sub


List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 CUBRID 사용자를 위한 DBeaver 도구 출시 안내 admin 2024.04.23 68
공지 SQLGate for CUBRID 영구 무료 라이선스 제공 file admin 2020.04.09 4465
1299 CUBRID MANAGER 한글이 깨져서 나오고 입력할 때도 한글이 깨집니다. 4 qswaert 2018.04.12 465
1298 DB 테이블 목록 등 열기 시 오류 (+로그 추가-2) 10 file cacaopie 2018.05.29 464
1297 DB 이전관련 질문 드립니다. 1 hoon 2017.11.14 464
1296 하이버네이트 uniqueResult 함수 사용 문의 1 kim77p 2018.05.15 461
1295 큐브리드 UTF8 일시 3byte 궁금 증 1 덴드로비움 2020.12.29 461
1294 아카이브 로그 정리 관련 6 기마누엘 2019.06.20 461
1293 VIEW SELECT 오류 (실행오류: -494) 2 tenbirds 2021.06.11 460
1292 Erd문의드립니다 1 천랑성 2020.07.17 458
1291 CLOB 파일 주소 오류 4 file khs 2017.07.22 457
1290 cubrid service 기동시 에러 2 안성환 2018.02.23 456
1289 큐브리드 매니저 password file open error 가 나는데 확인부탁드립니다. 5 oneh 2018.06.26 456
1288 Cubrid manager 실행이 안됩니다. 1 file 허시엔다 2018.01.15 456
1287 JDBC Connection 끊어짐 1 steve 2022.07.21 455
1286 SYSTEM PARAMETERS 확인방법이 있나요? 1 봉보로봉봉 2017.07.29 453
1285 CUBRID 그룹 멤버 수정을 어떻게 하나요? 1 sspark 2018.01.15 453
1284 cubrid 의 데이터베이스 폴더 하위의 lob 폴더 내의 파일들의 정체는? 1 예림이아빠 2019.01.09 451
1283 cubrid.jdbc.jci.UConnection.createJciException 에러가 납니다... 4 순대 2021.08.17 449
1282 특정 컬럼 order by 시 한글 > 숫자 > 영문 순으로 정렬 방법? 2 Qubrid 2022.12.01 449
1281 테이블 복사 1 ohgeumjin 2020.06.03 448
1280 큐브리드 시리얼 명칭 변경하는 곳은 어디에 있나요?ㅠㅠ 4 tpdms8 2020.05.18 447
Board Pagination Prev 1 ... 131 132 133 134 135 136 137 138 139 140 ... 200 Next
/ 200

Contact Cubrid

대표전화 070-4077-2110 / 기술문의 070-4077-2113 / 영업문의 070-4077-2112 / Email. contact_at_cubrid.com
Contact Sales