Microsoft MVP성태의 닷넷 이야기
소스 코드 입니다. [링크 복사], [링크+제목 복사],
조회: 16419
글쓴 사람
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)
988WooY...8/17/201118556성태님~ 작은 부탁 하나 있습니다~ [2]
987에스패스트8/3/201120725비밀글쓰기가 있으면 참좋을탠대 아쉽네요 ^^ 저 한가지만더.. [5]
986에스패스트8/3/201124060안녕하세요 ^^ 이렇곧도 있군요 ~ 참좋네요 질문 한가지 여쭤볼게요 [6]
985이성환7/27/201120121P/Inovke 관련 질문입니다. [4]파일 다운로드1
983이성환7/13/201129975Mouse이벤트 관련해서 질문있습니다. [10]파일 다운로드2
982궁굼이7/12/201120357TFS2010 사용관련 [2]
981김창욱7/11/201123597주식형태의 프로그램 처럼 SQL서버의 특정 필드 데이터의 변화가 있을때 재 클라이언트가 정보를 갱신 할 수 있게 하는 방법은 없을까요? [2]
980YJ7/7/201123101App Pool idle time 과 WCF 서비스의 비동기 function 호출. [3]
979왕초보7/1/201121418Apache + IIS Redirect [2]
9776/16/201124801웹컨트롤 어느거 쓰는게 좋나요 [1]
976박성준6/13/201120303VS2008 Add-in 구현 관련 질문 [4]
972김길6/6/201122723메모리 해제 예외 처리 관련.. [2]
971강동원5/29/201120149firebird install건 [1]
970임동찬5/18/201121027ASP.net 솔루션 디버깅 관련 [1]
969이성환5/4/201122538WMI 를 사용하지 않고 하드웨어 정보를 가져올 수 없을까요? [3]
968김동미4/28/201121958안녕하세요 다시 한번 문의를 드립니다.. [2]파일 다운로드1
967임동찬4/22/201124705C# using문 관련 [9]
964김동미4/18/201122417wcf IsOneWay 속성관련 문의 입니다..
965정성태4/18/201123903    답변글 [답변]: wcf IsOneWay 속성관련 문의 입니다..
966김동미4/19/201120926        답변글 [답변]: [답변]: wcf IsOneWay 속성관련 문의 입니다.. [1]
963최재훈4/12/201119980wcf inactivityTimeout 설정시 문의 사항이 있습니다. [2]
962임동찬4/8/201119705TFS 사용관련 [1]
961임동찬4/7/201119852XSD & XML & XmlCodeGenerator [2]
960임동찬4/5/201121801XML Schema Editor [4]
959immm3/24/201119422로그인 연동 어려운 건가요? [1]
958꼭지3/3/201121711Supporting compressed request in WCF 3.5 [5]
... 61  62  63  64  [65]  66  67  68  69  70  71  72  73  74  75  ...