由 Form Textbox 上 Delete Record 至 SQL Server

 

   由 Form Textbox 上 Delete Record 至 SQL Server
 
   Private Sub DeleteStaff()
 
      Dim connectionString1 As String = "Data Source=.\SqlExpress; Initial Catalog=Admin; Integrated Security=SSPI"
      Dim con1 As SqlConnection = New SqlConnection(connectionString1)
      con1.Open()
 
      Dim SqlString1 As String = "DELETE FROM dbo.Staff WHERE Staff_ID = @Staff_ID "
 
      Dim cmd1 As SqlCommand = New SqlCommand(SqlString1, con1)
      cmd1.Parameters.AddWithValue("@Staff_ID", TextBox1.Text.ToString.Trim)
 
      cmd1.ExecuteNonQuery()
 
      cmd1.Dispose()
      con1.Dispose()
 
   End Sub