VB.NET을 이용하여 WEB SERVICE를 만들고 VB6.0에서 SOAP을 이용하여

XML 웹 서비스를 사용하는 방법은 다음과 같다.

1.  ASP.NET을 사용하는 WEB SERVICE 만들기

a. Microsoft Visual Studio .NET을 시작합니다.
    파일 메뉴에서 새로 만들기를 누른 다음 프로젝트를 누릅니다.
    새 프로젝트 대화 상자의 프로젝트 형식에서 Visual Basic 프로젝트를 누른 다음
    템플릿에서 ASP .Net 웹 서비스를 누릅니다.
    프로젝트 이름을 SQLQuery라고 지정하고 확인을 누릅니다.
    기본적으로 Service1에 대한 디자인 폼이 나타납니다.

b. 보기 메뉴에서 코드를 눌러 Service1에 대한 코드 창을 표시합니다.

c. 코드 창의 맨 위에 다음 코드를 붙여 넣습니다.
    Imports System.Data.SqlClient

d. Service1 클래스에서 End Class 바로 앞에 다음 코드를 붙여 넣습니다.
   <WebMethod()> Public Function GetIDs() As String()
        Dim i As Integer

        ' Create an open connection.
        Dim oConn As New SqlConnection(strConn)
        oConn.Open()

        Dim oDataset As New System.Data.DataSet
        ' Execute the query.
        Dim oAdapter As New SqlDataAdapter("SELECT au_id FROM authors", oConn)
        ' Fill the dataset.
        oAdapter.Fill(oDataset)

        Dim s(oDataset.Tables(0).Rows.Count - 1) As String
        ' Create an array of IDs.
        For i = 0 To oDataset.Tables(0).Rows.Count - 1
            s(i) = oDataset.Tables(0).Rows(i).ItemArray.GetValue(0)
        Next i
        ' Return the array.
        Return s
    End Function

  <WebMethod()> Public Function QueryDatabase(ByVal sID As String) As String()
        Dim i As Integer

        ' Create an open a connection.
        Dim oConn As New SqlConnection(strConn)
        oConn.Open()

        Dim oCommand As New SqlCommand("SELECT * FROM authors WHERE au_id='" + sID + "'", oConn)
        Dim oReader As SqlDataReader
        ' Execute the query and assign results to a SqlDataReader.
        oReader = oCommand.ExecuteReader()
        oReader.Read()

        Dim s(7) As String
        ' Build an array of results.
        For i = 0 To 7
            s(i) = CType(oReader.GetValue(i), String)
        Next
        ' Return the array.
        Return s
    End Function

참고: 코드에서 strConn 상수를 수정하여 SQL Server pubs 데이터베이스에

       대하여 올바른 연결 문자열이 되도록 합니다.

2.  ASP .Net을 사용하는 XML 웹 서비스 만들기 

   F5 키를 눌러 웹 서비스 솔루션을 빌드하고 실행합니다.
   .NET IDE(통합 개발 환경)에서 웹 서비스를 실행하면 Microsoft Internet Explorer는
   사용자 솔루션에서 Service1.asmx를 로드합니다.
   GetIDs 메서드를 테스트합니다.
   이렇게 하려면 GetIDs 하이퍼링크를 누른 다음 호출을 누릅니다. 

   이 메서드는 pubs 데이터베이스에서 웹 서비스가 추출한 제작자 ID 목록을 반환합니다.

   결과는 브라우저에 XML로 표시됩니다. 
   브라우저 창을 닫고 Visual Studio로 돌아갑니다.

   F5 키를 눌러 웹 서비스를 실행합니다.
   QueryDatabase 메서드를 테스트합니다.
   이렇게 하려면 QueryDatabase 하이퍼링크를 누른 다음
   sID 매개 변수에 409-56-7008을 입력하고 호출을 누릅니다.

   이 메서드는 ID 409-56-7008의 제작자에 대한 세부 정보를 반환합니다.
   결과는 브라우저에 XML로 표시됩니다.
   브라우저 창을 닫아 웹 서비스를 종료합니다.

3.  VB6.0 에서 SOAP을 이용하여 WEB SERVICE를 사용합니다.
   (첨부 파일 참조)

* MSDN 참조

* 고정 IP를 서비스하는 업체의 제품을 사용하여 유동 IP를 고정 IP화 하여

    TEST 한 결과 웹 서버, 터미널 서버 등의 기능은 사용할 수 있었으나

    SQL SERVER를 원격지에서 직접 연결하는 TEST는 성공하지 못했다.

    위의 방법을 이용하면 VB에서 DB를 사용할 수 있다.

    (자연스럽게 3 Tier 방식이 구현된다.)

SOAP.zip

ActiveX Control을 VB로 만들어 웹에 배포하고 홈페이지상에서 이를 활용하는

 방법을 설명한 문서와 관련 프로그램 (lpk_tool.exe)...

** 일반적으로 홈피를 통해서 파일을 Upload 하거나 Download 할때

     ActiveX Control를  PC에 내린 후 이 Control을 통해서 처리하지요.

** 문서를 작성하신 분은 잘 모르겠으나...우리가 통상 찐이라고 부르는

    친구가 구한것임 ^^

[VB]ActiveX_Control을_만들어_웹에_배포하고_홈페이지상에서_이를_활용하는_방법.zip

비베로 작성한 프로그램을 쉽고 맛있게 배포할 수 있도록 도와주는 프로그램 입니다.

공개용으로 작성한 프로그램이군요...

후배가 추천을 해서 올려 둡니다.

실제 업체에서 잘 사용하고 있다고 합니다....

installfactory를 만드셔서 배포하신 멋진분께...감사를....

인스톨팩토리.zip

설비별/품목별 작업일정을 스프레드에 막대형태로 표시하고 일정을 조정

=> 각 일정을 마우스로 click 한 후 이동할 설비 및 일자에 마우스로 우(Right)Click 하면

    일정이 변경 됨 

**

기본 요소만 구현하였슴.

응용하여 각 작업일정관리용 프로그램으로 발전시키면 훌륭한(?) 업무용 프로그램이

될 것임.....진짜루....^^

43prjJob.zip

Excel의 매크로를 이용하면 VB에서 Excel을 제어하는 명령어를 작성 하기가 쉽다.
방법은 아래와 같다.

1) 도구(T) 메뉴의 매크로에서 새 매크로 기록..(R)을 선택한 후 매크로명을 입력
2) Excel Sheet에서 작업을 하면 작업   (내역이 매크로에 기록 됨)
3) 매크로 기록을 중단하고 도구(T) 메뉴의 매크로에서(매크로를 선택) 매크로명을

    선택한 후    편집 버튼을 누르면 매크로가 보임

          -> 매크로를 복사해서 VB에서 편집하면 작업 끝...

   매크로 )
    ActiveSheet.Cells(iRow + 1, iCol).Select
    '
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    ' Left
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

   VB)
    Dim xApp As New Excel.Application

    xApp.Visible = True     ' Excel 표시
    xApp.Workbooks.Add  ' Work Sheet 추가

    xApp.ActiveSheet.Cells(iRow + 1, iCol).Select
    '
    xApp.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    xApp.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    ' Left
    With xApp.Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

MS사 Rick Jesse가 만든 DHTML Sample을 좀 수정해서 올렸습니다.

잘 활용하면 WEB 응용 프로그램 개발이나 GroupWare 등에 활용할 수 있을듯..

일반 Text Editor 보담 재미있어요...^^

(Toolbar 와 DhtmlEdit Component의 개념과 활용법에 대해 많이 알 수 있슴)

NewDhtml.zip

쿼리 분석기 등에서 TEST한 쿼리문을 VB에서 사용 가능한 문장으로

변환 시켜 주는 프로그램

** 프로그램에 적용된 문장을 쿼리문으로도 전환 가능

EX)  A에서 B로 B에서 A로 변환

    A.

        select *
           from table
         where fielda = '123'

    B.

        sSql = ""
        sSql += " select *"
        sSql += "   from table "
        sSql += " where fielda = '123'"

VBQuery.zip

VB로 작성된 프로젝트가 존재하는 디렉토리를 선택한 후

찾고자 하는 단어를 입력하여 찾기 버튼을 누르면 프로젝트에 포함된

폼과 모듈에서 해당 단어가 포함된 Line을 찾아 준다.

**  VB에서는 폼(.FRM)과 Module을 text file형태로 유지함

**  VB로 작성한 프로그램(폼, 모듈)의 Line수 구하기 등에 응용도 가능

덤으로 ___ 스프레드에 표시된 내용을 Excel로 전환하는 버튼도 있슴..^^

frmCheckVB.zip