qlHelper의 삭제 및 수정

한 가지 일이 여러 번 반복되면 자신을 대신해서 이 반복되는 동작을 할 방법을 찾으려고 한다.프로그램을 쓰는 것도 마찬가지다.
프로그램에서 중복된 부분이 완전히 같다면 우리는 그것을 방법(과정, 함수)으로 써서 권한을 가진 수요자가 모두 얻을 수 있는 곳에 두려고 한다.만약에 수요자가 같은 프로젝트에 있다면 이 방법을 하나의 클래스로 쓰고 수요자가 같은 클래스에 있다면 이 클래스에 단독으로 방법을 만들어서 그것을 쓴다.같은 것을 추상적으로 만들어 여러 사용자에게 호출하는 것이 바로 추상적인 사상이다.
모든 시스템은 데이터의 전송, 조작과 관련된다.한편, 데이터의 조작을 요약하면 추가, 삭제, 수정(CURD)을 제외하고 현재의 시스템은 사용자가 증가함에 따라 점점 더 많은 사용자가 조작하고 빅데이터가 빈번하게 조작된다.만약 원래의 방식으로 쓴다면 복잡한 시스템은 대량의 군더더기 코드를 만들어 낼 것이다.
클래스 위에 두 개의 참조를 추가합니다.

Imports System.Data.SqlClient       '  SQL     
Imports System.Configuration        '      

작업 데이터베이스의 SQLHelper 클래스를 만듭니다.

Public Class SQLHelper

    '             
    Private ReadOnly strSQLConnection As String = ConfigurationManager.AppSettings("sqlConcectStr")
    '    
    Dim connSQL As SqlConnection = New SqlConnection(strSQLConnection)
    '  cmd  
    Dim cmdSQL As New SqlCommand
    '     ///<summary>
    '     ///depiction:<    sqlhelper     >
    '     ///</summary>
    Public Sub New()
        connSQL = New SqlConnection(strSQLConnection)
    End Sub


    ''    ///<summary>
    ''    ///depiction:<            >
    ''    ///<summary>
    Private Sub CloseSQLConnection()
        '                ，      ，   
        If connSQL.State <> ConnectionState.Closed Then
            connSQL.Close()
        End If
    End Sub


    '     ///<summary>
    '     ///depiction:<           >
    '     ///</summary>
    Private Sub CloseSQLCommand()
        '      ，   
        If Not IsNothing(cmdSQL) Then
            cmdSQL.Dispose()   '    
            cmdSQL = Nothing
        End If
    End Sub


    '///<summary>
    ''//         ，（  ）    Boolean  ，        
    '///</summary>
    '   ///<param name="strSql">      ，   Sql  ，      </param>
    '   ///<param name="cmdType">  Sql     ，         </param>
    '   ///<returns>
    '   ///<  Boolean，   true，   false>
    '   ///</returns>
    Public Function ExecuteAddDelUpdate(ByVal strSql As String, ByVal cmdType As CommandType, ByVal sqlParams As SqlParameter()) As Boolean
        '             cmd  
        cmdSQL.Parameters.AddRange(sqlParams)   '    
        cmdSQL.CommandType = cmdType            '
        cmdSQL.Connection = connSQL             '  
        cmdSQL.CommandText = strSql             '    

        Try
            connSQL.Open()                     '    
            Return cmdSQL.ExecuteNonQuery()    '    
            cmdSQL.Parameters.Clear()          '    
        Catch ex As Exception
            Return False
        Finally
            Call CloseSQLConnection()          '    
            Call CloseSQLCommand()             '    
        End Try

    End Function


    '///<summary>
    '///         ，（  ）    Boolean  ，        
    ''///</summary>
    '///<param name="strSql">      ，   Sql  ，      </param>
    '   ///<returns>
    '        ///<  Boolean  ，   true，   false>
    '///</returns>
    Public Function ExecuteAddDelUpdate(ByVal strSql As String, ByVal cmdType As CommandType) As Boolean
        '            cmd  
        cmdSQL.CommandType = cmdType         ' 
        cmdSQL.Connection = connSQL          '    
        cmdSQL.CommandText = strSql          '      


        Try
            connSQL.Open()                   '    
            Return cmdSQL.ExecuteNonQuery()  '  sql         
        Catch ex As Exception
            Return False
        Finally
            Call CloseSQLConnection()          '    
            Call CloseSQLCommand()             '    
        End Try


    End Function

    '///<summary>
    ''///      ，（  ）    DataTable  
    '///</summary>
    '    ///<param name="strSql">      ，   Sql  ，      </param>
    ''   ///<param name="cmdType">  Sql     ，         </param>
    '    ///<returns>
    '         ///<   >
    '    ///</returns>
    Public Function ExecuteSelect(ByVal strSql As String, ByVal cmdType As CommandType, ByVal sqlParams As SqlParameter()) As DataTable
        Dim sqlAdapter As SqlDataAdapter
        Dim dtSQL As New DataTable
        Dim dsSQL As New DataSet

        '             cmd  
        cmdSQL.Parameters.AddRange(sqlParams)      '    
        cmdSQL.CommandType = cmdType
        cmdSQL.Connection = connSQL                '    
        cmdSQL.CommandText = strSql                '    

        sqlAdapter = New SqlDataAdapter(cmdSQL)    '   Adapter

        Try
            sqlAdapter.Fill(dsSQL)               ' Adater DataSet  
            dtSQL = dsSQL.Tables(0)              'DataTable DataSet     
            cmdSQL.Parameters.Clear()            '    
        Catch ex As Exception
            MsgBox("    ", CType(vbOKOnly + MsgBoxStyle.Exclamation, MsgBoxStyle), "  ")
        Finally
            Call CloseSQLCommand()
        End Try

        Return dtSQL

    End Function


    '///<summary>
    ''//      ，（  ）    DataTable  
    ''</summary>
    '    ///<param name="strSql">      ，   Sql  ，      </param>
    '    ///<param name="cmdType">  Sql     ，         </param>
    '    ///<returns>
    '       ///<   >
    '    ///</returns>
    Public Function ExecuteSelect(ByVal strSql As String, ByVal cmdType As CommandType) As DataTable
        Dim sqlAdapter As SqlDataAdapter
        Dim dtSQL As New DataTable
        Dim dsSQL As New DataSet

        '            cmd  
        cmdSQL.CommandText = strSql
        cmdSQL.CommandType = cmdType
        cmdSQL.Connection = connSQL
        sqlAdapter = New SqlDataAdapter(cmdSQL)         '   Adapter

        Try
            sqlAdapter.Fill(dsSQL)                      ' Adaper DataSet  
            dtSQL = dsSQL.Tables(0)                     'DataTable DataSet     
        Catch ex As Exception
            MsgBox("    ", CType(vbOKOnly + MsgBoxStyle.Exclamation, MsgBoxStyle), "  ")
        Finally
            Call CloseSQLCommand()
        End Try

        Return dtSQL

    End Function

End Class