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