[VB] FTP 기능 담당 모듈

View Comments


VB에서 특정 FTP 서버에 파일을 업로드하기 위한 모듈.

wininet.dll을 사용하여 FTP 업로드기능을 구현함.

1. 공용 변수 및 함수 선언



2. FTP 서버 접속



3. FTP 업로드


4. 접속 종료

'FTP접속종료
Public Sub FtpClose()
  
    If hConnection <> 0 Then InternetCloseHandle hConnection
    hConnection = 0
 
End Sub

5. 기능 사용예

If FtpOpen(FTP 접속 IP, FTP 접속 Port, FTP 접속 사용자 이름, FTP 접속 비밀번호) = False Then
   MsgBox "FTP 서버접속 실패!", vbCritical, "확인"
   Exit Sub
End If
               
If FTPUpload(업로드할 로컬 파일,  원격 서버 파일, ProgrssBar를 가지고 있는 폼 객체) = False Then
   MsgBox "FTP 서버전송 실패!", vbCritical, "확인"
End If

Call FtpClose

MsgBox "전송 완료"
Unload frmProgress

※ 테스트시 유의할점

테스트를 위해서 기본 폼 외에 ProgressBar를 가지고 있는 폼을 따로 생성해두어야 합니다.
따로 폼 생성을 하기 싫으면 함수 모듈 중 FTPUoload 함수 마지막 인자를 없애고
FTPUpload 함수 내 objTarget 객체를 삭제를 하여 사용을 하시기 바랍니다.

* 이 포스트는 blogkorea [블코채널 : 프로그램에 대한 개발팁 및 유용한 정보 공유합시다.] 에 링크 되어있습니다.


댓글0 Comments (+add yours?)

트랙백0 Tracbacks (+view to the desc.)

[VB] 비주얼베이직에서 스크롤 가능하게 설정

View Comments

* 비주얼베이직에서 스크롤 가능하게 설정

비주얼베이직에서는 기본적으로 마우스 휠을 사용한 화면 스크롤 자체가 안된다.

그래서 소스가 길어서 스크롤이 생겼을 때 아래 내용을 볼려면 페이지 업/다운이나 화살표를 이용해야하는

불편함이 있다.

하지만 사람이란건 어떤 걸 사용하다가 불편을 느끼면 그걸 해소하기 위한 도구를 만드는법 ^^;

내가 만든 건 아니지만 유용한 추가기능을 하나 찾았다.
:

바로 첨부파일에 있는 건데 다운로드 후 VBA Mouse Wheel Fix.reg를 실행해서 레지스트리에 등록을 한 다음

비베를 실행하여 메뉴의 추가기능 하위 메뉴인 추가기능 관리자를 선택해서 그림과 같이 설정한다.

사용자 삽입 이미지


확인을 한 다음에 마우스 휠을 돌려보면 휙~휙~ 아래 위 스크롤이 잘 된다.


댓글0 Comments (+add yours?)

트랙백0 Tracbacks (+view to the desc.)

[VB.Net] PostgreSQL 데이터 조회하기

View Comments

1. 테이블에서 데이터 조회
      Dim intCount As Integer
 
        Try
            If DB_CONNECT() Then
                strCmd.Connection = gOleDBConn
                strCmd.CommandType = CommandType.Text
                strCmd.CommandText = "SELECT * FROM code"
 
                objDA.SelectCommand = strCmd
                objDA.Fill(objDS, "code")
 
                With objDS.Tables("code")
                    For intCount = 0 To .Rows.Count - 1
                        cbRelate.Items.Add(.Rows(intCount).Item("c_code").ToString & " : " & .Rows(intCount).Item("c_value").ToString)
                    Next
                End With
 
                Call DB_DISCONNECT()
            Else
                MessageBox.Show("DB 연결을 확인하십시오!", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
 
            Call DB_DISCONNECT()
        End Try

댓글0 Comments (+add yours?)

트랙백0 Tracbacks (+view to the desc.)

[VB.Net] PostgreSQL OleDB 연결하기

View Comments

1. OleDB 연결을 위한 ConnectString
   - "Provider=PostgreSQL OLE DB Provider;Data Source=DB서버 주소;location=DB명;User ID=아이디;password=비밀번호"
 
2. DB 연결 함수
   Private gOleDBConn As OleDb.OleDbConnection
   Public objDA As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter()
   Public objDS As DataSet = New DataSet()
   Public strCmd As OleDb.OleDbCommand = New OleDb.OleDbCommand()
 
   Public Function DB_CONNECT() As Boolean
        Dim strConn As String = "Provider=PostgreSQL OLE DB Provider;Data Source=DB서버 주소;location=DB명;User ID=아이디;password=비밀번호"
 
        Try
            If gOleDBConn Is Nothing Then
                gOleDBConn = New OleDb.OleDbConnection(strConn)
                gOleDBConn.Open()
            Else
                If gOleDBConn.State = ConnectionState.Open Then
                ElseIf gOleDBConn.State = ConnectionState.Closed Then
                    gOleDBConn = New OleDb.OleDbConnection(strConn)
 
                    gOleDBConn.Open()
                End If
            End If
        Catch ex As Exception
            Console.WriteLine(ex.Message)
 
            If gOleDBConn.State = ConnectionState.Closed Then
                DB_CONNECT = False
                MsgBox("데이터베이스 접속 실패!", MsgBoxStyle.Critical, "Error")
            Else
                DB_CONNECT = True
            End If
        End Try
 
        DB_CONNECT = True
    End Function
 
3. DB 연결 해제 함수
   Public Function DB_DISCONNECT() As Boolean
        Try
            If gOleDBConn.State = ConnectionState.Open Then
                objDA.Dispose()
                objDS.Dispose()
                strCmd.Dispose()
                gOleDBConn.Close()
            ElseIf gOleDBConn.State = ConnectionState.Closed Then
                MsgBox("데이터 베이스가 이미 연결 해제 상태입니다!", MsgBoxStyle.Critical, "Error")
            End If
        Catch ex As Exception
            Console.WriteLine(ex.Message)
 
            If gOleDBConn.State = ConnectionState.Open Then
                objDA.Dispose()
                objDS.Dispose()
                strCmd.Dispose()
                gOleDBConn.Close()
            End If
        End Try
 
        DB_DISCONNECT = True
    End Function

댓글0 Comments (+add yours?)

트랙백0 Tracbacks (+view to the desc.)

[VB.Net] PostgreSQL 데이터 입력하기

View Comments

1. 신규 데이터 입력하기
        Dim intCount As Integer
 
        Try
            If DB_CONNECT() Then
                strCmd.Connection = gOleDBConn
                strCmd.CommandType = CommandType.Text
                strCmd.CommandText = "INSERT INTO person VALUES('" & cbRelate.Text.Substring(0, 2) & "', '" & txtName.Text & "', '" & txtBirthday.Text & "', '" & txtHomeAddr.Text & "', '" & txtHomeTel.Text & "', '" & txtComName.Text & "', '" & txtComAddr.Text & "', '" & txtComTel.Text & "', '" & txtCellPhone.Text & "', '" & txtMemo.Text & "')"
 
                objDA.InsertCommand = strCmd
                intCount = objDA.InsertCommand.ExecuteNonQuery()
 
                If intCount = -1 Then
                    MessageBox.Show("데이터 입력 성공", "SUCCESS", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Else
                    MessageBox.Show("데이터 입력 실패!", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End If
 
                Call DB_DISCONNECT()
            Else
                MessageBox.Show("DB 연결을 확인하십시오!", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
 
            Call DB_DISCONNECT()
        End Try

댓글0 Comments (+add yours?)

트랙백0 Tracbacks (+view to the desc.)

[VB] 스캐너 제어 라이브러리

View Comments

첨부파일 :




스캐너 제어 프로그램에 필요한 라이브러리.

상용라이브러리인지 Trial 버전밖에 없네.

설치하면 VB6에서 구성요소 추가로 사용이 가능하다.

설치시 데모 소스와 메뉴얼도 같이 설치가 되니

메뉴얼 참고하면서 소스 분석하면 쉽게 스캐너 제어를 할 수 있을 듯 하다.

데모 소스라 복잡하지도 않고 기본적인 기능만 있음.


출처 : http://www.ciansoft.com/twaincontrolx/default.asp

위 출처 사이트에 가보면 .Net용도 있고 다른 프로그램도 있으니 참고삼아 가볼만도 함.


댓글0 Comments (+add yours?)

트랙백0 Tracbacks (+view to the desc.)

Newer Entries Older Entries