[VB.Net] PostgreSQL OleDB 연결하기

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

 

출처 : http://parkgunstyle.kr/4