[احمد عبد الحكيم]

بسم الله الرحمن الرحيم
فى كود الحفظ
البرنامج يقوم بحفظ التاريخ بهذه الطريقة 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, "نجاح")