منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود حدف السجل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود حدف السجل (/showthread.php?tid=9308)

كود حدف السجل - alaqsa - 17-06-13

اخواني لكرام

السلام عليكم

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

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

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

كود حدف السجل - alaqsa - 17-06-13

كود :
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 - 17-06-13

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

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

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

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

كود حدف السجل - أبوبكر سويدان - 18-06-13

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

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

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