В поисках лучшего способа использования ExecuteScalar () - PullRequest
Новая
       23

В поисках лучшего способа использования ExecuteScalar ()

1 голос
/ 27 февраля 2012

Этот код работает. Он основан на коде, который я нашел в интернете.

Можете ли вы сказать мне, является ли кодирование лучшим способом получения скалярного значения и если есть лучший способ показать образцы кодирования? 

Dim objParentNameFound As Object

TextBoxParentsName.Text = ""

If TextBoxParentID.Text <> "" Then

    ' Display the parent's name using the parent ID. '
    Dim strSqlStatement As String = "Select FatherName " & _
                                      "From Parents " & _
                                     "Where ID = @SearchValue"

    ' Set up the sql command and lookup the parent. '
    Using objSqlCommand As SqlCommand = New SqlCommand(strSqlStatement, ObjConnection)

        With objSqlCommand

            ' Add SqlParameters to the SqlCommand. '
            .Parameters.Clear()
            .Parameters.AddWithValue("@SearchValue", TextBoxParentID.Text)

            ' Open the SqlConnection before executing the query. '
            Try
                ObjConnection.Open()

                Try
                    objParentNameFound = .ExecuteScalar()
                    If objParentNameFound <> Nothing Then

                        ' Display the parent name here. '
                        TextBoxParentsName.Text = objParentNameFound
                    End If

                Catch exSqlErrors As SqlException
                    MessageBox.Show("Sorry, I couldn't execute your query because of this error: " & _
                                    vbCrLf & vbCrLf & exSqlErrors.Message, _
                                    "Error")
                End Try
            Catch exErrors As Exception

                MessageBox.Show("Sorry, there was an error. Details follow: " & _
                                vbCrLf & vbCrLf & exErrors.Message, _
                                "Error")
            Finally
                ObjConnection.Close()
            End Try
        End With 
    End Using 
End If

1 Ответ

3 голосов
/ 27 февраля 2012

Блок приложения Microsoft Access содержит несколько хороших примеров использования ADO.Net.В частности, вам может пригодиться то, как они организовали такие задачи, как ExecuteScalar(), в серию перегруженных методов, облегчающих запуск необходимого процесса.Образец, который вы разместили, очень выиграл бы от разделения проблем.Другими словами, возьмите код, который вы используете для создания соединения, команды и параметров, и сделайте это отдельным методом или методами.Это позволяет повторно использовать код, не копируя и не вставляя его по всей базе кода.Это позволяет вашему вызывающему коду просто передать параметры и привязать результат к вашему текстовому полю или другим элементам управления.

Редактировать: Пример Предполагая, что вы используете класс SqlHelper.vbможет сделать что-то вроде следующего: 

Dim searchValue As Integer = 1
Dim myConnectionString As String = "MyConnectionString"
Dim sqlStatement As String = "SELECT FatherName FROM Parents WHERE ID = @SearchValue"
Dim paramList(0) As SqlParameter
paramList(0) = New SqlParameter() With {.Value = searchValue, .ParameterName = "@SearchValue"}

TextBoxParentsName.Text = SqlHelper.ExecuteScalar(myConnectionString, CommandType.Text, sqlStatement, paramList).ToString()
...