使用.net中的参数更新数据库

Question

更推荐使用这两种方法中的哪一种来使用给定的查询字符串更新数据库：

选项 1：

Dim query As String = "INSERT INTO employee VALUES (@Name, @Age)"
Dim command As New SqlClient.SqlCommand(query, sqlConnection)

Dim params As SqlParameter() = {
    New SqlParameter("@Name", txtName.Value),
    New SqlParameter("@Age", txtAge.Value))
}

Call UpdateDatabase(command, params, NumError, DescError)

Public Sub UpdateDatabase(ByVal command As SqlCommand, ByVal parameters() As SqlParameter, ByRef NumError As Double, ByRef DescError As String)
Try
    For Each parameter In parameters
        command.Parameters.Add(parameter)
    Next
    command.ExecuteNonQuery()
    command.Dispose()
    NumError = 0
    DescError = ""
    Catch ex As Exception
        NumError = Err.Number
        DescError = Err.Description
    End Try
End Sub

选项 2：

Dim query As String = "INSERT INTO employee VALUES (@Name, @Age)"
Dim command As New SqlClient.SqlCommand(query, sqlConnection)

command.Parameters.AddWithValue("@Name", txtName.Value)
command.Parameters.AddWithValue("@Age", txtAge.Value)

Call UpdateDatabase(command, NumError, DescError)

Public Sub UpdateDatabase(ByVal command As SqlCommand, ByRef NumError As Double, ByRef DescError As String)
    Try
        command.ExecuteNonQuery()
        command.Dispose()
        NumError = 0
        DescError = ""
    Catch ex As Exception
        NumError = Err.Number
        DescError = Err.Description
    End Try
End Sub

或者还有其他更好的方法吗？

Answer 1

看起来您正在尝试创建一个可重用的 UpdateCommand，这一切都很好。除了不打开连接之外，我不确定您是否正在关闭连接（除非 command.Dispose 也关闭连接）。您最好将尽可能多的数据库连接移至 Sub 中 另外，

我不确定您从异常块中得到 Err. ，但我建议设计一种更好的方法来处理任何异常 - 也许将其记录在某个地方

。 bool 表示成功/失败：

Public Function UpdateDatabase(ByVal sql As String, ByVal parameters() As SqlParameter) As Boolean

    Dim Successful As Boolean = False

    Try
        Using conn As SqlConnection = new SqlConnection(sqlConnection)
            Using command As New SqlCommand(sql, conn)

                command.CommandType = CommandType.Text        

                For Each parameter As SqlParameter In parameters
                    command.Parameters.Add(parameter)
                Next

                conn.Open()

                command.ExecuteNonQuery()
                Successful = True
            End Using       
        End Using        
    Catch ex As Exception
        Successful = False
        ' Do something with the exception
    End Try

End Function

You然后可以这样做：

Dim query As String = "INSERT INTO employee VALUES (@Name, @Age)"

Dim params As SqlParameter() = {
    New SqlParameter("@Name", txtName.Value),
    New SqlParameter("@Age", txtAge.Value))
}

Dim Updated As Boolean = UpdateDatabase(query, params)

此示例假设 sqlConnection 是保存连接字符串的类级别变量，如果需要，您也可以直接从配置文件中读取它

。 ，您需要传入一个空数组（或修改函数中的代码以检查 params = Nothing）：

Dim params As SqlParameter()
Dim Updated As Boolean = UpdateDatabase(query, params)  

Answer 2

由于与数据库访问无关的一个主要原因，这些都没有任何好处......

您正在吞噬所有托管异常。仅在可以适当处理异常的情况下才处理异常，几乎不需要接受异常并将其转换为返回值。在我看来，如果你这样做，那就不再是特殊情况了。

我不太记得 VB.NET Using 语法，因此我还无法提供另一个示例。我也不会使用Call，我认为这不是必需的。

伪代码排序：

Using Dim command As New SqlCommand("INSERT...", conn)
    command.Parameters.AddWithValue()
    ....

    command.ExecuteNonQuery() // No need to call dispose, Using does that.
End Using