13-02-18, 12:40 PM
Conversion failed when converting date and/or time from character string
و الكود الكامل هو :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
For Each row As DataGridViewRow In DataGridView1.Rows
If Not row.IsNewRow Then
con.Open()
Using cmd As New SqlClient.SqlCommand("INSERT INTO Buy VALUES(@IDinvoice,@ID,@NameOwner,@NameC,@Phone,@Address,@NameP,@Type,@Number,@Details,@Country,@BuyP,@SaleP,@Barcode,@OwnOrFrnd,@Note,@Date)", con)
cmd.Parameters.AddWithValue("@IDinvoice", row.Cells("رقم الوصل").Value)
cmd.Parameters.AddWithValue("@ID", row.Cells("رقم القطعة").Value)
cmd.Parameters.AddWithValue("@NameOwner", row.Cells("المحل").Value)
cmd.Parameters.AddWithValue("@NameC", row.Cells("اسم المحاسب").Value)
cmd.Parameters.AddWithValue("@Phone", row.Cells("الهاتف").Value)
cmd.Parameters.AddWithValue("@Address", row.Cells("العنوان").Value)
cmd.Parameters.AddWithValue("@NameP", row.Cells("اسم القطعة").Value)
cmd.Parameters.AddWithValue("@Type", row.Cells("النوع").Value)
cmd.Parameters.AddWithValue("@Number", row.Cells("العدد").Value)
cmd.Parameters.AddWithValue("@Details", row.Cells("معلومات أكثر").Value)
cmd.Parameters.AddWithValue("@Country", row.Cells("الدولة المنشأة").Value)
cmd.Parameters.AddWithValue("@BuyP", row.Cells("سعر الجملة").Value)
cmd.Parameters.AddWithValue("@SaleP", row.Cells("سعر المفرد").Value)
cmd.Parameters.AddWithValue("@Barcode", row.Cells("بارکود").Value)
cmd.Parameters.AddWithValue("@OwnOrFrnd", row.Cells("ملک أو عالتصریف").Value)
cmd.Parameters.AddWithValue("@Note", row.Cells("ملاحظات").Value)
cmd.Parameters.AddWithValue("@Date", row.Cells("التأريخ").Value)
cmd.ExecuteNonQuery()
con.Close()
End Using
End If
Next
و الكود الكامل هو :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
For Each row As DataGridViewRow In DataGridView1.Rows
If Not row.IsNewRow Then
con.Open()
Using cmd As New SqlClient.SqlCommand("INSERT INTO Buy VALUES(@IDinvoice,@ID,@NameOwner,@NameC,@Phone,@Address,@NameP,@Type,@Number,@Details,@Country,@BuyP,@SaleP,@Barcode,@OwnOrFrnd,@Note,@Date)", con)
cmd.Parameters.AddWithValue("@IDinvoice", row.Cells("رقم الوصل").Value)
cmd.Parameters.AddWithValue("@ID", row.Cells("رقم القطعة").Value)
cmd.Parameters.AddWithValue("@NameOwner", row.Cells("المحل").Value)
cmd.Parameters.AddWithValue("@NameC", row.Cells("اسم المحاسب").Value)
cmd.Parameters.AddWithValue("@Phone", row.Cells("الهاتف").Value)
cmd.Parameters.AddWithValue("@Address", row.Cells("العنوان").Value)
cmd.Parameters.AddWithValue("@NameP", row.Cells("اسم القطعة").Value)
cmd.Parameters.AddWithValue("@Type", row.Cells("النوع").Value)
cmd.Parameters.AddWithValue("@Number", row.Cells("العدد").Value)
cmd.Parameters.AddWithValue("@Details", row.Cells("معلومات أكثر").Value)
cmd.Parameters.AddWithValue("@Country", row.Cells("الدولة المنشأة").Value)
cmd.Parameters.AddWithValue("@BuyP", row.Cells("سعر الجملة").Value)
cmd.Parameters.AddWithValue("@SaleP", row.Cells("سعر المفرد").Value)
cmd.Parameters.AddWithValue("@Barcode", row.Cells("بارکود").Value)
cmd.Parameters.AddWithValue("@OwnOrFrnd", row.Cells("ملک أو عالتصریف").Value)
cmd.Parameters.AddWithValue("@Note", row.Cells("ملاحظات").Value)
cmd.Parameters.AddWithValue("@Date", row.Cells("التأريخ").Value)
cmd.ExecuteNonQuery()
con.Close()
End Using
End If
Next