[alaqsa]

اخواني لكرام

السلام عليكم

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

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

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

[alaqsa]

كود :

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

[alaqsa]

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

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

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

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

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

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

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

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