由 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 |