Microsoft MVP성태의 닷넷 이야기
소스 코드 입니다. [링크 복사], [링크+제목 복사],
조회: 16475
글쓴 사람
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

... 16  17  18  19  20  [21]  22  23  24  25  26  27  28  29  30  ...
NoWriterDateCnt.TitleFile(s)
5440한예지 donator1/1/202115117추상클래스로와 new [4]
5439이상호12/31/202019372VC 프로젝트 에서 _main 함수에서 참조되는 확인할 수 없는 외부 기호 [4]파일 다운로드1
5438김윤12/29/202021494C# winform using으로인한 메모리 해제 타이밍과 변수 복사 타이밍 [2]
5437한예지 donator12/25/202017794for문 안에 있는 지역변수의 생성 및 유지 기간에 대해 질문드립니다! [6]
5436영귤12/24/202015691fixed는 자동으로 stackalloc이 되는 건가요? [1]
5435한예지 donator12/24/202016210ArraySegment, Span, ReadOnlySpan 질문있습니다! [1]
5434한예지 donator12/23/202016947ToString 재정의 질문있습니다! [8]
5433한예지 donator12/23/202017408List<ArrarySegment<int>> 사용법 질문드립니다! [2]
5431한예지 donator12/17/202018282비동기 소켓 서버 질문 드립니다! [1]
5430종범12/16/202017426[WPF] Task 관련 재질문 드립니다. [2]파일 다운로드1
5429종범12/16/202018380[WPF] Task 관련 질문 드립니다. [1]파일 다운로드1
5428최선호 donator12/14/202018125성태님 ㅠ.ㅠ 소켓 서버 작동이 이상합니다 ㅠ.ㅜ [1]파일 다운로드1
542712/11/202018862LPBOOL Win32 마샬링 질문이 있습니다. [6]
5426하태12/11/202015710안녕하세요 정성태님! C# winform Calendar 컨트롤 질문 드리겠습니다!. [1]
5425정유경12/10/202016239[왕초보] (4) [1]
5423정유경12/8/202016205[왕초보] (3) [2]
5422이승준12/7/202022281VisualStudio 2019의 인텔리센스가 느려지는 경우가 있나요? [4]
5421정유경12/6/202017967[왕초보] (2) [4]
5420정유경12/5/202018794[왕초보] 랜덤 숫자와 배열에 관한 질문 [1]
5419종범12/4/202018950[WPF] Threadpool사용 시 크리티컬 섹션 대응 질문 입니다. [4]
5418한예지 donator11/27/202018953클래스, 인터페이스 크기를 구하고 싶은데 어떻게 해야 될까요? [1]
5417한예지 donator11/27/202016253인터페이스와 추상클래스에 대해 궁금증이 있습니다. [1]
5416한예지 donator11/27/202016325Object 질문 있어요. [1]
5415한예지 donator11/25/202015932교재 213쪽 예제 4.25 질문드립니다. [1]
5414한예지 donator11/23/202017554제네릭 리스트 출력하는 방법이 궁금합니다. [1]
5413민석11/20/202019054C# minidump를 프로그램이 중단 될 때 만들고 싶습니다. [1]파일 다운로드2
... 16  17  18  19  20  [21]  22  23  24  25  26  27  28  29  30  ...