Background Image

FORUM

조회 수 12656 추천 수 0 댓글 2
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄

 안녕하세요.

현재, MS-SQL, Visual Basic 6.0 환경하에 회사 전산 프로그램이 돌아가고 있는데,

대부분의 DB처리는 SQL의 Stored Procedure에서 하고,

VB에서는 OLEDB(ADO)로 접속하여 SP에 parameter 값만 넘겨주고, 데이터를 주고 받는 형태입니다.


큐브리드에서는 어떤 형태로 하는지 혹시 샘플이 있나요?


(참고) 현재 형태

============ MS-SQL의 SP ============

USE SYS_DB

GO

DROP PROCEDURE SA1040I_Q

GO

CREATE PROCEDURE SA1040I_Q 

     (@idno    Char(05)       = Null,

      @stdt     Char(08)       = Null)

AS

SET NOCOUNT ON

Begin

            DELETE FROM SAHIST_M

              WHERE hist_id   = @idno      

                  AND hist_stdt = @stdt

           SELECT 'DELETEOK'

           RETURN

End

============ VB 소스 ============
   Set AdoRs = New ADODB.Recordset
   StatusBar1.Panels(1) = "잠시만 기다려 주십시요...": vaSpread.MaxRows = 0
   
   Set AdoRs = New ADODB.Recordset
   sSql = "SA1040I_Q"
   sSql = sSql & ",@idno = '" + idno + "'"
   sSql = sSql & ",@sddt = '" + Format(dtpDate.Value, "yyyyMMdd") + "'"
   AdoRs.Open sSql, Dbcon
   
   If AdoRs.EOF = True Or AdoRs.BOF = True Then
      StatusBar1.Panels(1) = "검색된 자료가 없습니다..."
      AdoRs.Close: Set AdoRs = Nothing
      Exit Sub
   End If
   
   While Not AdoRs.EOF
      vaSpread.MaxRows = vaSpread.MaxRows + 1
      vaSpread.Row = vaSpread.MaxRows
      For i = 1 To vaSpread.MaxCols
         vaSpread.col = i: vaSpread.Text = Trim(AdoRs(i - 1))
      Next i
      AdoRs.MoveNext
   Wend
 
   AdoRs.Close: Set AdoRs = Nothing
    StatusBar1.Panels(1) = "자료가 정상적으로 조회되었습니다."
 

  • ?
    손승일 2012.02.07 08:30

    안녕하세요.

    큐브리드에 관심을 가져 주셔서 감사합니다. 문의하신 내용에 대하여 빠른 시일 내에 확인하여 알려드리도록 하겠습니다.

  • ?
    seongjoon 2012.02.23 00:13

    답변이 늦어 죄송합니다.

    mssql의 Stored Procedure을 CUBRID에서 바로 사용할 수는 없으며, Java Stored Procedure 형태로 변경하여 사용하셔야 됩니다.

    java stored procedure 사용방법은 다음 링크를 통해 확인하실 수 있으며 테스트에 사용한 VB 샘플코드를 참조하시면 될 것 같습니다..

    http://www.cubrid.org/manual/ko/8.4.4/sql/jsp.html

    샘플코드

    Private Sub Command1_Click()

            Dim adoConn As ADODB.Connection

            Dim strConn As String

            Dim strSQL As String

            strConn = ""

            'make OLEDB connection string

            strConn = strConn & "Provider = CUBRIDProvider;"

            strConn = strConn & "Data Source = demodb;" ' database name

            strConn = strConn & "Location = localhost;"  ' database server ip address

            strConn = strConn & "User ID = dba;"     ' database user id

            strConn = strConn & "Password = ;" ' database user id's password

            strConn = strConn & "Port = 33000;" ' broker1 port

            strConn = strConn & "Fetch Size = 100;"

            ' connect to database with ado connection object

            Set adoConn = New ADODB.Connection

            With adoConn

                .ConnectionString = strConn

                .Open

            End With

            Set rs = adoConn.Execute("call hello() into :Hello;")

            List1.Clear

            If Not rs.EOF Then rs.MoveFirst

            Do While Not rs.EOF

                List1.AddItem rs.Fields(0)

                rs.MoveNext

            Loop

            adoConn.Close

            Set rs = Nothing

            Set adoConn = Nothing

    End Sub


List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 CUBRID 사용자를 위한 DBeaver 도구 출시 안내 admin 2024.04.23 55
공지 SQLGate for CUBRID 영구 무료 라이선스 제공 file admin 2020.04.09 4461
3995 "DATABASE 검사" 도무지 끝날 기미가 안 보입니다 5 한종희 2011.08.02 8583
3994 "DBMS, 0, Unknown DBMS error" 요건 무슨 애러인가요?;; 2 eitetu 2011.06.02 14296
3993 "Token length is too long" 오류에 관하여 질문 드립니다. 4 file 김우람 2009.01.09 21478
3992 & 등의 특수문자등이 변환되어 저장되는 경우 1 호랑이야옹 2012.12.28 10682
3991 ' 의 입력 방식이 궁금합니다. 1 이석희 2009.04.10 13422
3990 (1개의 댓글은 작성자가 썼습니다.)비주얼 베이직 큐브리드 연동후 동시에 여러 테이블 보는 방법문의 2 secret 강남우 2012.12.21 58
3989 (Re:) 회원가입이 3명이상 안돼요... 6 딩이 2010.07.08 7595
3988 (python)centOS7 docker 연결 문의입니다. 리얼비 2021.11.01 108
3987 (댓글 질문등록 했습니다.)이전글, 다음글 기능(LAG, LEAD) ORDER BY절 FOR ORDERBY_NUM() 추가해도 그대로 입니다 3 취우다 2017.04.19 5960
3986 (함수)펑션 오류 확인부탁드립니다. 1 초코초코초 2023.02.10 102
3985 *variable* 에러 1 hwon 2013.06.14 11619
3984 ++ cubrid server start: fail 2 file 토네이도 2013.09.13 13701
3983 -74 오류 조치 방법 1 덜쇠 2013.08.07 7643
3982 .AccessViolationException (C#) 1 swift 2021.06.03 220
3981 .NET 4.5 에서의 NHibernate 문제, .NET 4.0 에서 NHibernate + TransactionScope 활용 문제. 1 websiter 2017.06.09 2057
3980 .NET DB 제어를 위한 방법. 2 우페 2008.11.23 60878
3979 .net db목록 관련 질문 드립니다. 4 파인 2021.03.05 134
3978 // 를 사용하고 싶습니다. 1 죽통군 2010.02.10 9583
3977 /etc/hosts 파일 수정 1 secret chocob 2014.10.13 13
3976 /etc/rc3.d/S98cubrid 화일 좀 바꿔주세요 1 꽁꽁단무지 2017.01.25 12246
Board Pagination Prev 1 2 3 4 5 6 7 8 9 10 ... 200 Next
/ 200

Contact Cubrid

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