[dhetos]

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

[أبوبكر سويدان]

السلام عليكم

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

[أبوبكر سويدان]

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

[أبوبكر سويدان]

أو بإمكانك جلب التاريخ المسجل بالكمبيوتر مباشرة عن طريق تعديل الكود السابق إلى:

كود :

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

[أبوبكر سويدان]

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

[dhetos]

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

[أبوبكر سويدان]

الشكر لله..

[أبوبكر سويدان]

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

[أبوبكر سويدان]

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

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

[ATTACH]3044[/ATTACH]