Xoá dữ liệu trên Listvew không được

[sinpro]

Các anh, chị cho em hỏi vấn đề này.
Trên bảng listview em load dữ liệu từ SQL server.
Thao tác thêm, lưu, đều ok hết.
Chỉ còn lệnh xoá dữ liệu thì bị như sau. Cụ thể là :
Trên bảng Nhân Viên, kiểu dữ liệu của Mã nhân viên là nchar, khi em nhập số thì xoá được ( nhưng chỉ xoá được mã số từ 1->9 thôi, còn từ hai 2 kí tự trở lên, VD: 10, 11, 123, 2345 thì lại xoá không được ). Cái thứ 2 là nhập mã số nhân viên là chữ thì không xoá được luôn , VD: NV001, NV .
=> Tất cả các vấn đề trên không thấy báo lỗi khi nhấn " Button Xoá " nên em chả biết sửa lỗi như thế nào nữa, pó tay.com

Anh, chị nào có kinh nghiệm chỉ em với nha, cảm ơn cả nhà.

Code của em đây:
Private Sub btnxoa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnxoa.Click
Try
Cm = New SqlCommand()
Cm.CommandText = "DeleteNHANVIEN"
Cm.CommandType = CommandType.StoredProcedure
Cm.Connection = Cnn

Cm.Parameters.AddWithValue("@MaNV", Me.TextBox1.Text)
Cm.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message)
End Try

ListView1.Items.Clear()
Dim dr As SqlDataReader

Cm = New SqlCommand("select * from NHANVIEN", Cnn)
dr = Cm.ExecuteReader

Dim item As ListViewItem
Try
While dr.Read()
item = New ListViewItem
item.Text = dr("MaNV")
item.SubItems.Add(dr("TenNV"))
item.SubItems.Add(dr("SDTNV"))

ListView1.Items.Add(item)
End While
Catch ex As Exception
MsgBox(ex.Message)
End Try
dr.Close()

End Sub

[bachnga]

Theo tôi thì bạn xem lại cái code của Store Procedure DeleteNHANVIEN

[miniboom293]

Private Sub btnxoa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnxoa.Click
Try
Cm = New SqlCommand()
Cm.CommandText = "DELETE FROM NHANVIEN" ----- Bạn thử sửa lại chỗ này xem -----
Cm.CommandType = CommandType.StoredProcedure
Cm.Connection = Cnn

Cm.Parameters.AddWithValue("@MaNV", Me.TextBox1.Text)
Cm.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message)
End Try

ListView1.Items.Clear()
Dim dr As SqlDataReader

Cm = New SqlCommand("select * from NHANVIEN", Cnn)
dr = Cm.ExecuteReader

Dim item As ListViewItem
Try
While dr.Read()
item = New ListViewItem
item.Text = dr("MaNV")
item.SubItems.Add(dr("TenNV"))
item.SubItems.Add(dr("SDTNV"))

ListView1.Items.Add(item)
End While
Catch ex As Exception
MsgBox(ex.Message)
End Try
dr.Close()

End Sub