اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
التاريخ مخزان بالتاريخ الهجري في حقل نص هكذا وهذا الكود الذي كتبته
dt.Clear()
Dim cmd As New OleDbCommand("select * from tbl1 WHERE b4 = #" & DateTimePicker1.Value & "#order by ID", con)
con.Open()
dt.Load(cmd.ExecuteReader)
DataGridView1.DataSource = dt
con.Close()
datg()
27-05-16, 08:40 PM (آخر تعديل لهذه المشاركة : 27-05-16, 08:42 PM {2} بواسطة سعود.)
مادام خزنته على انه نصي لا تستخدم علامة الشباك # في الاستعلام
PHP كود :
Public Class Form1 Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb" Dim con As New OleDb.OleDbConnection(str) Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim dt As String = t.Value.ToShortDateString dt = dt.ToString Dim sql As String = "select tn,td from tb where td='" & dt & "'" Dim ta As New DataTable Dim da As New OleDb.OleDbDataAdapter(sql, con) da.Fill(ta) d.DataSource = ta End Sub End Class
هذا لو تم تخزين تاريخ ميلادي كنص
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
انت تخزن تاريخ هجري كنص وانا جربته على تاريخ ميلادي كنص .
انت عليك تستخدم دالة موجودة باحدى امثلتك تحول الميلادي الى هجري وتستعلم.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
27-05-16, 09:31 PM (آخر تعديل لهذه المشاركة : 27-05-16, 09:38 PM {2} بواسطة سعود.)
اخي الكريم لاتحول الحقل ...
شوف جربت دالة وجدتها بالنت
PHP كود :
Imports System.Globalization
Public Class Form1 Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb" Dim con As New OleDb.OleDbConnection(str) Public Function convertToHijri(greg As String) As String Dim h As New HijriCalendar() Dim g As New GregorianCalendar(GregorianCalendarTypes.USEnglish) Dim tempDate As DateTime = Convert.ToDateTime(greg) Dim date3 As New DateTime(tempDate.Year, tempDate.Month, tempDate.Day, g) Dim hijri As String = h.GetYear(date3).ToString() + "/" + h.GetMonth(date3).ToString() + "/" + h.GetDayOfMonth(date3).ToString() Dim tempDate2 As DateTime = Convert.ToDateTime(hijri) hijri = tempDate2.ToString("yyyy/MM/dd") Return hijri End Function Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim dt As String = t.Value.ToShortDateString dt = convertToHijri(dt) Dim sql As String = "select tn,td from tb where td='" & dt & "'" Dim ta As New DataTable Dim da As New OleDb.OleDbDataAdapter(sql, con) da.Fill(ta) d.DataSource = ta End Sub End Class
هذه الدالة استخدمها لحفظ الهجري وللاستعلام عنه واجعل العمود من نوع نصي
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
(27-05-16, 09:41 PM)علي كعبي كتب : يعطي خطاء هنا
t.Value.ToShortDateString
علشان (t)
الـ t هذي هي DateTimePicker
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير