تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] اخوان همتکم , مشکلە بزر خزن الحقول المشکلە مع (التأریخ)
#1
 Conversion failed when converting date and/or time from character string  Huh 
و الكود الكامل هو :  ولو  تطلعلکم بالمقلوب Confused
   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
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته


تأكد من صحة التاريخ وذلك بفحص النص من خلال IsDate

ثم عند الحفظ قم بتحويل النص الى تاريخ عن طريق CDate

أعتذر لابتعادي عن البرمجة منذ سنين.


السلام عليكم ورحمة الله وبركاتة
السلام عليكم ورحمة الله وبركاته
وفق الله الجميع لما يحبه ويرضاه
السلام عليكم ورحمة الله وبركاته
الرد
تم الشكر بواسطة: sendbad100 , Sajad , Sajad
#3
(13-02-18, 01:57 PM)خالد كتب : بارك الله فيك أخي Angel

لكن مع اعتذاري لك ,أنا بعد  مبتدئ  Big Grin ... ممكن توضح بسطر مثال ,و جازاك الله خيرا . Shy
الرد
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 2 ) ضيف كريم