+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=15936)
الصفحات:
1
2
البحث عن تاريخ في حقل نص عن طريقة اداة التايم بيكر - علي كعبي - 27-05-16
هل يمكن البحث عن تاريخ معين باداة التايم بيكر حيث ان التاريخ في قاعدة البيانات الاكسس مخزان في حقل نصي
وماهي الكود اذا كان ممكن
RE: البحث عن تاريخ في حقل نص عن طريقة اداة التايم بيكر - سعود - 27-05-16
كيف هو شكل التاريخ المخزن؟
ممكن تكتب مثال محفوظ؟
RE: البحث عن تاريخ في حقل نص عن طريقة اداة التايم بيكر - علي كعبي - 27-05-16
التاريخ مخزان بالتاريخ الهجري في حقل نص هكذا وهذا الكود الذي كتبته
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()
1437/12/12
RE: البحث عن تاريخ في حقل نص عن طريقة اداة التايم بيكر - سعود - 27-05-16
مادام خزنته على انه نصي لا تستخدم علامة الشباك # في الاستعلام
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
هذا لو تم تخزين تاريخ ميلادي كنص
RE: البحث عن تاريخ في حقل نص عن طريقة اداة التايم بيكر - علي كعبي - 27-05-16
لم تتضح الفكره
RE: البحث عن تاريخ في حقل نص عن طريقة اداة التايم بيكر - سعود - 27-05-16
(27-05-16, 08:55 PM)علي كعبي كتب : لم تتضح الفكرهانت تخزن تاريخ هجري كنص وانا جربته على تاريخ ميلادي كنص .
انت عليك تستخدم دالة موجودة باحدى امثلتك تحول الميلادي الى هجري وتستعلم.
RE: البحث عن تاريخ في حقل نص عن طريقة اداة التايم بيكر - علي كعبي - 27-05-16
حولة الحقل الى تاريخ وخزانت القيم بتاريخ الهجري ولكن عند البحث يظهر هذا الخطاء ولايبحث في جميع التوريخ بل يبحث في تاريخ اليوم فقط
RE: البحث عن تاريخ في حقل نص عن طريقة اداة التايم بيكر - سعود - 27-05-16
اخي الكريم لاتحول الحقل ...
شوف جربت دالة وجدتها بالنت
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
هذه الدالة استخدمها لحفظ الهجري وللاستعلام عنه واجعل العمود من نوع نصي
RE: البحث عن تاريخ في حقل نص عن طريقة اداة التايم بيكر - علي كعبي - 27-05-16
يعطي خطاء هنا
t.Value.ToShortDateString
علشان (t)
RE: البحث عن تاريخ في حقل نص عن طريقة اداة التايم بيكر - سعود - 27-05-16
(27-05-16, 09:41 PM)علي كعبي كتب : يعطي خطاء هنا
t.Value.ToShortDateString
علشان (t)
الـ t هذي هي DateTimePicker