MS-SQL의 Stored Procedure를 Cubrid로 변환 가능할런지?

by 강나루소나무 posted Feb 07, 2012

 안녕하세요.

현재, 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) = "자료가 정상적으로 조회되었습니다."
 


Articles