코드 검토 - ExecuteScalar를 사용하여 데이터베이스에서 값을 가져 오는 Vb.Net

Question

누군가가 이것을 검토하는 데 도움이 될 수 있습니까?이 방법이 VB.Net 코드를 작성하는 올바른 방법입니다. 다음은 데이터베이스에서 값을 가져 오기 위해 작성된 함수입니다.

Public Function GetIdfromDatabase(ByVal var_Id As IntegerAs String 

    'Initialize Variables 
    Dim _GetIdfromDatabase As String 
    _GetIdfromDatabase = Nothing 

    Try 
     _SQLCommand = New SqlCommand("Process", _Conn) 
     _SQLCommand.CommandText = "Select Name from Process where ID= @Id" 
     _SQLCommand.Parameters.Add(New SqlParameter("@ID", SqlDbType.Integer)) 
     _SQLCommand.Parameters(0).Value = var_Id 
     If (_Conn.State <> ConnectionState.Open) Then _Conn.Open() 
     lvar_GetJobName = _SQLCommand.ExecuteScalar() 

    Catch ex As Exception 
     LogError("Error details and description.", ex) 
    Finally 
     If Not _SQLCommand Is Nothing Then 
      _kSQLCommand.Dispose() 
     End If 
     If Not _Conn Is Nothing Then 
      _.Close() 
     End If 
    End Try 

    If _GetIdfromDatabase = Nothing Then 
    'Log Error here 
End If 

    Return _GetIdfromDatabase 
End Function 

Answer 1

https://softwareengineering.stackexchange.com/ 아마이를 게시 할 수있는 더 좋은 곳이지만, 여기 어쨌든 간다. 중요성의 순서대로.

사실 실제로 잘못된 것은 당신이 (거의 확실하게) 그것을 로깅 한 후에 예외를 제 거해야한다는 것입니다. 당신도 훌륭한 이유가 없다면. Google ".net 예외 사례 모범 사례".

코드 재사용 및 표준화를 위해 연결을 처리하는 ExecuteScalar 함수가 있어야합니다.

확실히 USING을 사용하면 finally 문보다 더 나은 방법입니다. 아래는 극한으로 가지 않으면 서 어떻게 할 수 있느냐입니다.

_GetIdfromDatabase의 이름이 잘못 지정되었으므로 앞에 오는 밑줄은 일반적으로 클래스 수준 변수를 나타냅니다.

Public Function GetIdfromDatabase(ByVal var_Id As Integer) As String 

    Dim SQLCommand = New SqlCommand() 
    SQLCommand.CommandText = "Select Name from Process where ID= @Id" 
    SQLCommand.Parameters.AddWithValue("@ID", var_Id) 

    Dim sId = ExecuteScalarString(SQLCommand) 

    If String.IsNullOrEmpty(sId) Then 
     'Log Error here 
     'throw exception? 
    End If 

    Return sId 

End Function  
    Public Function ExecuteScalarString(cmd As SqlCommand) As String 

    Return ExecuteScalar(cmd).ToString 
End Function 

Public Function ExecuteScalarInt(cmd As SqlCommand) As Integer 
    Dim returnInt As Integer 
    If Integer.TryParse((ExecuteScalar(cmd).ToString), returnInt) Then 
     Return returnInt 
    End If 

    ' if we get to here it was not an integer 
    'Log Error here 
    Throw New Exception("oopsy") 
End Function 

Public Function ExecuteScalar(cmd As SqlCommand) As Object 

    Dim returnObject As Object 
    Using con As New SqlConnection(_conString) 
     Using cmd 
      Try 

       con.Open() 
       returnObject = cmd.ExecuteScalar() 

      Catch ex As Exception 
       LogError("Error details and description.", ex) 
       Throw 
      End Try 

     End Using 
    End Using 

    Return returnObject 

End Function