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

1  2  3  4  5  6  7  8  9  10  [11]  12  13  14  15  ...
NoWriterDateCnt.TitleFile(s)
5706종규8/7/202213624WPF 에서 SVG 아이콘 사용 방법 문의 [2]
5705김기헌8/6/202211524안녕하세요 선생님 싱글톤 패턴 간단 질문 [2]
5704따봉이8/4/202211477EventHandler 관련 [1]
5703조민준8/3/202210831안녕하세요 정적 멤버 초기화 관련 간단한 질문 [2]
5702석우8/3/202210693C# WPF Ribbon IsMinimized 프로퍼티 변경 감지 방법문의 [2]파일 다운로드1
5701김기헌8/1/202211279foreach 문으로 컬렉션을 열거할 때 궁금한 점 [2]
5699갓경섭7/29/202211855C# 프로그램 느려짐 현상 [2]
5698kss7/29/202212963ValueTask 질문입니다. [5]
5697스팸7/28/202214336윈도우서버 Port 고갈문제 (Event ID 4227, 4231) [3]파일 다운로드1
5696유석7/27/202213649닷넷 4.X 와 닷넷 6.0 버전 차이 [6]
5695초보코더7/26/202213526[WCF] EndpointNotFoundException 기본 연결이 닫혔습니다. 원격 서버에 연결할 수 없습니다. [1]
5693차가워7/22/202212330socket 종료 시 reveive수신부에서 에러 나는거 처리 문의 [5]
5692도비7/21/202211548Ubuntu LVM 확장 관련 [1]파일 다운로드1
5691따봉이7/21/202212282Task 비동기 UI 크로스 쓰레딩 Err 관련 [1]
5690훈이7/20/202210740wpf질문입니다 [2]
5689질문7/20/202210737비동기 함수를 사용하는 방법에 대한 질문입니다 [1]
5688김정현7/11/202210123소스 디버깅(F5)시 프로그램 켜지지 않고 디버깅 가능한 상태 [1]
5687규철7/6/202210617개발업무 문서 관리 방법 문의 [3]
5686권용완7/5/202210470Linq Entites 에서 string[]에 담긴 데이터를 제외하는 방법 문의 [3]
5685차가워7/4/202211410메모리 선택 문의 [1]
5683김민혁7/1/202211938HttpWebRequest POST 전송 관련해서 질문 드립니다. [4]파일 다운로드1
5682김기헌6/20/202211214안녕하세요 서로 다른 스레드에서 동일 인스턴스의 메소드를 호출할때 질문드립니다 [2]
5681미래는투...6/19/202211178VC++ 빌드 관련 문의 (h파일이 바뀌었는데 컴파일을 꼭 하지 않아도 되나요?) [1]
5680Syong6/12/202212123EXE파일에 속성값 추가하는 방법이 있나요? [2]파일 다운로드1
5679차가워6/8/202211496tcpip socket 여러 랜카드 사용 시 연결 문의 [1]
5678차가워6/7/202211353원자적 실행 문의 [3]
1  2  3  4  5  6  7  8  9  10  [11]  12  13  14  15  ...