+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كود لتحويل التاريخ لهذه القمية (2015-03-15 00:00:00) عند عمل تعديل (/showthread.php?tid=11779)
كود لتحويل التاريخ لهذه القمية (2015-03-15 00:00:00) عند عمل تعديل - احمد عبد الحكيم - 18-03-15
بسم الله الرحمن الرحيم
فى كود الحفظ
البرنامج يقوم بحفظ التاريخ بهذه الطريقة 2015-03-15 00:00:00
لاكن كود التعديل يقوم بتحويل التاريخ لهذه الطريقة 2015/03/15
هذه بحد زاتها مشكلة فى التقارير لا يظهر البيانات
فا انا اريد عند الحفظ والتعديل يقوم بحفظ التاريخ بهذه الصيغة 2015-03-15 00:00:00
كود الحفظ
PHP كود :
Con.Open()
Dim cmdInsH As New OleDbCommand
cmdInsH.Connection = Con
cmdInsH.CommandType = CommandType.Text
cmdInsH.CommandText = "INSERT INTO [entag1] VALUES" & "(@p1,@p2,@p3,@p4,@p5,@p6,@p7,@p8,@p9,@p10)"
cmdInsH.Parameters.AddWithValue("@p1", TextBox1.Text)
cmdInsH.Parameters.AddWithValue("@p2", Me.DateTimePicker2.Value.Date)
cmdInsH.Parameters.AddWithValue("@p3", ComboBox2.Text)
cmdInsH.Parameters.AddWithValue("@p4", txtNam.Text)
cmdInsH.Parameters.AddWithValue("@p5", txtnName.Text)
cmdInsH.Parameters.AddWithValue("@p6", txtAddr.Text)
cmdInsH.Parameters.AddWithValue("@p7", txtPhon.Text)
cmdInsH.Parameters.AddWithValue("@p8", txtq.Text)
cmdInsH.Parameters.AddWithValue("@p9", TextBox2.Text)
cmdInsH.Parameters.AddWithValue("@p10", txttoball)
cmdInsH.ExecuteNonQuery()
Con.Close()
PHP كود :
Dim SavInto As New OleDb.OleDbCommand
SavInto.Connection = Con
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "update entag1 set [malemName]='" & txtNam.Text & "',[nakeName]='" & txtnName.Text & "',[malemAddress]='" & txtAddr.Text & "',[malemPhone]='" & txtPhon.Text & "',[shbka]='" & txtq.Text & "',[tobPriceall]='" & TextBox2.Text & "',[tobnumAll]= '" & txttoball.Text & "',[date]='" & DateTimePicker2.Text & "' where entagID = " & Val(TextBox1.Text) & ""
Con.Open()
SavInto.ExecuteNonQuery()
SavInto.Dispose()
Con.Close()
MsgBox("تمت ---- التعديل بنجاح", 64 + 524288, "نجاح")
RE: كود لتحويل التاريخ لهذه القمية (2015-03-15 00:00:00) عند عمل تعديل - mh66 - 19-03-15
هل جربت هذا الكود
DateTimePicker2.Value.ToString("MM/dd/yyyy")
بدل
DateTimePicker2.Text