[العيدروس]

السلام عليكم
تتبعت دورة من المنتدي و حاولت حفظ التاريخ بهذه الصيغة و ما وصلت للحل
كيف اخواني احفظ التاريخ هكذا yyyy-MM-dd بدون الوقت بارك الله فيكم
هذا الكود الذي استعملته و اريخ حفظ حقل التاريخ و هو من نوع تاريخ

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       insert_new_row(Me.TextBox1.Text, Me.TextBox2.Text)
   End Sub
   Public Sub insert_new_row(ByVal id As Int32, ByVal datebirth As Date)
       Dim Cmd As New OleDbCommand
       With Cmd
           Cmd.Connection = Conne
           Cmd.CommandType = CommandType.Text

           Cmd.CommandText = "insert into table1 ( field_id , field_birth ) values ( @field_id , @field_birth )"
           Cmd.Parameters.Clear()
           Cmd.Parameters.AddWithValue("@field_id", OleDbType.Integer).Value = id
           Cmd.Parameters.AddWithValue("@field_birth", OleDbType.Date).Value = datebirth
        End With
       Try
           If Conne.State = 1 Then Conne.Close()
           Conne.Open()

           Cmd.ExecuteNonQuery()
           Conne.Close()
       Catch ex As Exception
           Conne_2020.Close()
           MsgBox(Err.Description, MsgBoxStyle.Information)
       Finally
       End Try
   End Sub

[asemshahen5]

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       insert_new_row(Me.TextBox1.Text, Me.TextBox2.Text)
   End Sub
   Public Sub insert_new_row(ByVal id As Int32, ByVal datebirth As Date)
       Dim Cmd As New OleDbCommand
       With Cmd
           Cmd.Connection = Conne
           Cmd.CommandType = CommandType.Text

           Cmd.CommandText = "insert into table1 ( field_id , field_birth ) values ( @field_id , @field_birth )"
           Cmd.Parameters.Clear()
           Cmd.Parameters.AddWithValue("@field_id", OleDbType.Integer).Value = id
           Cmd.Parameters.AddWithValue("@field_birth", OleDbType.Date).Value = CDate(datebirth)
        End With
       Try
           If Conne.State = 1 Then Conne.Close()
           Conne.Open()

           Cmd.ExecuteNonQuery()
           Conne.Close()
       Catch ex As Exception
           Conne_2020.Close()
           MsgBox(Err.Description, MsgBoxStyle.Information)
       Finally
       End Try
   End Sub 


[العيدروس]

بارك الله فيك اخي و جزاك خير الجزاء صحيح التاريخ ينحفظ بكيفية جيدة و بدون مشكلة بقيت لي فقط بعد اذنك نقطة صغيرة كيف يمكن اتحكم في الاتجاه يعني كيف اخلي التاريخ بهذي الفورمات yyyy-MM-dd بدل من dd-MM-yyyy يعني يظهر بقاعدة البيانات من اليمين لشمال و بارك الله فيك

[alsalamoni]

(21-02-20, 02:38 PM)العيدروس كتب : السلام عليكم
تتبعت دورة من المنتدي و حاولت حفظ التاريخ بهذه الصيغة و ما وصلت للحل
كيف اخواني احفظ التاريخ هكذا yyyy-MM-dd بدون الوقت بارك الله فيكم
هذا الكود الذي استعملته و اريخ حفظ حقل التاريخ و هو من نوع تاريخ

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       insert_new_row(Me.TextBox1.Text, Me.TextBox2.Text)
   End Sub
   Public Sub insert_new_row(ByVal id As Int32, ByVal datebirth As Date)
       Dim Cmd As New OleDbCommand
       With Cmd
           Cmd.Connection = Conne
           Cmd.CommandType = CommandType.Text

           Cmd.CommandText = "insert into table1 ( field_id , field_birth ) values ( @field_id , @field_birth )"
           Cmd.Parameters.Clear()
           Cmd.Parameters.AddWithValue("@field_id", OleDbType.Integer).Value = id
           Cmd.Parameters.AddWithValue("@field_birth", OleDbType.Date).Value = datebirth
        End With
       Try
           If Conne.State = 1 Then Conne.Close()
           Conne.Open()

           Cmd.ExecuteNonQuery()
           Conne.Close()
       Catch ex As Exception
           Conne_2020.Close()
           MsgBox(Err.Description, MsgBoxStyle.Information)
       Finally
       End Try
   End Sub

تنسيق شكل التاريخ داخل قاعدة البيانات الاكسس يخص مبرمجي الاكسس فقط.

اذا كنت تعتقد انك لو نسقته داخل الاكسس ستقرأه بالفيجوال بيسيك بنفس التنسيق، فأنت مخطئ.

اذا كنت مصرا على التنسيق داخل الاكسس فضع التنسيق الذي تريده في خصائص الحل "تنسيق"  او "Format"

[العيدروس]

الف شكر  على المعلومة وبارك الله فيك اخي السلموني
و بالنسبة لنفس الكود على السكيوال هل يمكن تنسيقه بارك الله فيك

[alsalamoni]

(21-02-20, 05:19 PM)العيدروس كتب : الف شكر  على المعلومة وبارك الله فيك اخي السلموني
و بالنسبة لنفس الكود على السكيوال هل يمكن تنسيقه بارك الله فيك

ما تشاهده في السكيوال يعتمد على تنسيق نظام التشغيل،

ممكن اعرف سبب اصرارك على تنسيق التاريخ داخل قاعدة البيانات ؟

[العيدروس]

الاصرار فقط من اجل مثلا عملية البحث بالتاريخ بالتاكست بكس اكتب التاريخ بالتاكست بكس و ابحث و اذا كان تنسيق التاريخ لا ياثر في البحث فلا يهم اذا التنسيق

[alsalamoni]

(21-02-20, 06:59 PM)العيدروس كتب : الاصرار فقط من اجل مثلا عملية البحث بالتاريخ بالتاكست بكس اكتب التاريخ بالتاكست بكس و ابحث و اذا كان تنسيق التاريخ لا ياثر في البحث فلا يهم اذا التنسيق

طالما ان نوع الحقل تاريخ فلا علاقة للبحث بالتنسيق داخل قاعدة البيانات

---

قاعدة البيانات تحفظ التاريخ داخلها على شكل رقم مثل 637179051142844458 وليس بالشكل المعروف.

هذا الكود لتحويل التاريخ الى رقم

كود :

Dim d As Long = Now.Ticks

MsgBox(d)

هذا الكود لتحويل الرقم الى تاريخ

كود :

Dim d As Long = 637179051142844458

MsgBox(New Date(d))

[العيدروس]

بارك الله فيك على المعلومات المفيدة و جزاك خير الجزاء

[سعود]

صدق من قال ان العلم بحر.
كود  من ابسط مايكون لم اعرفه الا اليوم!
ابسط كود يمكن استخدامه لتسمية الملفات باسماء لا تتكرر على  ما اظن.
بارك الله فيكم جميعا.