[السيد الجوهري]

   
لدي كود للحذف

ما معنى الرسالة التي بالصورة

كود :

Public Sub delete_day2(ByVal PARENT_GUID As String)
       Dim con As New CLS_CON
       con.EXECUTE_TXT("delete from DAY2 where PAENT_GUID='" & PARENT_GUID & "'")

   End Sub

PHP كود :

Private Sub تعديلToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles تعديلToolStripMenuItem.Click
        Try

            If TXT_GUID.Text = Nothing Then
                MessageBox.Show("لايوجد سند قيد ", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If


            '===============================================================================
            If TXT_D.Text = "0" Then
                MessageBox.Show("المدين =0", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If
            '===============================================================================
            If TXT_C.Text = "0" Then
                MessageBox.Show("الدائن =0", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If
            '===============================================================================
            If TXT_DEF.Text <> "0" Then
                MessageBox.Show("القيد غير متوازن", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If
            update_day1()
            CLS_DAY_.delete_day2(TXT_GUID.Text)
            add_day2()
            MessageBox.Show("تمت عملية التعديل بنجاح", "تأكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub 


[سعود]

محتوى الرسالة يقول لم تتم تهيئة commandtext الخاص بتنفيذ الامر

[محمد كريّم]

هل لديك خطأ في كتابة اسم العمود هنا ؟
PAENT_GUID='" & PARENT_GUID & "'

[أبو عمر]

بما انك تحذف ID رقم ففي جملة الحذف شيل الكوتيشن والاخير لانك تستخدمها مع النصوص فقط
هذا تعديل الكود

PHP كود :

Public Sub delete_day2(ByVal PARENT_GUID As double)
       Dim con As New CLS_CON
       con.EXECUTE_TXT("delete from DAY2 where PAENT_GUID=" & val(PARENT_GUID))

   End Sub 


وقيمة
PARENT_GUID
يجب انها تكون رقم

[السيد الجوهري]

تم تصحيح الاخطاء واتباع الطرق لكن لم يزل الخطاء موجود ولم اتمكن من حذف السجلات