تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التاريخ المدخل الى قاعدة البيانات
#1
ازاى اخلى التاريخ ائلى داخل على الداتا بيس يبقا يوم وشهر وسنة بس مش عايز الساعة علشان بيظهر عندى كدا
25/11/2013 7.38 انا مش عايز الساعة ديه
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

في البداية.. يجب أن يكون نوع الحقل في قاعدة البيانات هو: Short Date.

ثانياً: الكود التالي مثال لطريقة تخزين تاريخ في قاعدة البيانات على النسق الذي تريده:
قم بوضع العنصر DateTimePicker على الـForm وسمّه dtDate

كود :
Dim SaveHeadSQL As String = "INSERT INTO Table (TheDate) VALUES(@TheDate)"
Dim SaveHeadCMD As New OleDbCommand

        If Con.State = ConnectionState.Closed Then
            Con.Open()


            With SaveHeadCMD
                .Connection = Con
                .CommandType = CommandType.Text
                .CommandText = SaveHeadSQL

                .Parameters.AddWithValue("TheDate", [color=#FF0000]dtDate.Value.Date[/color])

                .ExecuteNonQuery()
                .Dispose()
            End With
            Con.Close()
        Else
            With SaveHeadCMD
                .Connection = Con
                .CommandType = CommandType.Text
                .CommandText = SaveHeadSQL

                .Parameters.AddWithValue("TheDate", [color=#FF0000]dtDate.Value.Date[/color])

                .ExecuteNonQuery()
                .Dispose()
            End With
            Con.Close()
        End If
الرد }}}}
تم الشكر بواسطة:
#3
حيث أن Con هو كائن الاتصال بقاعدة البيانات وهو بالشكل التالي (كمثال):
قم بإنشاء Module وسمّها functions واكتب فيها:
كود :
Imports System.Data.OleDb

Module functions
    Public Con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\DATABASENAME.mdb")
End Module
الرد }}}}
تم الشكر بواسطة:
#4
أو بإمكانك جلب التاريخ المسجل بالكمبيوتر مباشرة عن طريق تعديل الكود السابق إلى:
كود :
Dim SaveHeadSQL As String = "INSERT INTO Table (TheDate) VALUES(@TheDate)"
        Dim SaveHeadCMD As New OleDbCommand

        If Con.State = ConnectionState.Closed Then
            Con.Open()


            With SaveHeadCMD
                .Connection = Con
                .CommandType = CommandType.Text
                .CommandText = SaveHeadSQL

                .Parameters.AddWithValue("TheDate", [color=#FF0000]Now.Date[/color])

                .ExecuteNonQuery()
                .Dispose()
            End With
            Con.Close()
        Else
            With SaveHeadCMD
                .Connection = Con
                .CommandType = CommandType.Text
                .CommandText = SaveHeadSQL

                .Parameters.AddWithValue("TheDate", [color=#FF0000]Now.Date[/color])

                .ExecuteNonQuery()
                .Dispose()
            End With
            Con.Close()
        End If
الرد }}}}
تم الشكر بواسطة:
#5
وهذا مثال على طريقة تخزين التاريخ لعيونك: انظر للمرفقات
[ATTACH]3041[/ATTACH]


الملفات المرفقة
.zip   saveDate.zip (الحجم : 85.04 ك ب / التحميلات : 32)
الرد }}}}
تم الشكر بواسطة:
#6
الف شكر للاستاذ ابو بكر على المجهود وسرعة الر
الرد }}}}
تم الشكر بواسطة:
#7
الشكر لله..
الرد }}}}
تم الشكر بواسطة:
#8
انظر للمثال المرفق وتجد به الطريقة كاملة بإذن الله.
الرد }}}}
تم الشكر بواسطة:
#9
قمت على عجل بتصميم برنامج بسيط للعمليات الأربعة على قاعدة البيانات وهي الاضافة والتعديل والبحث والحذف.

انظر للمرفقات، أتمنى لك التوفيق.

[ATTACH]3044[/ATTACH]


الملفات المرفقة
.zip   saveDate.zip (الحجم : 110.41 ك ب / التحميلات : 25)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow [كود] اضافه للمشروع التاريخ الميلادي والهجري محمد مسافر 8 222 منذ 7 ساعة مضت
آخر رد: مساعدة
  مشكلة في اجبار المستخدم ان يحفظ صورة في قاعدة بيانات shado1796 96 6,249 أمس, 04:03 AM
آخر رد: khodor1985
  كيفية عرض البيانات فى DataGridView فى وضع CrossTab noway 1 76 21-02-17, 09:03 PM
آخر رد: noway
  ازاى اصمم جدول فى قاعدة بيانات 2D noway 5 114 20-02-17, 04:27 AM
آخر رد: khodor1985
  [سؤال] حل مشكلة برنامج لتغير التاريخ عبدالرحمن المكاوي 6 145 17-02-17, 11:19 PM
آخر رد: EnormousSoft
  البحث بجزء من التاريخ أسامة السالمي 6 121 16-02-17, 03:19 PM
آخر رد: أسامة السالمي
  استفسار عن تعبئة combobox من قاعدة البيانات المتألق9 2 78 16-02-17, 11:57 AM
آخر رد: المتألق9
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 61 12-02-17, 08:06 PM
آخر رد: مساعدة
  [VB.NET] قاعدة بيانات SQL 2008R2 محمد بوقزاحة 5 105 09-02-17, 03:31 PM
آخر رد: مساعدة
  [سؤال] مشكلة في قاعدة البيانات عبدالرحمن المكاوي 2 65 08-02-17, 05:43 PM
آخر رد: عبدالرحمن المكاوي

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


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