使用VB.Net编程使用MS Access更新SQL Server中的值

Question

我有一个关键需求，需要通过表单和按钮访问Sql服务器中的表，当用户单击表单中的按钮时，他应该能够更新数据库中已经存在的记录。

例如：表有列-EmployeeID、Employee Name、Employer Location

EmployeeID Values
-----
1001|
2301|
3212|

假设用户想单独更新EmployeeName的值，而不是更新员工位置，那么在某些情况下，他应该能够这样做。

update table set EmployeeName=@New_employee_name , Employee Location=@New_employee_location where EmployeeID=@Employee_ID

这应该通过vb.net程序来驱动，以便更新数据库中的用户输入值。

Answer 1

我建议您在SQL Server上创建一个存储过程，下面是一个示例：

CREATE PROCEDURE sp_UpdateEmployeeByID
(
@ID int, 
@TitleID int, 
@FirstName nvarchar(255), 
@LastName nvarchar(255)
)
AS 
BEGIN 
SET NOCOUNT ON;

UPDATE Employee SET 
TitleID = @TitleID, 
FirstName = @FirstName, 
LastName = @LastName
WHERE  ID = @ID
END

使用存储过程而不是专门的SQL可以保护您免受SQL注入攻击，此外还有性能优势。

然后使用VB.Net，您将希望调用存储过程，传递更新的员工值。

Public Sub UpdateEmployeeByID(Byval ID As Int32, Byval TitleID As Int32, Byval FirstName As string, Byval LastName As string)
Dim connString As String = ConfigurationManager.AppSettings("ConnectionString")
Dim conn As New SqlConnection(connString)
conn.Open()
Dim sqlCommand As new SqlClient.SqlCommand("sp_UpdateEmployeeByID", conn)
sqlCommand.CommandType = CommandType.StoredProcedure
sqlCommand.Parameters.AddWithValue("@ID", ID)
sqlCommand.Parameters.AddWithValue("@TitleID", TitleID)
sqlCommand.Parameters.AddWithValue("@FirstName", FirstName)
sqlCommand.Parameters.AddWithValue("@LastName", LastName)
Try
sqlCommand.ExecuteNonQuery()
Catch ex As SqlException
'Handle SQL exceptions
Catch ex As Exception
'Handle exceptions
Finally
'clean up resources that access Data
    If IsNothing(sqlCommand) = False Then
        sqlCommand.Dispose()
        sqlCommand = Nothing
    End If
conn.Close()
End Try
End Sub