تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حفظ التاريخ بصيغة معينة
#1
السلام عليكم
تتبعت دورة من المنتدي و حاولت حفظ التاريخ بهذه الصيغة و ما وصلت للحل
كيف اخواني احفظ التاريخ هكذا 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
الرد
تم الشكر بواسطة:
#2
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 
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد
تم الشكر بواسطة: العيدروس , اسامه الهرماوي
#3
بارك الله فيك اخي و جزاك خير الجزاء صحيح التاريخ ينحفظ بكيفية جيدة و بدون مشكلة بقيت لي فقط بعد اذنك نقطة صغيرة كيف يمكن اتحكم في الاتجاه يعني كيف اخلي التاريخ بهذي الفورمات yyyy-MM-dd بدل من dd-MM-yyyy يعني يظهر بقاعدة البيانات من اليمين لشمال و بارك الله فيك
الرد
تم الشكر بواسطة:
#4
(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"
الرد
تم الشكر بواسطة: العيدروس , asemshahen5
#5
الف شكر  على المعلومة وبارك الله فيك اخي السلموني
و بالنسبة لنفس الكود على السكيوال هل يمكن تنسيقه بارك الله فيك
الرد
تم الشكر بواسطة: asemshahen5
#6
(21-02-20, 05:19 PM)العيدروس كتب : الف شكر  على المعلومة وبارك الله فيك اخي السلموني
و بالنسبة لنفس الكود على السكيوال هل يمكن تنسيقه بارك الله فيك

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

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

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

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

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

MsgBox(d)


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

MsgBox(New Date(d))
الرد
تم الشكر بواسطة: العيدروس , سعود , asemshahen5 , alshandodi
#9
بارك الله فيك على المعلومات المفيدة و جزاك خير الجزاء
الرد
تم الشكر بواسطة: سعود , asemshahen5 , asemshahen5
#10
صدق من قال ان العلم بحر.
كود  من ابسط مايكون لم اعرفه الا اليوم!
ابسط كود يمكن استخدامه لتسمية الملفات باسماء لا تتكرر على  ما اظن.
بارك الله فيكم جميعا.
الرد
تم الشكر بواسطة: عبد العزيز البسكري , asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [سؤال] هل يدعم الدوت نت التخريج للماك بإعدادات معينة؟ السندبااد 3 231 15-10-20, 01:41 AM
آخر رد: محمد كريّم
  مطلوب كود فصل الوقت من التاريخ موضح بمثال new_programer 2 251 04-10-20, 12:06 PM
آخر رد: new_programer
  [VB.NET] اضافة اللغة واستردادها من ملف بصيغة ini ميدو الفنان 11 1,255 25-09-20, 04:08 PM
آخر رد: عمور2016
  فورم تنبيه باقتراب التاريخ khaled Mohammed 1 226 21-09-20, 07:26 PM
آخر رد: Anas Mahmoud
  التاريخ لا يقبل الاضافة او التعديل talatm 2 248 18-09-20, 08:36 PM
آخر رد: talatm
  جلب التاريخ بتنسيق معين mr_hso 4 504 14-09-20, 05:26 PM
آخر رد: mr_hso
  مشكلة في عمل ابديت لجدول بسبب التاريخ ارجو المساعدة stiger 2 320 24-08-20, 04:40 PM
آخر رد: stiger
  اريد عرض اليوم حسب اختيار التاريخ ارجو المساعده الله يبارك فيكم كريم عبودي 4 511 23-08-20, 01:59 PM
آخر رد: اسامه الهرماوي
  التعديل على عمود في الداتاقريد فيو دفعة واحد بناء على قيمة معينة جيولوجي مبتدئ 3 407 02-08-20, 02:10 AM
آخر رد: ابراهيم ايبو
  التعديل على عمود في الداتاقريد فيو دفعة واحد بناء على قيمة معينة جيولوجي مبتدئ 0 247 01-08-20, 07:49 PM
آخر رد: جيولوجي مبتدئ

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم