پاک کردن رکورد

[karim orooji]

با سلام به دوستان ببینید این برنامه من چه مشکلی داره میخوام رکوردی با وارد کردن کد ملی پاک کنم پاک نمیشه
میخوام ببینم مشکلش کجایه





Dim
con As OleDbConnection = New OleDbConnection
con.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=|datadirectory|\karim.mdb;user id=; password=;"
Dim command As OleDbCommand = New OleDbCommand
command.Connection = con
command.CommandText = "select count(*)from k where code_m=@code_m"
command.Parameters.AddWithValue(
"id", Trim(TextBox1.Text))
command.Parameters.AddWithValue("name", Trim(TextBox2.Text))
command.Parameters.AddWithValue("family", Trim(TextBox3.Text))
command.Parameters.AddWithValue("code_m", Trim(TextBox4.Text))
con.Open()
Dim count As Int16 = command.ExecuteScalar
con.Close()
If count <> 0 Then
Dim com1 As OleDbCommand = New OleDbCommand
com1.Connection = con
com1.CommandText = "delete * from k where code_m=@code_m"
com1.Parameters.AddWithValue(
"id", Trim(TextBox1.Text))
com1.Parameters.AddWithValue("name", Trim(TextBox2.Text))
com1.Parameters.AddWithValue("family", Trim(TextBox3.Text))
com1.Parameters.AddWithValue("code_m", Trim(TextBox4.Text))
con.Open()
com1.ExecuteNonQuery()
con.Close()
EndIf

[S_h_m102]

شما به جای
command.CommandText = "select count(*)from k where code_m=@code_m"
بهتر است این کار را بکنید

command.CommandText = "select count(*)from k where code_m= " & Trim(TextBox4.Text)
ضمنا وقتی شما دارید در شی command مستقیما دستور Select را استفاده می کنید نمی توانید که پارامتر اضافه کنید
در دستور حدف هم بهتر است

com1.CommandText = "delete * from k where code_m= " &Trim(TextBox4.Text) "
به این صورت باشد.

و تمامی add Parameter را حذف کنید.