[سعود]

PHP كود :

Public Class Form1
    Dim dbpath As String = IO.Path.GetDirectoryName(Application.ExecutablePath) & "\db.accdb"
    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=" & dbpath
    Dim con As New OleDb.OleDbConnection(str)
    Dim dt As New DataTable
    Dim da As New OleDb.OleDbDataAdapter("select * from tb", con)
    Dim cm As New OleDb.OleDbCommandBuilder(da)
    Private Sub gd()
        dt.Clear()
        Me.DataGridView1.DataSource = Nothing
        Me.DataGridView1.Rows.Clear()
        da.Fill(dt)
        Me.DataGridView1.DataSource = dt
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        gd()
    End Sub
    Private Sub aad(ByVal tn As String)
        Dim row As DataRow = dt.NewRow
        row(1) = tn
        dt.Rows.Add(row)
        da.Update(dt)
        gd()
    End Sub
    Private Sub ddel(ByVal count As Integer)
        Dim i As Integer
        i = 0
        Do Until i = (count - 1)
            dt.Rows(i).Delete()
            i += 1
            da.Update(dt)
        Loop
        gd()
    End Sub
    Private Function found(ByVal tn As String) As Boolean
        If dt.Select("tname='" & tn & "'").Count = 0 Then
            Return False
        Else
            Return True
        End If
    End Function
    Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click
        Dim a As String = InputBox("write some name to save.")
        If Trim(a.Trim).Trim = "" Then Exit Sub
        If found(a) = False Then
            aad(a)
        Else
            MsgBox("Name Exist!", MsgBoxStyle.Information, "")
        End If
    End Sub

    Private Sub btndel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndel.Click
        If dt.Rows.Count = 0 Then Exit Sub
        If Trim(txtcount.Text).Trim = "" Then Exit Sub
        ddel(Val(txtcount.Text))
        gd()
    End Sub
End Class