منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
حفظ التاريخ بصيغة معينة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : حفظ التاريخ بصيغة معينة (/showthread.php?tid=33488)

الصفحات: 1 2


حفظ التاريخ بصيغة معينة - العيدروس - 21-02-20

السلام عليكم
تتبعت دورة من المنتدي و حاولت حفظ التاريخ بهذه الصيغة و ما وصلت للحل
كيف اخواني احفظ التاريخ هكذا 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



RE: حفظ التاريخ بصيغة معينة - asemshahen5 - 21-02-20

PHP كود :
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
       insert_new_row
(Me.TextBox1.TextMe.TextBox2.Text)
 
  End Sub
   
Public Sub insert_new_row(ByVal id As Int32ByVal 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.DescriptionMsgBoxStyle.Information)
 
      Finally
 
      End Try
 
  End Sub 



RE: حفظ التاريخ بصيغة معينة - العيدروس - 21-02-20

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


RE: حفظ التاريخ بصيغة معينة - alsalamoni - 21-02-20

(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"



RE: حفظ التاريخ بصيغة معينة - العيدروس - 21-02-20

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


RE: حفظ التاريخ بصيغة معينة - alsalamoni - 21-02-20

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

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

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


RE: حفظ التاريخ بصيغة معينة - العيدروس - 21-02-20

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


RE: حفظ التاريخ بصيغة معينة - alsalamoni - 21-02-20

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

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

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

هذا الكود لتحويل التاريخ الى رقم
كود :
Dim d As Long = Now.Ticks

MsgBox(d)


هذا الكود لتحويل الرقم الى تاريخ
كود :
Dim d As Long = 637179051142844458

MsgBox(New Date(d))



RE: حفظ التاريخ بصيغة معينة - العيدروس - 21-02-20

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


RE: حفظ التاريخ بصيغة معينة - سعود - 21-02-20

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