[egypt 2020]

(01-02-20, 03:37 PM)tahaayyoub كتب : مشكلة في حذف سطر من جدول
الجدول اسمه documents
المفتاح id_doc
النوع Nvarchar
*************************
 Private Sub DeleteRecord()
        Try
            Dim RowsAffected As Integer = 0
            Connect()
            con.Open()
            Dim cq As String = "delete from documents where id_doc=" & TextBox1.Text & ""
            cmd = New SqlCommand(cq)
            cmd.Connection = con
            MsgBox("sava")
            RowsAffected = cmd.ExecuteNonQuery()
            If RowsAffected > 0 Then
                MessageBox.Show("تم حذف طرف من الجدول", "السجل", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Reset1()
                VoirAffaires1.DataGridView2.Refresh()
            Else
                MessageBox.Show("المعني غير موجود", "حاول", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Reset1()
            End If
            If con.State = ConnectionState.Open Then
                con.Close()

            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
        End Try
    End Sub
********************************************
تظهر رسالة الخطا التالي
********************************************
convertion failed when converting the nvarchar value '20/0001' to data type int 
علما اني ان الجدول به ترقيم خاص على شكل سنة/ترقيم تسلسلي  20/0001 وهو من النوع NVARCHAR
السطر المراد حذفه ماخوذ من داتا قريد في فورم اخر


الرجاء المساعدة

حاول بالكود ة

كود :

Try

           con.Open()
           cmd.Connection = con
           cmd.CommandText = "delete from documents where id_doc= @id_doc"
           cmd.Parameters.Add(New SqlParameter("@id_doc", TextBox1.Text))
           cmd.ExecuteNonQuery()
           con.Close()
           MsgBox("تم حذف البيانات")
       Catch ex As Exception
           MessageBox.Show("يوجد خطا اثناء الحذف..." & ex.Message, "رسالة خطا")
       Finally
           con.Close()
           Exit Sub
       End Try