منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مشـلكة التاريخ
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السـلام عليكم ورحمة الله وبركاته

عندي مجموعه من التكست بكس خاص بقيم ومن ضمن هذه التكست بكس 2 تكست بكس مخصصها لتاريخ 

وضعت كود إذا في حال إذا لم يدخل أي قيمه إلا في تكست بكس الأسم فقط فأحفظ البيانات 

طبعاً يعطيني خطأ إذا ما حفظت التاريخ فقط يعني الكود ماشي تمام مع بقية التكست بكسماعاد تكستين التاريخ ما قبلها يعطيني خطأ فشـل في تحويل DATA TIME إلى STRING ..؟

بالاضافه إلى التاريخ كيف أخليها هجري في قاعدة البيانات
السلام عليكم ورحمة الله

اخي عادل

استخدم أداة DateTimePicker فهي أفضل من TextBox لتلافي الأخطاء
نفس كلام اخوي مهموم
أشكركم على المرور 

طيب السؤال الكود لما أكتبه في جمله أنسيرت أو أبديت أو ديليت 

DateTimePicker.value
ro
DateTimePicker.text

مع العلم أني لما أستخدم هذه الأداه يظهر التاريخ بالعربي ولكن إذا تم تسجيل القيمه وحفظت في الأسكيول سيرفر قاعدة البيانات ألاقيها ميلادي ..؟
السلام عليكم ورحمة الله

استخدم للتاريخ مع الوقت DateTimePicker1.Value وللتاريخ فقط DateTimePicker1.Value.Date
لكن استخدمها مع Parameters وليس مباشرة في ال Query

التاريخ في قاعدة البيانات يحغظ بالميلادي ويجب أن يكون نوع العمود Date أو DateTime.
أما ظهور التاريخ بالشكل العربي فهذا بناء على الإعدادات الإقليمية لنظام التشغيل لديك.
والأداة DateTimePicker مهمتها التحويل بما يتوافق مع الإعدادت الاقليمية لنظام التشغيل.
عليكم السـلام ورحمة الله 

منور أخوي مهموم وأسأل الله أن يفرج همك 

التاريخ عندي هجري في الجهاز 

ولكن إذا سمحت توضح لي برمتر وكوريري ..؟

لأني مدري وش هي
السلام عليكم ورحمة الله

جزاك الله خير أخي عادل

ال Query هو نص الأمر CommandText الذي تكتب فيه مثل Insert أو Select أو Update او Delete ألخ..
ال Parameters يستخدم لإضافة المعلمات إلى CommandText وهي أأمن من حيث وضع البيانات في ال Query
وهذا مثال:

PHP كود :
        Try

 
           Dim query As String "Insert Into [table]([colName], [colDate]) Values(@name, @date)"

 
           Dim commandInsert As New SqlCommand(querysqlConnection)

            commandInsert.Parameters.AddWithValue("@name"TextBox1.Text)
            commandInsert.Parameters.AddWithValue("@date"DateTimePicker1.Value.Date)

            If sqlConnection.State <> ConnectionState.Open Then sqlConnection.Open()

            Dim ret As Integer commandInsert.ExecuteNonQuery

            sqlConnection
.Close()

            If ret 0 Then MessageBox.Show("تم الحفظ")

        Catch ex As Exception
            MessageBox
.Show(ex.Message)
        End Try
  
ألف شكر يا غالي أشكرك من أعماق قلبي
لو كنت أبي أسوي كلير بعد عملية الحفظ 
TEXTBOX1.CLER
التاريخ كيف أسوي له كلير أو أعادة ضبط
السلام عليكم ورحمة الله

أخي عادل أسأل الله أن يحفظ لك قلبك من كل سوء

إعادة ضبط التاريخ تكون بإعادته لتاريخ اليوم الحالي بالأمر
PHP كود :
DateTimePicker1.ResetText() 

وللتأكد من ضبط التاريخ تأكد من أن التاريخ ليس تاريخ اليوم مثل
PHP كود :
If DateTimePicker1.Value.Date <> Today.Date Then
    MessageBox
.Show("يجب ضبط التاريخ")
 
   Return
End 
If 


وإذا كان تاريخ ميلاد مثلا فيستحسن فحص السنة أن تكون قبل 15 سنة على سبيل المثال
PHP كود :
If DateTimePicker1.Value.Date.Year > (Today.Date.Year 15Then
    MessageBox
.Show("يجب ضبط تاريخ الميلاد")
 
   Return
End 
If 
الصفحات : 1 2