Microsoft MVP성태의 닷넷 이야기
소스 코드 입니다. [링크 복사], [링크+제목 복사],
조회: 16414
글쓴 사람
guest
홈페이지
첨부 파일
 
부모글 보이기/감추기

Imports Microsoft.VisualBasic
Imports System.Runtime.InteropServices
Imports System.EnterpriseServices
Imports System.Text

<System.Runtime.InteropServices.ProgId("PUB_Baa01.CBaa020N"), _
    JustInTimeActivation(True), EventTrackingEnabled(True), _
    System.EnterpriseServices.TransactionAttribute(System.EnterpriseServices.TransactionOption.NotSupported), _
    ClassInterface(ClassInterfaceType.AutoDual), ObjectPooling(True, MinPoolSize:=0, MaxPoolSize:=1)> _
Public Class CBaa020N
    Inherits ServicedComponent
    
    Private Const csComboID As String = "PUB_Zaaex.CZaaxt"
    Private Const csDBSID As String = "FSBCommNet.CDBScript"

    Public Function GetBaa020(ByRef aCert As Object, _
                                ByVal sCustCd As String, _
                                ByVal sCustNm As String, _
                                ByVal sCustType As String, _
                                ByVal sBizNo As String, _
                                ByRef rsBaa020 As Object, _
                                Optional ByRef aCombo As Object = Nothing) As String
        Dim oDAL As Object = Nothing
        Dim oCombo As Object = Nothing
        Dim sSql As New System.Text.StringBuilder("")

        Try

            GetBaa020 = ""

            oDAL = CreateObject(aCert(9))
            GetBaa020 = oDAL.Connect(aCert)
            If GetBaa020 <> "" Then Throw New Exception(GetBaa020)

            sSql.Remove(0, sSql.Length)

            sSql.AppendLine(" ")

            GetBaa020 = oDAL.GetRecordSet(sSql.ToString, rsBaa020)
            If GetBaa020 <> "" Then Throw New Exception(GetBaa020)

            If Not IsNothing(aCombo) Then
                oCombo = CreateObject(csComboID)
                GetBaa020 = oCombo.getComboRs(aCert, aCombo, oDAL)
                If GetBaa020 <> "" Then Throw New Exception(GetBaa020)
            End If

        Catch oErr As Exception
            GetBaa020 = My.Application.Info.AssemblyName & "." & TypeName(Me) & "[GetBaa020]" & vbCrLf & oErr.Source & vbCrLf & oErr.Message
        Finally

            sSql = Nothing

            If Not oCombo Is Nothing Then
                oCombo.Dispose()
            End If
            oCombo = Nothing

            If Not oDAL Is Nothing Then
                oDAL.Disconnect()
                ServicedComponent.DisposeObject(oDAL)
            End If
            oDAL = Nothing

            Me.Dispose()
        End Try

    End Function

End Class








[최초 등록일: ]
[최종 수정일: 7/10/2006]


비밀번호

댓글 작성자
 



2006-07-10 11시49분
거듭 죄송합니다. 가능한 ... 바로 컴파일 할 수 있는 프로젝트로 통째로 좀 올려주십시오.
kevin25

... 61  62  63  64  65  66  67  68  [69]  70  71  72  73  74  75  ...
NoWriterDateCnt.TitleFile(s)
862장근배1/28/201019427AppPolId를 알 수 있는 방법이 있는지요? [1]
864장근배2/1/201018984    답변글 [답변]: AppPolId를 알 수 있는 방법이 있는지요?
858생초보1/26/201019288안녕하세요.. 파일 생성 처리 문제로 .... [2]
857꼭지1/22/201026048How to support Basic + Windows authentication mode in WCF(RESTful service) [4]파일 다운로드2
856질의자1/13/201022951vcredist_x86 배포 관련 여쭙습니다. [1]
855임동찬1/13/201021778이벤트 핸들러와 쓰레드의 관계 2 [4]파일 다운로드2
854임동찬1/12/201021925이벤트 핸들러와 쓰레드의 관계 [1]
853장근배1/12/201020631압축 프로그램,, [1]
852임동찬1/6/201017938base.OnStart(agrs) [1]
851한귀순1/6/201023394oracle & transaction 질문 [5]
850박한주12/31/200920614COM과 C#간 권한 문제에 관해 여쭤봅니다. [5]
848날쌘돌이12/22/200921625C#으로 개발하는 ActiveX 디버깅 문제 [5]
847최승문12/16/200920419winform에서 웹서비스를 이용할때, 객체가 전송안되는 문제... [2]
846이강구12/14/200919296ATL COM 제작 문의 [3]
845김재영12/9/200922138ClickOnce에서 WinForm을 배포시 변동되는 Args값을 넘길 수 있나요? [3]파일 다운로드1
843김재영12/2/200919679Hyper-V 사용에 대해여 질문이 있습니다. [2]
842한귀순12/1/200922497Attempted to read or write protected memory [2]
841장근배11/30/200924318첨부 파일 Download시 한글 Name [2]
844장근배12/3/200918764    답변글 [답변]: 첨부 파일 Download시 한글 Name파일 다운로드1
840박영민11/20/200918761웹 애플리케이션 질문입니다. [1]
837left...10/21/200919373아래 게시글 관련하여 추가 질문 [3]
836left...10/19/200920250ActiveX 상에서 암시적 dll 로드 [1]
832김우진10/15/200916795C# 에서 swa + security 구현 방법이 없을까요?
833정성태10/15/200921198    답변글 [답변]: C#에서 swa + security 구현 방법이 없을까요? [1]
834김우진10/15/200917177        답변글 예제 메시지 올려드릴께요. [2]파일 다운로드1
838이영우10/30/200917039            답변글 국세청 전자세금계선서에 관하여 문의드립니다.
... 61  62  63  64  65  66  67  68  [69]  70  71  72  73  74  75  ...