Microsoft MVP성태의 닷넷 이야기
소스 코드 입니다. [링크 복사], [링크+제목 복사],
조회: 16418
글쓴 사람
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)
838이영우10/30/200917039            답변글 국세청 전자세금계선서에 관하여 문의드립니다.
831채승수10/13/200919046스마트 클라이언트 GAC 등록 문제 여쭤봅니다... [2]
829박찬용10/9/200931650WebBrowser 컨트롤 사용시 새창을 띄울시 세션/쿠키 공유가 왜 안될까요?? [1]파일 다운로드1
827송창훈9/24/200916571[질문]CAS 설정
828정성태9/28/200919661    답변글 [답변]: [질문]CAS 설정 [1]
825김재영9/18/200917781프레임워크별 비트 지원에 대해서 문의를 드립니다. [2]
821채승수8/27/200917104클릭원스를 비스타에서 실행시 [1]
822채승수8/28/200922205    답변글 [답변]: 클릭원스를 비스타에서 실행시 [2]
818개발돌이8/14/200920108ActiveX개발한 dll을 임베디드 할때 UI에 대한 질문 [1]파일 다운로드1
817채승수8/13/200919426클릭원스 관련 질문드립니다.~ [1]
816박진오7/29/200918821다국어 사이트의 컨텐츠 저장 방식에 대해.. [2]
814서광원7/16/200927644IWebBrowser2를 이용한 프로그램에서 javascript의 alert 창 무시하는 법? [1]
813윤상균7/16/200918445비관리코드와의 상호운용에서 마샬링 질문 [1]
812김현우7/13/200919122usercontrol은 mdi container가 될수 없는데 이를 구현할 방법은 무엇일런지요? [2]
811조민수7/3/200918418MSDN Magazine 한글화 않되나요? [1]
810세경6/29/200924038SmartClient Vista 64bit IE7 [4]
809윤석준6/24/200923662IE -nomerge 옵션으로 새창을 열려고 합니다. [1]
808한승훈6/4/200923149dll import하기 위해 struct 구성시에 struct가 struct를 가지고 있고 포함된 struct가 ByValArray형태일때 해결 [1]
806곰티5/26/200921135defcon pro 설치 원천 봉쇄 방법 문의 [3]
802채승수5/8/200920136신뢰사이트 등록/적용에 관해 질문드립니다. [1]
801채승수4/15/200921019IE8 새세션을 코드로 구현할수 없을까요 [1]
800신동열4/7/200921196IE8에서 스마트 클라이언트 로딩 문제 [2]
7993/27/200923914이벤트 로그 오류 [1]
798천해3/26/200921349IE8.0 에 관해 질문 드립니다. [2]
797궁금..3/23/200921214IE 8 관련 질문.. [2]
796정성태3/20/200919749스마트클라이언트와 ActiveX에 관한 질문 [1]
... 61  62  63  64  65  66  67  68  69  [70]  71  72  73  74  75  ...