(28-02-17, 08:03 AM)yahya3215 كتب : السلام عليكم ورحمة الله وبركاته

يوجد جدول يحتوي على ستة حقول احدها ترقيم تلقائي وعند كتابة كود حذف بيانات الجدول يظهر خطأ في وإذا قمت بتعديل حقل الترقيم التلقائي وجعله نص يتم الحذف ويعمل الكود, ترى ما السبب وكيف اصلاحه؟ وشكراً

PHP كود :

If Conn.State = ConnectionState.Closed Then
            Conn.Open()
        End If


        Dim cmd2 As New OleDb.OleDbCommand
        cmd2.Connection = Conn
        cmd2.CommandType = CommandType.Text
        cmd2.CommandText = "DELETE FROM Expenses WHERE ID  = '" & TEXT1.TEXT & "'"


        cmd2.ExecuteScalar()
        Conn.Close() 


(28-02-17, 02:01 PM)thevirus كتب :

(28-02-17, 08:03 AM)yahya3215 كتب : السلام عليكم ورحمة الله وبركاته

يوجد جدول يحتوي على ستة حقول احدها ترقيم تلقائي وعند كتابة كود حذف بيانات الجدول يظهر خطأ في وإذا قمت بتعديل حقل الترقيم التلقائي وجعله نص يتم الحذف ويعمل الكود, ترى ما السبب وكيف اصلاحه؟ وشكراً

PHP كود :

If Conn.State = ConnectionState.Closed Then
            Conn.Open()
        End If


        Dim cmd2 As New OleDb.OleDbCommand
        cmd2.Connection = Conn
        cmd2.CommandType = CommandType.Text
        cmd2.CommandText = "DELETE FROM Expenses WHERE ID  = '" & TEXT1.TEXT & "'"


        cmd2.ExecuteScalar()
        Conn.Close() 


لا تقم بوضع علامتي التنصيص المفردة إلا في حالة النصوص فقط اما الارقام يجب ان تضعها بدون ' '
أي سيكون كالاتي

كود :

DELET FROM Expenses Where ID = " & Text1.Text & "
cmd2.ExecuteNonQuery