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

الصفحات : 1 2

هل يمكن البحث عن تاريخ معين باداة التايم بيكر حيث ان التاريخ في قاعدة البيانات الاكسس مخزان في حقل نصي
وماهي الكود اذا كان ممكن

كيف هو شكل التاريخ المخزن؟
ممكن تكتب مثال محفوظ؟

التاريخ مخزان بالتاريخ الهجري في حقل نص هكذا وهذا الكود الذي كتبته

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

مادام خزنته على انه نصي لا تستخدم علامة الشباك # في الاستعلام

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, 08:55 PM)علي كعبي كتب : [ -> ]لم تتضح الفكره

انت تخزن تاريخ هجري كنص وانا جربته على تاريخ ميلادي كنص .
انت عليك تستخدم دالة موجودة باحدى امثلتك تحول الميلادي الى هجري وتستعلم.

حولة الحقل الى تاريخ وخزانت القيم بتاريخ الهجري ولكن عند البحث يظهر هذا الخطاء ولايبحث في جميع التوريخ بل يبحث في تاريخ اليوم فقط

اخي الكريم لاتحول الحقل ...
شوف جربت دالة وجدتها بالنت

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 

هذه الدالة استخدمها لحفظ الهجري وللاستعلام عنه واجعل العمود من نوع نصي

يعطي خطاء هنا
t.Value.ToShortDateString

علشان (t)

(27-05-16, 09:41 PM)علي كعبي كتب : [ -> ]يعطي خطاء هنا
t.Value.ToShortDateString

علشان (t)

الـ t هذي هي DateTimePicker

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

علي كعبي

سعود

علي كعبي

سعود

علي كعبي

سعود

علي كعبي

سعود

علي كعبي

سعود