[سعود]

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

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