Dim cmd As SqlCommand
Dim conn As SqlConnection = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\login.mdf;Integrated Security=True;User Instance=True")
Dim myDA As SqlDataAdapter
Dim myDataSet As DataSet
Dim cmdBuilder As New SqlCommandBuilder(myDA)
Private Sub ButtonDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonDelete.Click
conn.Open()
cmd = New SqlCommand("DELETE FROM Employee WHERE employeeID = '" & eIDTextBox.Text & "'", conn)
cmd.ExecuteNonQuery()
ShowData()
If conn.State <> ConnectionState.Closed Then
conn.Close()
End If
End Sub
Public Sub ShowData()
cmd = New SqlCommand("SELECT * FROM Employee", conn)
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
myDA = New SqlDataAdapter(cmd)
myDataSet = New DataSet()
myDA.Fill(myDataSet, "Employee")
DataGridView1.DataSource = myDataSet.Tables("Employee").DefaultView
myDA.Update(myDataSet.Tables("Employee"))
