التاريخ مخزان بالتاريخ الهجري في حقل نص هكذا وهذا الكود الذي كتبته
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
هذه الدالة استخدمها لحفظ الهجري وللاستعلام عنه واجعل العمود من نوع نصي