18-03-15, 06:27 PM
بسم الله الرحمن الرحيم
فى كود الحفظ
البرنامج يقوم بحفظ التاريخ بهذه الطريقة 2015-03-15 00:00:00
لاكن كود التعديل يقوم بتحويل التاريخ لهذه الطريقة 2015/03/15
هذه بحد زاتها مشكلة فى التقارير لا يظهر البيانات
فا انا اريد عند الحفظ والتعديل يقوم بحفظ التاريخ بهذه الصيغة 2015-03-15 00:00:00
كود الحفظ
كود التعديل
فى كود الحفظ
البرنامج يقوم بحفظ التاريخ بهذه الطريقة 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, "نجاح")