لماذا يتم وضع الساعة في في textbox من نوع تاريخ

كيف يظهره بشكل خاطئ و هل تاكدت من اعدادات الساعه و التاريخ فى الويندوز

أخوي طارق

انا قصدت انه يعرض الساعة مختلفة عن ساعة النظام

حيث انه يعرضها 12:00 ص وهكذا ومافي أساس لعمل هذا الشي

على كل هل عندك طريقة سريعة لوضع التاريخ في textbox علما انا رابط هذا textbox مع حقل من نوع تاريخ في oracle

وبالمناسبة ليه مااقدر احط DateTimePicker الموجودة ضمن عناصر form

ومشكور على تجاوبك معي

وبالتوفيق

انت حللتها يمكنك وضع ال DateTimePicker ضمن الفورم و بالتالى فسيمكنك التحكم بصيغة ادخال الوقت و التاريخ كما تشاء ثم وضعها فى ال textbox بعد ذلك امرارها لل Command Object ليقوم بتسجيلها فى قاعدة البيانات

أخوي طارق

كل ما أكتب في الحقل تاريخ وانتقل للحقل الثاني يقوم البرنامج من تلقاء نفسه

بتكملة التاريخ مع الوقت

فاذ عندك الحل لو تكرمت قلي وش خصائص textbox

اللازم اوضعا

أو اذا عندك طريقة ثانية فلا تبخل فيها علينا

ومشكور أخوي مرة ثانية

وربنا يوفقك لكل خير

هناك صيغ متعدده لوضع التاريخ المدخل من ال DateTimePicker فهناك مثلاً هذه الصيغه

 TextBox1.Text = DateTimePicker1.Value.ToLocalTime

يظهر التاريخ بهذا الشكل 18/10/2004 02:40:23 م

TextBox1.Text = DateTimePicker1.Value.ToLongDateString

يظهر التاريخ بهذا الشكل 11 اكتوبر, 2004

TextBox1.Text = DateTimePicker1.Value.ToShortDateString

يظهر التاريخ بهذا الشكل 27/10/2004

TextBox1.Text = DateTimePicker1.Value.ToShortTimeString

يظهر الوقت بهذا الشكل 12:43 م

TextBox1.Text = DateTimePicker1.Value.ToString

يظهر التاريخ بهذا الشكل 04/10/2004 12:44:42 م

TextBox1.Text = DateTimePicker1.Value.ToUniversalTime

يظهر التاريخ بهذا الشكل 11/10/2004 10:45:40 ص

قمت كل مره باختيار تاريخ مختلف

السلام عليكم

textbox1.text=textbox1.text.tostring.format("dd/MM/yyyy")

مشكور جدا جدا أخوي طارق

والله يرفع من مكانتك

وموفق دائما إن شاء الله

وعساك عالخير دوم

اخوي طارق

مع الأسف لأول وهلة وانا ادخل البيانات يسجل التاريخ بدون وقت

ولكن عند التخزين يقوم بوضع الوقت بجانب التاريخ

فهل المشكلة من VB.Net أو من Oracle

والله انه تعقدت من هذه العملية

وعذرا عالاطالة

وشكور سلفاً

فعلا هذه مشكلة لقد واجهتني ولم اعرف ماحلها

وسوف اشرح المقصود من السؤال

عند الربط قاعدة البيانات مع ادوات مثلا Text عن طريق DataBinding

Textbox1.databinding.add("Text",DataSet,"Tabel.Field")

اذا كان من نوع تاريخ فانة يظهر لنا التاريخ مع الوقت مع ان قاعدة البيانات محدد ShortDate

وعند التعديل البيانات بواسطة برنامجي التفيذي

عندما اذهب لتكست التاريخ يتوقف البرنامج ويعرض لي خطاء لانه يوجد وقت مع تاريخ

انا حليتها بطريقة غير مقنعة انتظروني لكي اضع الملف هنا

تحياتي

إلى ameersba

اقتباس

فهل المشكلة من VB.Net أو من Oracle

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

إلى الاخ mn_902

ما هى قاعدة البيانات التى تتعامل معها ؟ راجع ايضاً الحل باعلى

اخي طارق

انا استخدم قاعدة البيانات اكسس 2003

ولكن انا استخدم في ادخال التاريخ Textbox وليس datatimepicker

لاني ادخل تاريخ هجري

اتمنى انك فهمتني

اخ طارق

فعلا هذا حل ولكن لا اعتقد انه مرن

لاحظ بالنسبة للتاريخ وهو Textbox8

 '''''''
        'للربط بين الحقول و ادوات التكست  للعرض
        TextBox1.DataBindings.Add("Text", DataSet1, "Books.BookNbr")
        TextBox2.DataBindings.Add("Text", DataSet1, "Books.SerialNbr")
        TextBox3.DataBindings.Add("Text", DataSet1, "Books.price")
        TextBox4.DataBindings.Add("Text", DataSet1, "Books.Qty")
        TextBox5.DataBindings.Add("Text", DataSet1, "Books.ReOrderLevel")
        TextBox6.DataBindings.Add("Text", DataSet1, "Books.AuthorName")
        TextBox7.DataBindings.Add("Text", DataSet1, "Books.PagesNbe")
        TextBox8.Text = DataSet1.Tables("Books").Rows(0)("Date1")
        TextBox9.DataBindings.Add("Text", DataSet1, "Books.DarAlNasher")

وعند التنقل للسجل الاول

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.BindingContext(DataSet1, "Books").Position = 0
        TextBox8.Text = DataSet1.Tables("Books").Rows(0)("Date1")
    End Sub

والسجل الاخير

 Me.BindingContext(DataSet1, "Books").Position = Me.BindingContext(DataSet1, "Books").Count - 1
        TextBox8.Text = DataSet1.Tables("Books").Rows(Me.BindingContext(DataSet1, "Books").Count - 1)("Date1")

والسجل التالي

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Me.BindingContext(DataSet1, "Books").Position += 1
        TextBox8.Text = DataSet1.Tables("Books").Rows(Me.BindingContext(DataSet1, "Books").Position)("Date1")
    End Sub

والسجل السابق

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Me.BindingContext(DataSet1, "Books").Position -= 1
        TextBox8.Text = DataSet1.Tables("Books").Rows(Me.BindingContext(DataSet1, "Books").Position)("Date1")
    End Sub

لاحظ لان اداة التسكت بوكس لل تاريخ غير مرتبطه ب DataBinding

فيجب عند التنقل ان اكتب الكود المذكور اعلاه

فهل هذا حل منطقي ام توجد هناك حلول اخرى

بارك الله فيك

والله شهادتي فيك مجروحه

انسان بمعنى الكلمة مجتهد

وفقك الله

WindowsApplication4.zip

الاخوه الاعزاء

ارجو مناقشة هذا الموضوع

لانه حتى لو عملت format لـ TextBox لا يتم تخزين الوقت في قاعدة البيانات بالشكل الصحيح

انا استخدم اكسيس 2003

ولكم جزيل الشكر