Microsoft MVP성태의 닷넷 이야기
소스 코드 입니다. [링크 복사], [링크+제목 복사],
조회: 14535
글쓴 사람
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)
5836박지범2/27/202310188static instance의 initialize 순서가 보장되나요? [6]
5835주민호2/25/202317230Windows Software Development Kit - 최신버전 1개 남기고 다 삭제하면 안되는지요? [10]파일 다운로드1
5834guest2/24/202310250Python IDE - 비주얼스튜디오 [3]
5833무지남2/23/20239545Async 메서드 그리고 나서 Bool 메서드 [5]
5832김지우2/21/202310226event와 delegate의 차이 , event를 써야하는 이유 [1]
5831이우람2/20/202311272ref 전역변수가 pinned가 될수 있나요? [2]
5830냉수마찰2/19/202310606C# GridView에 Column별 데이터 추가하는 방법에 대해 [1]
5829수박942/19/202311972키움 API를 윈폼과 WPF의 네임스페이스 없이 콘솔이나 WinUI3에서 사용할 수 있는 방법이 있나요? [2]파일 다운로드1
5828김재영2/19/202311074장기적으로는 this 구문을 안쓰는게 맞을까요? [2]
5827lee2/18/202312432파이썬 설치 오류 질문입니다 [1]
5826Syong2/14/202312360Socket 관련 Leak (OverlappedAsyncResult, OverlappedData) 관련 문의 [7]파일 다운로드1
5825박성원2/14/202311636Listview 컨트롤의 화면 전환 시 갱신 속도 [1]
5823검은콩2/13/202314036catch(Exception ex)의 line번호를 쉽게 알 수 없는지요? [7]
5822김지우2/11/202313583책을 보면서 sync, async 이해가 되지 않는 부분이 있습니다. [5]파일 다운로드2
5821검은콩2/9/202310796Async 신뢰성과 소켓데이터 [4]
5820차가워2/8/202310613다른 프로세스 실행 후 포커스 가져오기 [3]
5819취준생2/7/202311009WPF 관련 실무가 궁금합니다. [3]
5818윤길2/7/202310107ObservableCollection 에서 INotifyPropertyChanged 구현해야하나요? [2]
5817흰털너부리2/7/20239920배포 시 winform 실행 콘솔로그 보는 방법 [1]
5816흰털너부리2/6/202310096.net core json array validation 질문 드립니다. [1]
5815김재영2/6/202310054종단간 암호화에 대해 시나리오인데 타당한 시나리오일까요? [2]
5814한예지 donator2/6/202311123decompile? [9]
5813김재영2/5/202311218openssl genrsa 2048시 키 생성이 다르게 됩니다. - 파일첨부 [4]파일 다운로드1
5812김재영2/5/202311571openssl genrsa 2048시 키 생성이 다르게 됩니다. [2]
5811치르바2/3/202311206MiniDumpWriteDump API로 덤프수집을 했는데요.. [3]
5810이건우1/31/202311823윈도우서비스를 통한 웹통신관련 질문입니다 [3]
1  2  3  4  5  [6]  7  8  9  10  11  12  13  14  15  ...