منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
التاريخ المدخل الى قاعدة البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : التاريخ المدخل الى قاعدة البيانات (/showthread.php?tid=9305)

التاريخ المدخل الى قاعدة البيانات - dhetos - 17-06-13

ازاى اخلى التاريخ ائلى داخل على الداتا بيس يبقا يوم وشهر وسنة بس مش عايز الساعة علشان بيظهر عندى كدا
25/11/2013 7.38 انا مش عايز الساعة ديه

التاريخ المدخل الى قاعدة البيانات - أبوبكر سويدان - 18-06-13

السلام عليكم

في البداية.. يجب أن يكون نوع الحقل في قاعدة البيانات هو: 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


التاريخ المدخل الى قاعدة البيانات - أبوبكر سويدان - 18-06-13

حيث أن 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


التاريخ المدخل الى قاعدة البيانات - أبوبكر سويدان - 18-06-13

أو بإمكانك جلب التاريخ المسجل بالكمبيوتر مباشرة عن طريق تعديل الكود السابق إلى:
كود :
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


التاريخ المدخل الى قاعدة البيانات - أبوبكر سويدان - 18-06-13

وهذا مثال على طريقة تخزين التاريخ لعيونك: انظر للمرفقات
[ATTACH]3041[/ATTACH]

التاريخ المدخل الى قاعدة البيانات - dhetos - 18-06-13

الف شكر للاستاذ ابو بكر على المجهود وسرعة الر

التاريخ المدخل الى قاعدة البيانات - أبوبكر سويدان - 18-06-13

الشكر لله..

التاريخ المدخل الى قاعدة البيانات - أبوبكر سويدان - 18-06-13

انظر للمثال المرفق وتجد به الطريقة كاملة بإذن الله.

التاريخ المدخل الى قاعدة البيانات - أبوبكر سويدان - 18-06-13

قمت على عجل بتصميم برنامج بسيط للعمليات الأربعة على قاعدة البيانات وهي الاضافة والتعديل والبحث والحذف.

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

[ATTACH]3044[/ATTACH]