[سعود]

ادري اني متاخر جدا لكن لعل احد يفيده المثال البسيط جدا


وهذا كلاس الفورم

PHP كود :

Public Class Form1
    Dim con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")

   
  

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If con.State = ConnectionState.Open Then con.Close()
        Using cmd As New OleDb.OleDbCommand("", con)
            cmd.CommandText = "insert into tb(tname,startd,endd) values(@tname,@startd,@endd)"
            cmd.Parameters.AddWithValue("@tname", tname.Text)
            cmd.Parameters.AddWithValue("@startd", CDate(startdt.Text).ToShortDateString)
            cmd.Parameters.AddWithValue("@endd", CDate(enddt.Text).ToShortDateString)
            Try
                If con.State = ConnectionState.Closed Then con.Open()
                cmd.ExecuteNonQuery()
                If con.State = ConnectionState.Open Then con.Close()
                MsgBox("تم الحفظ", MsgBoxStyle.Information, "")
            Catch ex As Exception
                If con.State = ConnectionState.Open Then con.Close()
                MsgBox(Err.Description, MsgBoxStyle.Critical, "")
            End Try
            If con.State = ConnectionState.Open Then con.Close()
        End Using
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        dgv.Rows.Clear()
        Using cm As New OleDb.OleDbCommand("", con)
            Dim i As Integer = 0
            i = Val(d.Text)




            cm.CommandText = "select * from tb where endd=#" & Date.Today.AddDays(i) & "#"

            Try
                If con.State = ConnectionState.Closed Then con.Open()
                Dim dt As New DataTable
                dt.Load(cm.ExecuteReader)
                For r = 0 To dt.Rows.Count - 1
                    With dgv
                        .ColumnCount = 3
                        .Columns(0).HeaderText = "الاسم"
                        .Columns(1).HeaderText = "البداية"
                        .Columns(2).HeaderText = "النهاية"



                        .Columns(0).Width = 150
                        .Columns(1).Width = 150
                        .Columns(2).Width = 150

                        .Rows.Add(dt.Rows(r)(1).ToString, CDate(dt.Rows(r)(2)).ToShortDateString, CDate(dt.Rows(r)(3).ToString).ToShortDateString)
                    End With

                Next
            Catch ex As Exception
                If con.State = ConnectionState.Open Then con.Close()
                MsgBox(Err.Description, MsgBoxStyle.Critical, "")

            End Try
        End Using
    End Sub
End Class 


---

طبعا هو مش تذكير بجد لكن ممكن بشوي تعديل يصير تذكير بجد
كل عام والكل بخير