[laleq]

السلام عليكم

عضو جديد فى المنتدى الجميل
الذى وجدتة عن طريق محرك البحث فى محاولاتى للتعلم
و شكر للقائمين غلى المجهود
سؤال اذا امكن

لدى برنامج نوعا ما بسيط فيه دانا جريد فيو و تواريخ انتهاء مواد
حاولت ايجاد كود اةو طريقه للتنبيه 3 ايام مثلا على انتهاء الصلاحيه و بحثت فى المنتدى ووجدت 3 مقالات منها للاخ سعود و لم اتمكن من تحميل المرفقات للتعلم منها و مقالان تم وضع الكود ولكن لم يعمل لانى مبتدى فى لمجال

هل يوجد سامبل للداتا جريد فيه تواريخ مع خاصيه التنبيه عند النقر تظهر فى فورم اخر الاصناف المنتهيه لدراستها و التعلم منها

اسف على الاطاله
شكرا جزيلا بارك الله فيكم

[سعود]

تفضل المثال بالاكواد
اولا الموديول

PHP كود :

Imports System.Data.OleDb
Module Module1
    Public con As New OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb")
    Public Sub getdata()
        Dim ds As New DataSet
        Dim da As New OleDbDataAdapter("select * from tb order by tid desc", con)
        ds.Clear()
        Form2.DataGridView1.DataSource = Nothing
        da.Fill(ds, "tb")
        Form2.DataGridView1.DataSource = ds
        Form2.DataGridView1.DataMember = "tb"
        Form2.DataGridView1.Columns(0).Width = 50
        Form2.DataGridView1.Columns(1).Width = 200
        Form2.DataGridView1.Columns(2).Width = 200
        Form2.DataGridView1.Columns(0).HeaderText = "م"
        Form2.DataGridView1.Columns(1).HeaderText = "اسم السلعة"
        Form2.DataGridView1.Columns(2).HeaderText = "تاريخ الانتهاء"
        If con.State = ConnectionState.Open Then
            con.Close()
        End If
    End Sub
End Module 


ثانيا كلاس الفورم انظر لاسماء الازرار لابد ان تكون موجودة

PHP كود :

Imports System.Data.OleDb

Public Class Form2
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        getdata()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        getdata()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim currentDate As DateTime = DateTime.Now
        Dim cm As New OleDbDataAdapter("select * from tb where tdate=#" & currentDate.AddDays(Val(ndate.Text)).ToShortDateString & "#", con)
        Dim ds As New DataSet
        ds.Clear()
        DataGridView1.DataSource = Nothing
        cm.Fill(ds, "tb")
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "tb"
        DataGridView1.Columns(0).Width = 50
        DataGridView1.Columns(1).Width = 200
        DataGridView1.Columns(2).Width = 200
        DataGridView1.Columns(0).HeaderText = "م"
        DataGridView1.Columns(1).HeaderText = "اسم السلعة"
        DataGridView1.Columns(2).HeaderText = "تاريخ الانتهاء"

        If con.State = ConnectionState.Open Then
            con.Close()
        End If

    End Sub

    

   

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        lbl.Text = ""
        Dim cm As New OleDbCommand("", con)
        cm.CommandText = "insert into tb (tname,tdate) values(@tname,@tdate)"
        cm.Parameters.AddWithValue("@tname", OleDbType.VarChar).Value = tname.Text
        cm.Parameters.AddWithValue("@tdate", OleDbType.VarChar).Value = tdate.Text
        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        Try
            cm.ExecuteNonQuery()
            Button1.PerformClick()
            lbl.Text = "تم الاضافة بنجاح"
            lbl.ForeColor = Color.Green
        Catch ex As Exception
            lbl.Text = Err.Description
            lbl.ForeColor = Color.Red
        End Try
    End Sub
End Class 


[سعود]

السر هنا

PHP كود :

Dim cm As New OleDbDataAdapter("select * from tb where tdate=#" & currentDate.AddDays(Val(ndate.Text)).ToShortDateString & "#", con) 


[سعود]

خصوصا هذا

PHP كود :

#" & currentDate.AddDays(Val(ndate.Text)).ToShortDateString & "# 


[سعود]

وبيت القصيد هو

كود :

currentDate.AddDays

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

PHP كود :

currentDate.AddDays(2) 


او تسند له من مربع نص كما بالكود

[laleq]

اخى العزيز شكرا على ردك

و المساعده
و لكن ما زلت اصادف اخطاء
هل من الممكن ان تجمعه فى سامبل
سوف يكون اسهل بالنسبه لى لافهمه

بارك الله فيك

[laleq]

للرفع

[سعود]

إقتباس :هل من الممكن ان تجمعه فى سامبل

مافهمت ماعلش

[laleq]

السلام عليكم
اقصد فى مثال عملى


شكرا لك

[laleq]

للرفع