اخوانى السلام عليكم ورحمه الله وبركاته انا اريد ان امسح سجل من قاعده بيانات اكسس مربوطه مع الفاجوال بيزك.net وكلما نفذت عمليه المسح يظهر البرنامج ان هناك خطا فى savinto.ExecuteNonQuery() ويشير عليها بمستطيل اصفر واليكم الكود المستخدم Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If MsgBox("هل تريد حذف السجل", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
Exit Sub
End If
Dim savinto As New OleDb.OleDbCommand
Dim dataadapter1 As New OleDbDataAdapter(sqlstr, conn)
savinto.commandtype = CommandType.Text
savinto.CommandText = "delete from table1 where mobile='" & Trim(TextBox1.Text) & "'"
conn.Open()
savinto.ExecuteNonQuery()
dataset1.Clear()
dataadapter1.Fill(dataset1, "table1")
conn.Close()
MsgBox("عمليه الحزف تمت بنجاح")
changePosition()
End Sub
