[ابو ليلى]

من عيوني , كل يوم تعال 

هذا كود النموذج نسخ و لصق روحي 

PHP كود :

Imports System.Data.OleDb
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'KantdataDataSet.Model' table. You can move, or remove it, as needed.
        Me.ModelTableAdapter.Fill(Me.KantdataDataSet.Model)
        TextBox8.Text = Me.BindingContext(KantdataDataSet, "Model").Count
        CollectAll()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GroupBox1.BackColor = Color.Gray
        ModelBindingSource.AddNew()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ModelBindingSource.EndEdit()
        ModelTableAdapter.Update(KantdataDataSet.Model)
        CollectAll()
    End Sub


    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        ModelBindingSource.RemoveCurrent()
        ModelTableAdapter.Update(KantdataDataSet.Model)
        MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح")
        CollectAll()
    End Sub


   Private Function GetCarBy_Name(ByVal CarName As String) As Integer

        Using Con As New OleDbConnection(My.Settings.KantdataConnectionString)

            Dim Serch As String = "Select count(id1) As Couning From Model Where id1 = @carName"
            Using SerChCommand As New OleDbCommand(Serch, Con)
                With SerChCommand
                    .Parameters.AddWithValue(" @carName", CarName)
                    .Connection.Open()
                End With
                Using Reader As OleDbDataReader = SerChCommand.ExecuteReader
                    With Reader
                        While .Read
                            If .HasRows Then
                                Return CInt(Reader.Item("Couning"))
                            Else
                                Return 0
                            End If
                        End While
                    End With

                End Using
            End Using
        End Using
        Return 0

    End Function
    Private Sub CollectAll()
        TextBox3.Text = GetCarBy_Name("تيوتا")
        TextBox7.Text = GetCarBy_Name("مازدا")
        TextBox6.Text = GetCarBy_Name("نيسان")
    End Sub
End Class