عرض تاريخ منتهي

اقتباس

كيف بدي اعرض تاريخ منهي في

listbox

من قاعدة بيانات

والتاريخ يخص موظف معين

ممكن توضح السؤال أكتر؟

يعنى ايه تاريخ منتهى؟؟؟ :huh:

يعني تاريخ راح او مضى

مثل : تاريخ الفحص الطبي لموظف في شركة بعد فترة البرنامج يعطي انه التاريخ انتهى ويجب اعادة تحديثه " Expired"

ارجو ان اكون وضحت الفكرة

وشكرا لك اخي الكريم

السلام عليكــم ورحمـة الله وبركاتــه ،،

هذا مثال على ما تريد

Imports System.Data
Imports System.Data.SqlClient

Public Class Form1
	Dim cn As SqlConnection
	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		cn = New SqlConnection("Server=.;Database=xx;User Id=sa;Pwd=")
		cn.Open()

		Dim cmd As New SqlCommand("Select * From Employee Where Check_Date < @Today", cn)
		Dim prm As New SqlParameter("@Today", SqlDbType.SmallDateTime, 4)
		prm.Value = Today
		cmd.Parameters.Add(prm)

		Dim da As New SqlDataAdapter(cmd)
		Dim dt As New DataTable
		da.Fill(dt)

		Me.ListBox1.Items.Clear()
		For Each drw As DataRow In dt.Rows
			Me.ListBox1.Items.Add(String.Format("Check date for employee '{0}' has been expired: {1}", drw("emp_name"), CDate(drw("check_date")).ToShortDateString))
		Next
	End Sub
End Class

شكرا لك اخي الكريم على الرد والاهتمام بالموضوع

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

واكرر شكري لك

blakangel كتب:

شكرا لك اخي الكريم على الرد والاهتمام بالموضوع

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

واكرر شكري لك

أخى الفاضل ,,

هذا هو ما يفعله الكود السابق

يقوم باختيار بيانات الموظفين الذين انتهى تاريخ الفحص الطبى لهم ويظهرهم فى ListBox

Today تظهر تاريخ اليوم بالنسبة للجهاز

الـــــــــــــــــــف شكر الك اخي الكريم

:ty: :ty:

انا اعتذر لاني فهمت الكود بطريقة خاطئة

واكرر شكري لك