منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] اخوان همتکم , مشکلە بزر خزن الحقول المشکلە مع (التأریخ) - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [كود] اخوان همتکم , مشکلە بزر خزن الحقول المشکلە مع (التأریخ) (/showthread.php?tid=23834)



اخوان همتکم , مشکلە بزر خزن الحقول المشکلە مع (التأریخ) - MohammedHikmat - 13-02-18

 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


RE: اخوان همتکم , مشکلە بزر خزن الحقول المشکلە مع (التأریخ) - خالد - 13-02-18

السلام عليكم ورحمة الله وبركاته


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

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

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


السلام عليكم ورحمة الله وبركاتة



RE: اخوان همتکم , مشکلە بزر خزن الحقول المشکلە مع (التأریخ) - MohammedHikmat - 14-02-18

(13-02-18, 01:57 PM)خالد كتب : بارك الله فيك أخي Angel

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