[كود] اخوان همتکم , مشکلە بزر خزن الحقول المشکلە مع (التأریخ) - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 و الكود الكامل هو : ولو تطلعلکم بالمقلوب 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)خالد كتب : بارك الله فيك أخي لكن مع اعتذاري لك ,أنا بعد مبتدئ ... ممكن توضح بسطر مثال ,و جازاك الله خيرا . |