منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اخواني لكرام

السلام عليكم

اتمنى منكم اخباري ما المشكله في الكود

لانه لا يتم الحذف

رغم انه لا يظهر اي خطأ

كود :

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        If MsgBox("Do you want to delete the current record", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then

            Exit Sub

        End If

        Dim SavInto As New OleDb.OleDbCommand

        Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)

        SavInto.Connection = Conn

        SavInto.CommandType = CommandType.Text

        SavInto.CommandText = "DELETE FROM Table1 WHERE EmpNo ='" & Trim(TextBox3.Text) & "'"

        Conn.Open()

        SavInto.ExecuteNonQuery()

        DataSet1.Clear()

        DataAdapter1.Fill(DataSet1, "Table1")

        Conn.Close()

        MsgBox("Deletion was successful")

        ChangePosition()

    End Sub

الحمد لله تم حل المشكله

كانت في هذا الكود

"DELETE FROM Table1 WHERE EmpNo ='" & Trim(TextBox3.Text) & "'"

المفروض بدل TextBox3 تحويلها الى TextBox1

من الأفضل تسمية العناصر بطريقة احترافية، وأن لا تعتمد على التسميات التلقائية

فمثلاً، صندوق النصوص الخاص باسم الطالب: سمّه txtStudentName
والصندوق الخاص بالعمر مثلاً سمّه: txtAge

وهكذا، وبالتالي لن تتعرض للمشاكل عند البرمجة أو مراجعة الكود في فترة لاحقة.

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

alaqsa

alaqsa

alaqsa

أبوبكر سويدان