تقييم الموضوع :
  • 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)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ما هو كود حفظ البيانات من الداتا جريد فيو إلى قاعدة البيانات kofa 0 22 أمس, 07:53 PM
آخر رد: kofa
  انشاء قاعدة بيانات بإمتداد خاص بك thevirus 5 113 أمس, 03:09 PM
آخر رد: thevirus
  [سؤال] حفظ تاريخ معين بقاعدة البيانات توفي العراقي 3 74 أمس, 12:47 AM
آخر رد: ali.alfoly
  تثبيت التاريخ علي الفورم ddemed 3 81 04-12-16, 05:45 PM
آخر رد: ddemed
  تغيير قاعدة البيانات الى .bak زيد زينوبي 3 52 03-12-16, 07:07 PM
آخر رد: ابراهيم النعيمي
  [سؤال] ايهما افضل في قواعد البيانات للتميم برنامج sal.softip 2 41 03-12-16, 06:59 PM
آخر رد: sal.softip
  قاعدة البيانات لا تدعم اللغة العربية ؟؟؟؟؟؟ صبري زينوبي 13 193 03-12-16, 04:47 PM
آخر رد: صبري زينوبي
  تغيير قاعدة البيانات من اكسس الى sql hglogtd 2 101 26-11-16, 03:03 AM
آخر رد: hglogtd
  [سؤال] ايهما افضل من جهة امن البيانات thevirus 2 86 24-11-16, 12:14 PM
آخر رد: thevirus
  [كود] الحذف من قاعدة البيانات بواسطة كلمة سر المبرمج العبقري 5 122 23-11-16, 05:21 PM
آخر رد: hglogtd

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


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