[VB.NET] رحم الله من ساعدني في مشكلة الوقت تظهر لي هذه الرسالة - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : [VB.NET] رحم الله من ساعدني في مشكلة الوقت تظهر لي هذه الرسالة (/showthread.php?tid=23830) |
رحم الله من ساعدني في مشكلة الوقت تظهر لي هذه الرسالة - 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 خلية التاريخ(اخر سطر) حط امامها cdate(row.cells.value) ده لو كانت قاعدة البيانات اكسيس اما لو sql هتعمل format() RE: رحم الله من ساعدني في مشكلة الوقت تظهر لي هذه الرسالة - MohammedHikmat - 22-02-18 (13-02-18, 06:17 PM)محمود صالح كتب : خلية التاريخ(اخر سطر) شكرا جزيلا لك. |