تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود حدف السجل
#1
اخواني لكرام

السلام عليكم

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

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

رغم انه لا يظهر اي خطأ
الرد }}}
تم الشكر بواسطة:
#2
كود :
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
الرد }}}
تم الشكر بواسطة:
#3
الحمد لله تم حل المشكله

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

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

المفروض بدل TextBox3 تحويلها الى TextBox1
الرد }}}
تم الشكر بواسطة:
#4
من الأفضل تسمية العناصر بطريقة احترافية، وأن لا تعتمد على التسميات التلقائية

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

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



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم