Microsoft MVP성태의 닷넷 이야기
소스 코드 입니다. [링크 복사], [링크+제목 복사],
조회: 13576
글쓴 사람
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)
756손승휘3/24/200818622Microsoft Web Browser OCX 부분이 안전하지 않는 ACTIVEX로 IE에서 인식되어는 점 [1]
754단테3/19/200815712실행파일의 아이콘을 프로그램 적으로 변경할 수 있을까요? [1]
753신동열3/12/200816496비스타의 권한 상승 관련 질문 있습니다. [2]
751김재영3/6/200815629스레드와 비스레드간의 대기상태 순서에 대해 질문이 있습니다. [2]파일 다운로드1
752정성태3/7/200815215    답변글 [답변]: 스레드와 비스레드 간의 대기 상태 순서에 대해 질문이 있습니다. [1]
750김용현3/3/200814559스마트 클라이언트로 파일 다운로드시 파일의 크기가 0인 경우가 발생합니다. [2]
749임영한2/28/2008301022003서버에서 msxml3.dll 오류 "80070005" 문제입니다. [2]
748류재상2/27/200819248Remoting , Tcp Channel 사용시.. 외부에서 접근 보안문제... [3]
747한귀순2/20/200817570WinForm - DataGridView 소계 등 [3]
746박상영2/20/200815480리모팅 관련해서 [3]파일 다운로드1
745조승현2/20/200816174Response.Charset ANSI로 설정..하는부분이 어려워서요.. [1]
744오야2/5/200814821멤버십, 웹파트등의 생성테이블과 업무테이블간의 관계를 어떻게.. [2]
743김기룡1/29/200816637동일 이미지 판단 방법 관련 [2]파일 다운로드1
740경혜원1/28/200818064C#에서 이런게 가능 할런지요?
742정성태1/29/200816098    답변글 [답변]: C#에서 이런게 가능 할런지요? [1]
738임경훈1/25/200816962웹서비스에서 오라클DB에 연결할 때
741임경훈1/28/200816476    답변글 [답변]: 웹서비스에서 오라클DB에 연결할 때 [1]
737단테1/25/200817888안녕하세요 정성태님. C Run-time Library의 배포에 대해서 질문있습니다. [3]
736김현기1/24/200815616XML 접두어 포함한 XmlElement 작성법? [1]
735정명원1/9/200815439ActiveX 사용시 ... [2]
734제영한12/17/200715436웹서비스에서 사용자 정의 예외 사용하기 [2]
732김기룡12/3/200718485WebRequest 요청시 일본어 인코딩 관련 문의파일 다운로드1
733김기룡12/3/200714607    답변글 일어가 깨졌네요..테스트 문자 추가합니다.^^;;파일 다운로드1
739adnim1/27/200816030    답변글 [답변]: WebRequest 요청시 일본어 인코딩 관련 문의 [1]
731우기11/27/200713241[질문] clickonce 배포시 .net framework 2.0, 3.0 설치 시간 줄일 수 있는 묘수없을까요?? [1]
730김재영11/10/200714048스레드에 사용되는 함수에 값을 같이 넘기는 방법이 있습니까?? [2]파일 다운로드1
... 61  62  63  64  65  66  67  68  69  70  71  [72]  73  74  75  ...